;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 2 20:20:30 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/diary-ins.el ;;; emacs version 19.28.90.69. ;;; bytecomp version FSF 2.10 ;;; 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 "`/gd/gnu/emacs/19.0/lisp/diary-ins.el' was compiled for Emacs 19")) (require (quote diary-lib)) #@134 Insert a diary entry STRING which may be NONMARKING in FILE. If omitted, NONMARKING defaults to nil and FILE defaults to diary-file. (defalias 'make-diary-entry #[(string &optional nonmarking file) "ÀÁ\nƒ\n\n‚ !!ˆdbˆnƒÄ‚Ń$‚%Äɱ‡" [find-file-other-window substitute-in-file-name file diary-file "" "\n" nonmarking diary-nonmarking-symbol string " "] 4 (#$ . 516)]) #@98 Insert a diary entry for the date indicated by point. Prefix arg will make the entry nonmarking. (defalias 'insert-diary-entry #[(arg) "ÀÁÂÃ!É#\f\"‡" [make-diary-entry calendar-date-string calendar-cursor-to-date t arg] 5 (#$ . 903) "P"]) #@116 Insert a weekly diary entry for the day of the week indicated by point. Prefix arg will make the entry nonmarking. (defalias 'insert-weekly-diary-entry #[(arg) "ÀÁÂÃ!!\f\"‡" [make-diary-entry calendar-day-name calendar-cursor-to-date t arg] 4 (#$ . 1150) "P"]) #@118 Insert a monthly diary entry for the day of the month indicated by point. Prefix arg will make the entry nonmarking. (defalias 'insert-monthly-diary-entry #[(arg) "ƒÁ‚ ÂÄÅÆÇ!Ç\"\")‡" [european-calendar-style (day " * ") ("* " day) calendar-date-display-form make-diary-entry calendar-date-string calendar-cursor-to-date t arg] 4 (#$ . 1418) "P"]) #@117 Insert an annual diary entry for the day of the year indicated by point. Prefix arg will make the entry nonmarking. (defalias 'insert-yearly-diary-entry #[(arg) "ƒÁ‚ ÂÄÅÆÇ!Ç\"\")‡" [european-calendar-style (day " " monthname) (monthname " " day) calendar-date-display-form make-diary-entry calendar-date-string calendar-cursor-to-date t arg] 4 (#$ . 1779) "P"]) #@107 Insert an anniversary diary entry for the date given by point. Prefix arg will make the entry nonmarking. (defalias 'insert-anniversary-diary-entry #[(arg) "ƒÁ‚ ÂÄÅÆÈÉÊ!ËÊ##\f\")‡" [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 t nil arg] 8 (#$ . 2155) "P"]) #@119 Insert a block diary entry for the days between the point and marked date. Prefix arg will make the entry nonmarking. (defalias 'insert-block-diary-entry #[(arg) "ƒÁ‚ ÂÄÅ!@†ÈÉ!\nË\fË \n‰‰AA@)S‰‰@)‰A@)‰AA@)SÓ_\\ÕVƒ“Ö_×\\Ø¥Z‰Ö¦ÙU…ŠÚ¦ÙU?†ŠÛ¦ÙU)ƒ“T-Ü_Ö¥Ú¥[Û¥\\\\\\\\*‰‰AA@)S‰‰@)‰A@)‰AA@)SÓ_\\ÕVƒÖ_×\\Ø¥Z‰Ö¦ÙU…Ú¦ÙU?†Û¦ÙU)ƒT-Ü_Ö¥Ú¥[Û¥\\\\\\\\*WƒG\n\f ‚O\f\n ÝÞß á\fËÅ#á ËÅ#$\"\"-‡" [european-calendar-style (day " " month " " year) (month " " day " " year) calendar-date-display-form calendar-cursor-to-date t cursor calendar-mark-ring error "No mark set in this buffer" mark nil start end date 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 arg] 10 (#$ . 2604) "P"]) #@109 Insert a cyclic diary entry starting at the date given by point. Prefix arg will make the entry nonmarking. (defalias '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 t nil arg] 9 (#$ . 3554) "P"]) #@132 Insert a diary entry. For the Hebrew date corresponding to the date indicated by point. Prefix arg will make the entry nonmarking. (defalias 'insert-hebrew-diary-entry #[(arg) " ÄÅÆÇ!‰‰AA@)S ‰‰@)\n‰A@) ‰AA@)\f \nSÍ_\\\nÏVƒz\nÐ_Ñ\\Ò¥Z\f‰\fЦÓU…q\fÔ¦ÓU?†q\fÕ¦ÓU)ƒzT- Ö_ Ð¥ Ô¥[ Õ¥\\\\\\\\*!×Ç#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 t date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 nil arg] 12 (#$ . 4068) "P"]) #@152 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. (defalias 'insert-monthly-hebrew-diary-entry #[(arg) "ƒÁ‚ Â\fÆÈÉÊË!‰\f‰\fAA@)S \f‰\f‰\f@)\f‰\fA@)\f‰\fAA@)SÑ_\\ÓVƒ…Ô_Õ\\Ö¥Z‰Ô¦×U…|ئ×U?†|Ù¦×U)ƒ…T- Ú_ Ô¥ Ø¥[ Ù¥\\\\\\\\*!!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 t date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 arg] 12 (#$ . 4718) "P"]) #@151 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. (defalias 'insert-yearly-hebrew-diary-entry #[(arg) "ƒÁ‚ Â\fÆÈÉÊË!‰\f‰\fAA@)S \f‰\f‰\f@)\f‰\fA@)\f‰\fAA@)SÑ_\\ÓVƒ…Ô_Õ\\Ö¥Z‰Ô¦×U…|ئ×U?†|Ù¦×U)ƒ…T- Ú_ Ô¥ Ø¥[ Ù¥\\\\\\\\*!!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 t date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 arg] 12 (#$ . 5476) "P"]) #@133 Insert a diary entry. For the Islamic date corresponding to the date indicated by point. Prefix arg will make the entry nonmarking. (defalias 'insert-islamic-diary-entry #[(arg) " ÄÅÆÇ!‰‰AA@)S ‰‰@)\n‰A@) ‰AA@)\f \nSÍ_\\\nÏVƒz\nÐ_Ñ\\Ò¥Z\f‰\fЦÓU…q\fÔ¦ÓU?†q\fÕ¦ÓU)ƒzT- Ö_ Ð¥ Ô¥[ Õ¥\\\\\\\\*!×Ç#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 t date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 nil arg] 12 (#$ . 6249) "P"]) #@153 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. (defalias 'insert-monthly-islamic-diary-entry #[(arg) "ƒÁ‚ Â\fÆÈÉÊË!‰\f‰\fAA@)S \f‰\f‰\f@)\f‰\fA@)\f‰\fAA@)SÑ_\\ÓVƒ…Ô_Õ\\Ö¥Z‰Ô¦×U…|ئ×U?†|Ù¦×U)ƒ…T- Ú_ Ô¥ Ø¥[ Ù¥\\\\\\\\*!!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 t date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 arg] 12 (#$ . 6894) "P"]) #@152 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. (defalias 'insert-yearly-islamic-diary-entry #[(arg) "ƒÁ‚ Â\fÆÈÉÊË!‰\f‰\fAA@)S \f‰\f‰\f@)\f‰\fA@)\f‰\fAA@)SÑ_\\ÓVƒ…Ô_Õ\\Ö¥Z‰Ô¦×U…|ئ×U?†|Ù¦×U)ƒ…T- Ú_ Ô¥ Ø¥[ Ù¥\\\\\\\\*!!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 t date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 arg] 12 (#$ . 7647) "P"]) (provide (quote diary-ins))