;ELC ;;; compiled by rms@delasyd.gnu.ai.mit.edu on Wed May 1 13:45:48 1996 ;;; from file /home/fsf/rms/e19/lisp/cal-menu.el ;;; emacs version 19.30.99.4. ;;; 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.29"))) (error "`cal-menu.el' was compiled for Emacs 19.29 or later")) (byte-code "À ÂÃ#ˆÀ ÄÃ#ˆÀ ÅÆ#ˆÀ ÇÈ#ˆÉÊ!„#ËÌ!\nÊ B À Î\n#ˆÀ Ï\n#ˆÀ ÐÑËÑ!B#ˆÀ ÒÓ#ˆÀ ÔÕËÕ!B#ˆÀ Ö×#ˆÀ ØÙ#ˆÀ ÚÛ#ˆÀ ÜÝ#ˆÀ Þß#ˆÀ àá#ˆÀ âã#ˆÀ äå#ˆÀ æç#ˆÀ èé#ˆÀ êë#ˆÀ ìí#ˆÀ îï#ˆÀ ðñËñ!B#ˆÀ òó#ˆÀ ôõ#ˆÀ ö÷#ˆÀ øù#ˆÀ úûËû!B#ˆÀ üý#ˆÀ þÿË@!B#ˆÀ AB#ˆÀ CD#ˆÀ EF#ˆÀ GH#ˆÀ IJ#ˆÀ KL#ˆÀ MN#ˆÀ OP#ˆÀ QR#ˆÀ ST#ˆÀ UV#ˆÀ WX#ˆÀ YZ#ˆÀ [\\#ˆÀ ]^#ˆÀ _`#ˆÀ ab#ˆÀ cd#ˆÀ ef#ˆÀ gh#ˆÀ ij#ˆÀ kl#ˆÀ mn#ˆÀ opËp!B#ˆÀ qr#ˆÀ st#ˆÀ uv#ˆÀ wx#ˆÀ yz#ˆÀ {|#ˆ}~€#ˆ}‚#ˆ}ƒ„#ˆ}…†#ˆ}‡ˆ#ˆ}‰Š#ˆ}‹Œ#ˆ}Ž#ˆ}#ˆ}‘’#ˆ}“”#ˆ}•–#ˆ}—˜#ˆ}™š#ˆ}›œ#ˆ}ž#ˆ}Ÿ #ˆ}¡¢#ˆ}£¤#ˆ}¥¦#ˆ}§¨#ˆ}©ª#ˆ}«¬#ˆ}­®#ˆ}¯°#ˆ}±²#ˆ}³´#ˆ}µ¶#ˆ}·¸#ˆ}¹º#ˆ}»¼#ˆ}½¾#ˆ}¿À#ˆ}ÁÂ#ˆ}ÃÄ#ˆ}ÅÆ#ˆ}ÇÈ#ˆ}ÉÊ#ˆ}ËÌ#‡" [define-key calendar-mode-map [menu-bar edit] undefined [menu-bar search] [down-mouse-2] calendar-mouse-2-date-menu [mouse-2] ignore boundp calendar-mouse-3-map make-sparse-keymap "Calendar" current-load-list [down-mouse-3] [C-down-mouse-3] [menu-bar moon] "Moon" [menu-bar moon moon] ("Lunar Phases" . calendar-phases-of-moon) [menu-bar diary] "Diary" [menu-bar diary heb] ("Insert Hebrew" . calendar-mouse-insert-hebrew-diary-entry) [menu-bar diary isl] ("Insert Islamic" . calendar-mouse-insert-islamic-diary-entry) [menu-bar diary cyc] ("Insert Cyclic" . insert-cyclic-diary-entry) [menu-bar diary blk] ("Insert Block" . insert-block-diary-entry) [menu-bar diary ann] ("Insert Anniversary" . insert-anniversary-diary-entry) [menu-bar diary yr] ("Insert Yearly" . insert-yearly-diary-entry) [menu-bar diary mon] ("Insert Monthly" . insert-monthly-diary-entry) [menu-bar diary wk] ("Insert Weekly" . insert-weekly-diary-entry) [menu-bar diary ent] ("Insert Daily" . insert-diary-entry) [menu-bar diary all] ("Show All" . show-all-diary-entries) [menu-bar diary mark] ("Mark All" . mark-diary-entries) [menu-bar diary view] ("Cursor Date" . view-diary-entries) [menu-bar diary view] ("Other File" . view-other-diary-entries) [menu-bar holidays] "Holidays" [menu-bar holidays unmark] ("Unmark" . calendar-unmark) [menu-bar holidays mark] ("Mark" . mark-calendar-holidays) [menu-bar holidays 3-mon] ("3 Months" . list-calendar-holidays) [menu-bar holidays 1-day] ("One Day" . calendar-cursor-holidays) [menu-bar goto] "Goto" [menu-bar goto french] ("French Date" . calendar-goto-french-date) [menu-bar goto mayan] "Mayan Date" "Mayan" [menu-bar goto ethiopic] ("Ethiopic Date" . calendar-goto-ethiopic-date) [menu-bar goto coptic] ("Coptic Date" . calendar-goto-coptic-date) [menu-bar goto chinese] ("Chinese Date" . calendar-goto-chinese-date) [menu-bar goto julian] ("Julian Date" . calendar-goto-julian-date) [menu-bar goto islamic] ("Islamic Date" . calendar-goto-islamic-date) [menu-bar goto persian] ("Persian Date" . calendar-goto-persian-date) [menu-bar goto hebrew] ("Hebrew Date" . calendar-goto-hebrew-date) [menu-bar goto astro] ("Astronomical Date" . calendar-goto-astro-day-number) [menu-bar goto iso] ("ISO Date" . calendar-goto-iso-date) [menu-bar goto gregorian] ("Other Date" . calendar-goto-date) [menu-bar goto end-of-year] ("End of Year" . calendar-end-of-year) [menu-bar goto beginning-of-year] ("Beginning of Year" . calendar-beginning-of-year) [menu-bar goto end-of-month] ("End of Month" . calendar-end-of-month) [menu-bar goto beginning-of-month] ("Beginning of Month" . calendar-beginning-of-month) [menu-bar goto end-of-week] ("End of Week" . calendar-end-of-week) [menu-bar goto beginning-of-week] ("Beginning of Week" . calendar-beginning-of-week) [menu-bar goto today] ("Today" . calendar-goto-today) [menu-bar goto mayan prev-rnd] ("Previous Round" . calendar-previous-calendar-round-date) [menu-bar goto mayan nxt-rnd] ("Next Round" . calendar-next-calendar-round-date) [menu-bar goto mayan prev-haab] ("Previous Haab" . calendar-previous-haab-date) [menu-bar goto mayan next-haab] ("Next Haab" . calendar-next-haab-date) [menu-bar goto mayan prev-tzol] ("Previous Tzolkin" . calendar-previous-tzolkin-date) [menu-bar goto mayan next-tzol] ("Next Tzolkin" . calendar-next-tzolkin-date) [menu-bar scroll] "Scroll" [menu-bar scroll bk-12] ("Backward 1 Year" . "4v") [menu-bar scroll bk-3] ("Backward 3 Months" . scroll-calendar-right-three-months) [menu-bar scroll bk-1] ("Backward 1 Month" . scroll-calendar-right) [menu-bar scroll fwd-12] ("Forward 1 Year" . "4") [menu-bar scroll fwd-3] ("Forward 3 Months" . scroll-calendar-left-three-months) [menu-bar scroll fwd-1] ("Forward 1 Month" . scroll-calendar-left) put calendar-forward-day menu-enable (calendar-cursor-to-date) calendar-backward-day (calendar-cursor-to-date) calendar-forward-week (calendar-cursor-to-date) calendar-backward-week (calendar-cursor-to-date) calendar-forward-month (calendar-cursor-to-date) calendar-backward-month (calendar-cursor-to-date) calendar-forward-year (calendar-cursor-to-date) calendar-backward-year (calendar-cursor-to-date) calendar-beginning-of-year (calendar-cursor-to-date) calendar-end-of-year (calendar-cursor-to-date) calendar-beginning-of-month (calendar-cursor-to-date) calendar-end-of-month (calendar-cursor-to-date) calendar-end-of-week (calendar-cursor-to-date) calendar-beginning-of-week (calendar-cursor-to-date) calendar-mouse-print-dates (calendar-event-to-date) calendar-sunrise-sunset (calendar-event-to-date) calendar-cursor-holidays (calendar-cursor-to-date) view-diary-entries (calendar-cursor-to-date) view-other-diary-entries (calendar-cursor-to-date) calendar-mouse-insert-hebrew-diary-entry (calendar-cursor-to-date) calendar-mouse-insert-islamic-diary-entry (calendar-cursor-to-date) insert-cyclic-diary-entry (calendar-cursor-to-date) insert-block-diary-entry (calendar-cursor-to-date) insert-anniversary-diary-entry (calendar-cursor-to-date) insert-yearly-diary-entry (calendar-cursor-to-date) insert-monthly-diary-entry (calendar-cursor-to-date) insert-weekly-diary-entry (calendar-cursor-to-date) cal-tex-cursor-day (calendar-cursor-to-date) cal-tex-cursor-week (calendar-cursor-to-date) cal-tex-cursor-week2 (calendar-cursor-to-date) cal-tex-cursor-week-iso (calendar-cursor-to-date) cal-tex-cursor-week-monday (calendar-cursor-to-date) cal-tex-cursor-filofax-2week (calendar-cursor-to-date) cal-tex-cursor-filofax-week (calendar-cursor-to-date) cal-tex-cursor-month (calendar-cursor-to-date) cal-tex-cursor-month-landscape (calendar-cursor-to-date) cal-tex-cursor-year (calendar-cursor-to-date) cal-tex-cursor-filofax-year (calendar-cursor-to-date) cal-tex-cursor-year-landscape (calendar-cursor-to-date)] 6) #@136 Date of last event. If event is not on a specific date, signals an error if optional parameter ERROR is t, otherwise just returns nil. (defalias 'calendar-event-to-date #[(&optional error) "ŠÀ ‰A@)‰@)!qˆ ‰A@)‰A@:ƒ$ A@@‚' A@)bˆÄ !)‡" [window-buffer last-input-event event position calendar-cursor-to-date error] 3 (#$ . 7335)]) #@50 Pop up menu to insert a Hebrew-date diary entry. (defalias 'calendar-mouse-insert-hebrew-diary-entry #[(event) "À ÂÃÄ !ÅÆÇFD\"‰…É!)‡" [x-popup-menu event "Hebrew insert menu" calendar-hebrew-date-string calendar-cursor-to-date ("One time" . insert-hebrew-diary-entry) ("Monthly" . insert-monthly-hebrew-diary-entry) ("Yearly" . insert-yearly-hebrew-diary-entry) hebrew-selection call-interactively] 8 (#$ . 7674) "e"]) #@52 Pop up menu to insert an Islamic-date diary entry. (defalias 'calendar-mouse-insert-islamic-diary-entry #[(event) "À ÂÃÄ !ÅÆÇFD\"‰…É!)‡" [x-popup-menu event "Islamic insert menu" calendar-islamic-date-string calendar-cursor-to-date ("One time" . insert-islamic-diary-entry) ("Monthly" . insert-monthly-islamic-diary-entry) ("Yearly" . insert-yearly-islamic-diary-entry) islamic-selection call-interactively] 8 (#$ . 8105) "e"]) #@52 Show sunrise/sunset times for mouse-selected date. (defalias 'calendar-mouse-sunrise/sunset #[nil "ŠÀÁ !ˆÂ )‡" [calendar-mouse-goto-date calendar-event-to-date calendar-sunrise-sunset] 2 (#$ . 8545) nil]) #@40 Show holidays for mouse-selected date. (defalias 'calendar-mouse-holidays #[nil "ŠÀÁ !ˆÂ )‡" [calendar-mouse-goto-date calendar-event-to-date calendar-cursor-holidays] 2 (#$ . 8756) nil]) #@44 View diary entries on mouse-selected date. (defalias 'calendar-mouse-view-diary-entries #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date view-diary-entries 1] 2 (#$ . 8950) nil]) #@66 View diary entries from alternative file on mouse-selected date. (defalias 'calendar-mouse-view-other-diary-entries #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date call-interactively view-other-diary-entries] 2 (#$ . 9155) nil]) #@45 Insert diary entry for mouse-selected date. (defalias 'calendar-mouse-insert-diary-entry #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date insert-diary-entry nil] 2 (#$ . 9411) nil]) #@33 Mark the date under the cursor. (defalias 'calendar-mouse-set-mark #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date calendar-set-mark nil] 2 (#$ . 9619) nil]) #@60 Make a buffer with LaTeX commands for the day mouse is on. (defalias 'cal-tex-mouse-day #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date cal-tex-cursor-day nil] 2 (#$ . 9804) nil]) #@99 One page calendar for week indicated by cursor. Holidays are included if `cal-tex-holidays' is t. (defalias 'cal-tex-mouse-week #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date cal-tex-cursor-week nil] 2 (#$ . 10011) nil]) #@103 Make a buffer with LaTeX commands for the week cursor is on. The printed output will be on two pages. (defalias 'cal-tex-mouse-week2 #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date cal-tex-cursor-week2 nil] 2 (#$ . 10261) nil]) #@99 One page calendar for week indicated by cursor. Holidays are included if `cal-tex-holidays' is t. (defalias 'cal-tex-mouse-week-iso #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date cal-tex-cursor-week-iso nil] 2 (#$ . 10516) nil]) #@49 One page calendar for week indicated by cursor. (defalias 'cal-tex-mouse-week-monday #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date cal-tex-cursor-week-monday nil] 2 (#$ . 10773) nil]) #@57 One page Filofax calendar for week indicated by cursor. (defalias 'cal-tex-mouse-filofax-2week #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date cal-tex-cursor-filofax-2week nil] 2 (#$ . 10986) nil]) #@57 Two page Filofax calendar for week indicated by cursor. (defalias 'cal-tex-mouse-filofax-week #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date cal-tex-cursor-filofax-week nil] 2 (#$ . 11211) nil]) #@100 Make a buffer with LaTeX commands for the month cursor is on. Calendar is condensed onto one page. (defalias 'cal-tex-mouse-month #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date cal-tex-cursor-month nil] 2 (#$ . 11435) nil]) #@119 Make a buffer with LaTeX commands for the month cursor is on. The output is in landscape format, one month to a page. (defalias 'cal-tex-mouse-month-landscape #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date cal-tex-cursor-month-landscape nil] 2 (#$ . 11688) nil]) #@62 Make a buffer with LaTeX commands for the year cursor is on. (defalias 'cal-tex-mouse-year #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date cal-tex-cursor-year nil] 2 (#$ . 11979) nil]) #@78 Make a buffer with LaTeX commands for Filofax calendar of year cursor is on. (defalias 'cal-tex-mouse-filofax-year #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date cal-tex-cursor-filofax-year nil] 2 (#$ . 12191) nil]) #@62 Make a buffer with LaTeX commands for the year cursor is on. (defalias 'cal-tex-mouse-year-landscape #[nil "ŠÀÁ !ˆÂÃ!)‡" [calendar-mouse-goto-date calendar-event-to-date cal-tex-cursor-year-landscape nil] 2 (#$ . 12435) nil]) #@57 Pop up menu of equivalent dates to mouse selected date. (defalias 'calendar-mouse-print-dates #[nil "À Á\nÃ\f!ÅPÆÃ\f!ÅPÇ\f!CÈÉÊ\f!\"CÈËÌ\f!\"CÈÍÎ\f!\"CÈÏÐ\f!\"CÈÑÒ\f!\"C¯Ó\f!‰Õ˜?…KÈÖ\"CC)È×Ø\f!\"CCÙ\f!‰Õ˜?…gÈÛ\"CC)Ü\f!‰Õ˜?…{ÈÞ\"CC)ß\f!‰ Õ˜?…Èá \"CC)Èâã\f!\"CC&D\"$$…¨å$!*‡" [calendar-event-to-date x-popup-menu event calendar-date-string date " (Gregorian)" append calendar-day-of-year-string format "ISO date: %s" calendar-iso-date-string "Julian date: %s" calendar-julian-date-string "Astronomical (Julian) day number (at noon UTC): %s.0" calendar-astro-date-string "Hebrew date (before sunset): %s" calendar-hebrew-date-string "Persian date: %s" calendar-persian-date-string calendar-islamic-date-string i "" "Islamic date (before sunset): %s" "Chinese date: %s" calendar-chinese-date-string calendar-coptic-date-string c "Coptic date: %s" calendar-ethiopic-date-string e "Ethiopic date: %s" calendar-french-date-string f "French Revolutionary date: %s" "Mayan date: %s" calendar-mayan-date-string selection call-interactively] 16 (#$ . 12667) nil]) #@50 Show Chinese equivalent for mouse-selected date. (defalias 'calendar-mouse-chinese-date #[nil "ŠÀÁ !ˆÂ )‡" [calendar-mouse-goto-date calendar-event-to-date calendar-print-chinese-date] 2 (#$ . 13752) nil]) (defalias 'calendar-mouse-goto-date #[(date) "À ‰A@)‰@)!qˆÄ !‡" [window-buffer last-input-event event position calendar-goto-date date] 3]) #@67 Pop up menu for Mouse-2 for selected date in the calendar window. (defalias 'calendar-mouse-2-date-menu #[(event) "ÀÁ!Ã\fÅ\nÁÆ#ÇÈÉÊËÌÍÎϯ D\"‰…\"Ñ!*‡" [calendar-event-to-date t date x-popup-menu event calendar-date-string nil "" ("Holidays" . calendar-mouse-holidays) ("Mark date" . calendar-mouse-set-mark) ("Sunrise/sunset" . calendar-mouse-sunrise/sunset) ("Other calendars" . calendar-mouse-print-dates) ("Prepare LaTeX buffer" . calendar-mouse-cal-tex-menu) ("Diary entries" . calendar-mouse-view-diary-entries) ("Insert diary entry" . calendar-mouse-insert-diary-entry) ("Other diary file entries" . calendar-mouse-view-other-diary-entries) selection call-interactively] 13 (#$ . 14106) "e"]) #@91 Pop up submenu for Mouse-2 for cal-tex commands for selected date in the calendar window. (defalias 'calendar-mouse-cal-tex-menu #[(event) "À  ÄÅ#ÆÇÈÉÊËÌÍÎÏЯ D\"‰… Ò!)‡" [x-popup-menu event calendar-date-string date t nil "" ("Daily (1 page)" . cal-tex-mouse-day) ("Weekly (1 page)" . cal-tex-mouse-week) ("Weekly (2 pages)" . cal-tex-mouse-week2) ("Weekly (other style; 1 page)" . cal-tex-mouse-week-iso) ("Weekly (yet another style; 1 page)" . cal-tex-mouse-week-monday) ("Monthly" . cal-tex-mouse-month) ("Monthly (landscape)" . cal-tex-mouse-month-landscape) ("Yearly" . cal-tex-mouse-year) ("Yearly (landscape)" . cal-tex-mouse-year-landscape) ("Filofax styles" . cal-tex-mouse-filofax) selection call-interactively] 15 (#$ . 14817) "e"]) #@80 Pop up sub-submenu for Mouse-2 for Filofax cal-tex commands for selected date. (defalias 'cal-tex-mouse-filofax #[(event) "À  ÄÅ#ÆÇÈÉFD\"‰\n…Ë\n!)‡" [x-popup-menu event calendar-date-string date t nil "" ("Filofax Weekly (2-weeks-at-a-glance)" . cal-tex-mouse-filofax-2week) ("Filofax Weekly (week-at-a-glance)" . cal-tex-mouse-filofax-week) ("Filofax Yearly" . cal-tex-mouse-filofax-year) selection call-interactively] 8 (#$ . 15574) "e"]) (byte-code "À ÂÃ#ˆÀ ÄÅ#ˆÀ ÆÇ#ˆÀ ÈÉ#ˆÀ ÊË#ˆÀ ÌÍ#ˆÀ ÎÏ#ˆÀ ÐÑ#ˆÀ ÒÓ#ˆÔÕ!ˆÖ×!‡" [define-key calendar-mouse-3-map [exit-calendar] ("Exit calendar" . exit-calendar) [show-diary] ("Show diary" . show-all-diary-entries) [lunar-phases] ("Lunar phases" . calendar-phases-of-moon) [unmark] ("Unmark" . calendar-unmark) [mark-holidays] ("Mark holidays" . mark-calendar-holidays) [list-holidays] ("List holidays" . list-calendar-holidays) [mark-diary-entries] ("Mark diary entries" . mark-diary-entries) [scroll-backward] ("Scroll backward" . scroll-calendar-right-three-months) [scroll-forward] ("Scroll forward" . scroll-calendar-left-three-months) run-hooks cal-menu-load-hook provide cal-menu] 4)