;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 30 19:47:00 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/cal-menu.el ;;; emacs version 19.28.92.13. ;;; 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.28.90"))) (error "`cal-menu.el' was compiled for Emacs 19.29 or later")) (byte-code " # # #!! \fB\f  #  # !B# # !B# # # # # # # # # # # # # # !B# # # # # !B# # !B# @A# BC# DE# FG# HI# JK# LM# NO# PQ# RS# TU# VW# XY# Z[# \\]# ^_# `a# bc# de# fgʁg!B# hi# jk# lm# no# pq# rs#tuvw#txvy#tzv{#t|v}#t~v#tv#tv#tv#tv#tv#tv#tv#tv#tv#tv#tv#tv#tv#tv#tv#tv#tv#tv#tv#tv#tv#tv#" [define-key calendar-mode-map [menu-bar edit] undefined [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 julian] ("Julian Date" . calendar-goto-julian-date) [menu-bar goto islamic] ("Islamic Date" . calendar-goto-islamic-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)] 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@)A@:\nA@@\nA@)b\f!)" [last-input-event event position calendar-cursor-to-date error] 3 (#$ . 6212)]) #@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 (#$ . 6526) "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 (#$ . 6957) "e"]) #@52 Show sunrise/sunset times for mouse-selected date. (defalias 'calendar-mouse-sunrise/sunset #[nil " ! )" [calendar-goto-date calendar-event-to-date calendar-sunrise-sunset] 2 (#$ . 7397) nil]) #@40 Show holidays for mouse-selected date. (defalias 'calendar-mouse-holidays #[nil " ! )" [calendar-goto-date calendar-event-to-date calendar-cursor-holidays] 2 (#$ . 7602) nil]) #@44 View diary entries on mouse-selected date. (defalias 'calendar-mouse-view-diary-entries #[nil " !!)" [calendar-goto-date calendar-event-to-date view-diary-entries 1] 2 (#$ . 7790) nil]) #@66 View diary entries from alternative file on mouse-selected date. (defalias 'calendar-mouse-view-other-diary-entries #[nil " !!)" [calendar-goto-date calendar-event-to-date call-interactively view-other-diary-entries] 2 (#$ . 7989) nil]) #@45 Insert diary entry for mouse-selected date. (defalias 'calendar-mouse-insert-diary-entry #[nil " !!)" [calendar-goto-date calendar-event-to-date insert-diary-entry nil] 2 (#$ . 8239) nil]) #@33 Mark the date under the cursor. (defalias 'calendar-mouse-set-mark #[nil " !!)" [calendar-goto-date calendar-event-to-date calendar-set-mark nil] 2 (#$ . 8441) nil]) #@57 Pop up menu of equivalent dates to mouse selected date. (defalias 'calendar-mouse-print-dates #[nil "  !P !C !\"C !\"C !\"C !\"C !Ԙ?A\"CC) !Ԙ?U\"CC) !\"CC$D\")" [calendar-event-to-date date x-popup-menu event "Date Menu" append calendar-date-string " (Gregorian)" calendar-day-of-year-string format "ISO date: %s" calendar-iso-date-string "Julian date: %s" calendar-julian-date-string "Astronomical (Julian) date (before noon): %s" calendar-astro-date-string "Hebrew date (before sunset): %s" calendar-hebrew-date-string calendar-islamic-date-string i "" "Islamic date (before sunset): %s" calendar-french-date-string f "French Revolutionary date: %s" "Mayan date: %s" calendar-mayan-date-string] 14 (#$ . 8620) nil]) #@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 "Menu" calendar-date-string ("Holidays" . calendar-mouse-holidays) ("Mark date" . calendar-mouse-set-mark) ("Sunrise/sunset" . calendar-mouse-sunrise/sunset) ("Other calendars" . calendar-mouse-print-dates) ("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] 12 (#$ . 9393) "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)