;ELC ;;; compiled by jwz@thalidomide on Sun Jan 2 02:57:33 1994 ;;; from file /th/jwz/emacs19/lisp/calendar/diary-ins.el ;;; emacs version 19.9 Lucid (beta10). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (require 'diary) (fset 'make-diary-entry #[(string &optional nonmarking file) "\n\n !!dbnĪɱ" [find-file-other-window substitute-in-file-name file diary-file "" "\n" nonmarking diary-nonmarking-symbol string " "] 4 "\ Insert a diary entry STRING which may be NONMARKING in FILE. If omitted, NONMARKING defaults to nil and FILE defaults to diary-file."]) (fset 'insert-diary-entry #[(arg) " !ʼn#\"" [make-diary-entry calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" t arg] 5 "\ Insert a diary entry for the date indicated by point. Prefix arg will make the entry nonmarking." "P"]) (fset 'insert-weekly-diary-entry #[(arg) " !! \"" [make-diary-entry calendar-day-name calendar-cursor-to-date error "Cursor is not on a date!" arg] 4 "\ Insert a weekly diary entry for the day of the week indicated by point. Prefix arg will make the entry nonmarking." "P"]) (fset 'insert-monthly-diary-entry #[(arg) " !\"\n\")" [european-calendar-style (day " * ") ("* " day) calendar-date-display-form make-diary-entry calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" t arg] 4 "\ Insert a monthly diary entry for the day of the month indicated by point. Prefix arg will make the entry nonmarking." "P"]) (fset 'insert-yearly-diary-entry #[(arg) " !\"\n\")" [european-calendar-style (day " " monthname) (monthname " " day) calendar-date-display-form make-diary-entry calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" t arg] 4 "\ Insert an annual diary entry for the day of the year indicated by point. Prefix arg will make the entry nonmarking." "P"]) (fset 'insert-anniversary-diary-entry #[(arg) " !##\")" [european-calendar-style (day " " month " " year) (month " " day " " year) calendar-date-display-form make-diary-entry format "%s(diary-anniversary %s)" sexp-diary-entry-symbol calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" nil t arg] 8 "\ Insert an anniversary diary entry for the date given by point. Prefix arg will make the entry nonmarking." "P"]) (fset 'insert-block-diary-entry #[(arg) " !@!\n  \nAA@S\n@\nA@\nAA@S_\\V_\\ץZզU٦UڦUT,_ե٥[ڥ\\\\\\\\)AA@S@A@AA@S_\\V_\\ץZզU٦UڦUT,_ե٥[ڥ\\\\\\\\)W\n   \n  # #$\"\"-" [european-calendar-style (day " " month " " year) (month " " day " " year) calendar-date-display-form calendar-cursor-to-date error "Cursor is not on a date!" cursor calendar-mark-ring "No mark set in this buffer" mark nil start end prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 make-diary-entry format "%s(diary-block %s %s)" sexp-diary-entry-symbol calendar-date-string t arg] 9 "\ Insert a block diary entry for the days between the point and marked date. Prefix arg will make the entry nonmarking." "P"]) (fset 'insert-cyclic-diary-entry #[(arg) "\" !#$\")" [european-calendar-style (day " " month " " year) (month " " day " " year) calendar-date-display-form make-diary-entry format "%s(diary-cyclic %d %s)" sexp-diary-entry-symbol calendar-read "Repeat every how many days: " (lambda (x) (> x 0)) calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" nil t arg] 9 "\ Insert a cyclic diary entry starting at the date given by point. Prefix arg will make the entry nonmarking." "P"]) (fset 'insert-hebrew-diary-entry #[(arg) " !AA@S !@\n !A@ !AA@  \nS_\\\nV\n_\\ҥZ ЦU ԦU զUT, _ Х ԥ[ ե\\\\\\\\)!#P\")" [calendar-hebrew-month-name-array-leap-year calendar-month-name-array make-diary-entry hebrew-diary-entry-symbol calendar-date-string calendar-hebrew-from-absolute calendar-cursor-to-date error "Cursor is not on a date!" prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 nil t arg] 10 "\ Insert a diary entry. For the Hebrew date corresponding to the date indicated by point. Prefix arg will make the entry nonmarking." "P"]) (fset 'insert-monthly-hebrew-diary-entry #[(arg) "  !AA@S !@ !A@ !AA@S_\\V_\\֥ZԦUئU٦UT, _ ԥ إ[ ٥\\\\\\\\)!!P\"*" [european-calendar-style (day " * ") ("* " day) calendar-date-display-form calendar-hebrew-month-name-array-leap-year calendar-month-name-array make-diary-entry hebrew-diary-entry-symbol calendar-date-string calendar-hebrew-from-absolute calendar-cursor-to-date error "Cursor is not on a date!" prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 arg] 10 "\ Insert a monthly diary entry. For the day of the Hebrew month corresponding to the date indicated by point. Prefix arg will make the entry nonmarking." "P"]) (fset 'insert-yearly-hebrew-diary-entry #[(arg) "  !AA@S !@ !A@ !AA@S_\\V_\\֥ZԦUئU٦UT, _ ԥ إ[ ٥\\\\\\\\)!!P\"*" [european-calendar-style (day " " monthname) (monthname " " day) calendar-date-display-form calendar-hebrew-month-name-array-leap-year calendar-month-name-array make-diary-entry hebrew-diary-entry-symbol calendar-date-string calendar-hebrew-from-absolute calendar-cursor-to-date error "Cursor is not on a date!" prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 arg] 10 "\ Insert an annual diary entry. For the day of the Hebrew year corresponding to the date indicated by point. Prefix arg will make the entry nonmarking." "P"]) (fset 'insert-islamic-diary-entry #[(arg) " !AA@S !@\n !A@ !AA@  \nS_\\\nV\n_\\ҥZ ЦU ԦU զUT, _ Х ԥ[ ե\\\\\\\\)!#P\")" [calendar-islamic-month-name-array calendar-month-name-array make-diary-entry islamic-diary-entry-symbol calendar-date-string calendar-islamic-from-absolute calendar-cursor-to-date error "Cursor is not on a date!" prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 nil t arg] 10 "\ Insert a diary entry. For the Islamic date corresponding to the date indicated by point. Prefix arg will make the entry nonmarking." "P"]) (fset 'insert-monthly-islamic-diary-entry #[(arg) "  !AA@S !@ !A@ !AA@S_\\V_\\֥ZԦUئU٦UT, _ ԥ إ[ ٥\\\\\\\\)!!P\"*" [european-calendar-style (day " * ") ("* " day) calendar-date-display-form calendar-islamic-month-name-array calendar-month-name-array make-diary-entry islamic-diary-entry-symbol calendar-date-string calendar-islamic-from-absolute calendar-cursor-to-date error "Cursor is not on a date!" prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 arg] 10 "\ Insert a monthly diary entry. For the day of the Islamic month corresponding to the date indicated by point. Prefix arg will make the entry nonmarking." "P"]) (fset 'insert-yearly-islamic-diary-entry #[(arg) "  !AA@S !@ !A@ !AA@S_\\V_\\֥ZԦUئU٦UT, _ ԥ إ[ ٥\\\\\\\\)!!P\"*" [european-calendar-style (day " " monthname) (monthname " " day) calendar-date-display-form calendar-islamic-month-name-array calendar-month-name-array make-diary-entry islamic-diary-entry-symbol calendar-date-string calendar-islamic-from-absolute calendar-cursor-to-date error "Cursor is not on a date!" prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 arg] 10 "\ Insert an annual diary entry. For the day of the Islamic year corresponding to the date indicated by point. Prefix arg will make the entry nonmarking." "P"]) (provide 'diary-ins)