;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sat Sep 3 18:12:16 1994 ;;; from file /home/fsf/rms/e19/lisp/diary-ins.el ;;; emacs version 19.25.94.1. ;;; 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 "`/home/fsf/rms/e19/lisp/diary-ins.el' was compiled for Emacs 19")) (require (quote diary-lib)) (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 "\ Insert a diary entry STRING which may be NONMARKING in FILE. If omitted, NONMARKING defaults to nil and FILE defaults to diary-file."]) (defalias 'insert-diary-entry #[(arg) "ÀÁÂÃ!É#\f\"‡" [make-diary-entry calendar-date-string calendar-cursor-to-date t arg] 5 "\ Insert a diary entry for the date indicated by point. Prefix arg will make the entry nonmarking." "P"]) (defalias 'insert-weekly-diary-entry #[(arg) "ÀÁÂÃ!!\f\"‡" [make-diary-entry calendar-day-name calendar-cursor-to-date t arg] 4 "\ Insert a weekly diary entry for the day of the week indicated by point. Prefix arg will make the entry nonmarking." "P"]) (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 "\ Insert a monthly diary entry for the day of the month indicated by point. Prefix arg will make the entry nonmarking." "P"]) (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 "\ Insert an annual diary entry for the day of the year indicated by point. Prefix arg will make the entry nonmarking." "P"]) (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 "\ Insert an anniversary diary entry for the date given by point. Prefix arg will make the entry nonmarking." "P"]) (defalias 'insert-block-diary-entry #[(arg) "ƒÁ‚ ÂÄÅ!@†ÈÉ!\nË\fË \nAA@S\n@\nA@\nAA@SÒ_\\ÔVƒxÕ_Ö\\×¥ZÕ¦ØUƒxÙ¦ØUƒsÚ¦ØUƒxT,Û_Õ¥Ù¥[Ú¥\\\\\\\\)AA@S@A@AA@SÒ_\\ÔVƒéÕ_Ö\\×¥ZÕ¦ØUƒéÙ¦ØUƒäÚ¦ØUƒéT,Û_Õ¥Ù¥[Ú¥\\\\\\\\)Wƒ\n\f ‚\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 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] 9 "\ Insert a block diary entry for the days between the point and marked date. Prefix arg will make the entry nonmarking." "P"]) (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 "\ Insert a cyclic diary entry starting at the date given by point. Prefix arg will make the entry nonmarking." "P"]) (defalias 'insert-hebrew-diary-entry #[(arg) " ÄÅÆÇ!AA@SÆÇ!@ ÆÇ!A@\nÆÇ!AA@ \n SÌ_\\  ÎVƒb  Ï_Ð\\Ñ¥Z  ϦÒUƒb Ó¦ÒUƒ] Ô¦ÒUƒb T  ,Õ_Ï¥Ó¥[Ô¥\\\\\\\\)!ÖÇ#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 prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 nil 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"]) (defalias 'insert-monthly-hebrew-diary-entry #[(arg) "ƒÁ‚ Â\fÆÈÉÊË!AA@S\fÊË!@ ÊË!A@ÊË!AA@ SÐ_\\ ÒVƒm Ó_Ô\\Õ¥ZÓ¦ÖUƒmצÖUƒhئÖUƒmT,\fÙ_\fÓ¥\f×¥[\fØ¥\\\\\\\\)!!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 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"]) (defalias 'insert-yearly-hebrew-diary-entry #[(arg) "ƒÁ‚ Â\fÆÈÉÊË!AA@S\fÊË!@ ÊË!A@ÊË!AA@ SÐ_\\ ÒVƒm Ó_Ô\\Õ¥ZÓ¦ÖUƒmצÖUƒhئÖUƒmT,\fÙ_\fÓ¥\f×¥[\fØ¥\\\\\\\\)!!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 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"]) (defalias 'insert-islamic-diary-entry #[(arg) " ÄÅÆÇ!AA@SÆÇ!@ ÆÇ!A@\nÆÇ!AA@ \n SÌ_\\  ÎVƒb  Ï_Ð\\Ñ¥Z  ϦÒUƒb Ó¦ÒUƒ] Ô¦ÒUƒb T  ,Õ_Ï¥Ó¥[Ô¥\\\\\\\\)!ÖÇ#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 prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 nil 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"]) (defalias 'insert-monthly-islamic-diary-entry #[(arg) "ƒÁ‚ Â\fÆÈÉÊË!AA@S\fÊË!@ ÊË!A@ÊË!AA@ SÐ_\\ ÒVƒm Ó_Ô\\Õ¥ZÓ¦ÖUƒmצÖUƒhئÖUƒmT,\fÙ_\fÓ¥\f×¥[\fØ¥\\\\\\\\)!!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 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"]) (defalias 'insert-yearly-islamic-diary-entry #[(arg) "ƒÁ‚ Â\fÆÈÉÊË!AA@S\fÊË!@ ÊË!A@ÊË!AA@ SÐ_\\ ÒVƒm Ó_Ô\\Õ¥ZÓ¦ÖUƒmצÖUƒhئÖUƒmT,\fÙ_\fÓ¥\f×¥[\fØ¥\\\\\\\\)!!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 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 (quote diary-ins))