;ELC ;;; compiled by reingold@albert.gnu.ai.mit.edu on Fri Jul 22 16:41:13 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/cal-menu.el ;;; emacs version 19.25.91.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 "`/gd/gnu/emacs/19.0/lisp/cal-menu.el' was compiled for Emacs 19")) (byte-code " # #!! # !B# # !B# # # # # # # # # # # # # !B# # # # # !B# # !B# # # # @A# BC# DE# FG# HI# JK# LM# NO# PQ# RS# TU# VW# XY# Z[# \\]# ^_# `aȁa!B# bc# de# fg# hi# jk# lm#nopq#nrps#ntpu#nvpw#nxpy#nzp{#n|p}#n~p#np#np#np#np#np#np#np#np#np#np#np#np#np#np#np#np#np#np#" [define-key calendar-mode-map [down-mouse-2] calendar-mouse-2-date-menu [mouse-2] ignore boundp calendar-mouse-3-map make-sparse-keymap "Calendar" [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 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) 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) (defalias 'calendar-event-to-date #[(&optional error) "A@)A@:\nA@@\nA@)b\f!)" [last-input-event event position calendar-cursor-to-date error] 3 "\ 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-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 "\ Pop up menu to insert a Hebrew-date diary entry." "e"]) (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 "\ Pop up menu to insert an Islamic-date diary entry." "e"]) (defalias 'calendar-mouse-sunrise/sunset #[nil " ! )" [calendar-goto-date calendar-event-to-date calendar-sunrise-sunset] 2 "\ Show sunrise/sunset times for mouse-selected date." nil]) (defalias 'calendar-mouse-holidays #[nil " ! )" [calendar-goto-date calendar-event-to-date calendar-cursor-holidays] 2 "\ Show holidays for mouse-selected date." nil]) (defalias 'calendar-mouse-view-diary-entries #[nil " !!)" [calendar-goto-date calendar-event-to-date view-diary-entries 1] 2 "\ View diary entries on mouse-selected date." nil]) (defalias 'calendar-mouse-set-mark #[nil " !!)" [calendar-goto-date calendar-event-to-date calendar-set-mark nil] 2 "\ Mark the date under the cursor." nil]) (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 "\ Pop up menu of equivalent dates to mouse selected date." nil]) (defalias 'calendar-mouse-2-date-menu #[(event) "!\f\n#˯D\"\f\f!*" [calendar-event-to-date t date x-popup-menu event "Menu" calendar-date-string ("Diary entries" . calendar-mouse-view-diary-entries) ("Holidays" . calendar-mouse-holidays) ("Mark date" . calendar-mouse-set-mark) ("Sunrise/sunset" . calendar-mouse-sunrise/sunset) ("Other calendars" . calendar-mouse-print-dates) selection call-interactively] 10 "\ Pop up menu for Mouse-2 for selected date in the calendar window." "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)