;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'calendar)
#@46 Key map for "Sun/Moon" menu in the calendar.
(defconst cal-menu-sunmoon-menu '("Sun/Moon" ["Lunar Phases" calendar-lunar-phases] ["Sunrise/sunset for cursor date" calendar-sunrise-sunset] ["Sunrise/sunset for cursor month" calendar-sunrise-sunset-month]) (#$ . 104))
#@43 Key map for "Diary" menu in the calendar.
(defconst cal-menu-diary-menu '("Diary" ["Other File" diary-view-other-diary-entries] ["Cursor Date" diary-view-entries] ["Mark All" diary-mark-entries] ["Show All" diary-show-all-entries] ["Insert Diary Entry" diary-insert-entry] ["Insert Weekly" diary-insert-weekly-entry] ["Insert Monthly" diary-insert-monthly-entry] ["Insert Yearly" diary-insert-yearly-entry] ["Insert Anniversary" diary-insert-anniversary-entry] ["Insert Block" diary-insert-block-entry] ["Insert Cyclic" diary-insert-cyclic-entry] ("Insert Bahá’í" ["One time" diary-bahai-insert-entry] ["Monthly" diary-bahai-insert-monthly-entry] ["Yearly" diary-bahai-insert-yearly-entry]) ("Insert Chinese" ["One time" diary-chinese-insert-entry] ["Monthly" diary-chinese-insert-monthly-entry] ["Yearly" diary-chinese-insert-yearly-entry] ["Anniversary" diary-chinese-insert-anniversary-entry]) ("Insert Islamic" ["One time" diary-islamic-insert-entry] ["Monthly" diary-islamic-insert-monthly-entry] ["Yearly" diary-islamic-insert-yearly-entry]) ("Insert Hebrew" ["One time" diary-hebrew-insert-entry] ["Monthly" diary-hebrew-insert-monthly-entry] ["Yearly" diary-hebrew-insert-yearly-entry])) (#$ . 377))
#@76 Return a string suffix for the "Window" entry in `cal-menu-holidays-menu'.
(defalias 'cal-menu-holiday-window-suffix #[0 "\300\301!\300\302!\303\304\305@\306\"AAU\203\307\202\303\310A\"\305@\306\"A%\207" [calendar-increment-month-cons -1 1 format "%s%s-%s, %d" calendar-month-name abbrev "" ", %d"] 9 (#$ . 1595)])
#@46 Key map for "Holidays" menu in the calendar.
(defconst cal-menu-holidays-menu (byte-code "\300\301\302\303\304\305\306\307\211\310W\2030\211\311\312\313\"\314\315\"\316\312\317\320\321	\322ZEE$B\262\210\211T\262
\202\210\211\237\262
\323\"BBBBB\207" ["Holidays" ["For Cursor Date -" calendar-cursor-holidays :suffix (calendar-date-string (calendar-cursor-to-date) t t) :visible (calendar-cursor-to-date)] ["For Window -" calendar-list-holidays :suffix (cal-menu-holiday-window-suffix)] ["For Today -" (calendar-cursor-holidays (calendar-current-date)) :suffix (calendar-date-string (calendar-current-date) t t)] "--" append nil 0 11 vector format "hol-year-%d" make-closure #[0 "\302	\300\303Z\\!\207" [V0 displayed-year holiday-list 5] 4 nil nil] :label "For Year %d" + displayed-year 5 ("--" ["Unmark Calendar" calendar-unmark] ["Mark Holidays" calendar-mark-holidays])] 19) (#$ . 1927))
#@42 Key map for "Goto" menu in the calendar.
(defconst cal-menu-goto-menu '("Goto" ["Today" calendar-goto-today] ["Beginning of Week" calendar-beginning-of-week] ["End of Week" calendar-end-of-week] ["Beginning of Month" calendar-beginning-of-month] ["End of Month" calendar-end-of-month] ["Beginning of Year" calendar-beginning-of-year] ["End of Year" calendar-end-of-year] ["Other Date" calendar-goto-date] ["Day of Year" calendar-goto-day-of-year] ["ISO Week" calendar-iso-goto-week] ["ISO Date" calendar-iso-goto-date] ["Astronomical Date" calendar-astro-goto-day-number] ["Hebrew Date" calendar-hebrew-goto-date] ["Persian Date" calendar-persian-goto-date] ["Bahá’í Date" calendar-bahai-goto-date] ["Islamic Date" calendar-islamic-goto-date] ["Julian Date" calendar-julian-goto-date] ["Chinese Date" calendar-chinese-goto-date] ["Coptic Date" calendar-coptic-goto-date] ["Ethiopic Date" calendar-ethiopic-goto-date] ("Mayan Date" ["Next Tzolkin" calendar-mayan-next-tzolkin-date] ["Previous Tzolkin" calendar-mayan-previous-tzolkin-date] ["Next Haab" calendar-mayan-next-haab-date] ["Previous Haab" calendar-mayan-previous-haab-date] ["Next Round" calendar-mayan-next-round-date] ["Previous Round" calendar-mayan-previous-round-date]) ["French Date" calendar-french-goto-date]) (#$ . 2831))
#@44 Key map for "Scroll" menu in the calendar.
(defconst cal-menu-scroll-menu '("Scroll" ["Scroll Commands" nil :help "Commands that scroll the visible window"] ["Forward 1 Month" calendar-scroll-left] ["Forward 3 Months" calendar-scroll-left-three-months] ["Forward 1 Year" (calendar-scroll-left 12) :keys "4 C-v"] ["Backward 1 Month" calendar-scroll-right] ["Backward 3 Months" calendar-scroll-right-three-months] ["Backward 1 Year" (calendar-scroll-right 12) :keys "4 M-v"] "--" ["Motion Commands" nil :help "Commands that move point"] ["Forward 1 Day" calendar-forward-day] ["Forward 1 Week" calendar-forward-week] ["Forward 1 Month" calendar-forward-month] ["Forward 1 Year" calendar-forward-year] ["Backward 1 Day" calendar-backward-day] ["Backward 1 Week" calendar-backward-week] ["Backward 1 Month" calendar-backward-month] ["Backward 1 Year" calendar-backward-year]) (#$ . 4133))
#@143 Call `x-popup-menu' at position EVENT, with TITLE and contents BODY.
Signals an error if popups are unavailable.

(fn EVENT TITLE &rest BODY)
(defalias 'cal-menu-x-popup-menu '(macro . #[642 "\300\301\302\303\304\303	DBBEE\305BBB\207" [if (display-popup-menus-p) x-popup-menu list append ((error "Popup menus are not available on this system"))] 12 (#$ . 5025)]))
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put cal-menu-x-popup-menu lisp-indent-function 2 autoload diary-list-entries "diary-lib"] 4)
#@239 Pop up menu of diary entries for mouse-selected date.
Use optional DATE and alternative file DIARY.  EVENT is the event
that invoked this command.  Shows holidays if `diary-show-holidays-flag'
is non-nil.

(fn &optional DATE DIARY EVENT)
(defalias 'calendar-mouse-view-diary-entries #[768 "\206\303\304\"\206
\304\305\306\307\310\311#\"\n\205\312!\313\314\203.\313\315\"\202/\316\317!#\320 \203c\321\322C\305\323\"\205L\324\211D	\203\\\305\325\326\322
\"\"\202]\327$D\"\202f\330\331!\211\205m\332
!*\207" [diary-file diary-list-include-blanks diary-show-holidays-flag calendar-cursor-to-date nil mapcar #[257 "\300
A@\301\"\207" [split-string "\n"] 4 "\n\n(fn X)"] diary-list-entries 1 list-only calendar-check-holidays format "Diary entries%s for %s" " from %s" "" calendar-date-string display-popup-menus-p x-popup-menu append #[257 "\300
PC\207" ["     "] 3 "\n\n(fn X)"] "--shadow-etched-in" list apply ("None") error "Popup menus are not available on this system" call-interactively] 19 (#$ . 5554) "i\ni\ne"])
#@98 Pop up menu of diary entries from alternative file on mouse-selected date.

(fn &optional EVENT)
(defalias 'calendar-mouse-view-other-diary-entries #[256 "\301\302\303\"\304\305\303\306$#\207" [default-directory calendar-mouse-view-diary-entries calendar-cursor-to-date nil read-file-name "Enter diary file name: " t] 8 (#$ . 6612) "e"])
#@67 Convert date of last event to title suitable for MENU.

(fn MENU)
(defalias 'cal-menu-set-date-title #[257 "\301\302!\205*\3031\304\305\"0\202\210\305\211\203#\306\307\310\305#\"\202(\311\312!\210\305\262
\207" [last-input-event derived-mode-p calendar-mode (error) calendar-cursor-to-date nil easy-menu-filter-return calendar-date-string t message "Not on a date!"] 8 (#$ . 6959)])
#@61 Pop up mouse menu for selected date in the calendar window.
(defvar cal-menu-context-mouse-menu nil (#$ . 7358))
(easy-menu-do-define 'cal-menu-context-mouse-menu nil "Pop up mouse menu for selected date in the calendar window." '("cal-menu-context-mouse-menu" :filter cal-menu-set-date-title "--" ["Holidays" calendar-cursor-holidays] ["Mark date" calendar-set-mark] ["Sunrise/sunset" calendar-sunrise-sunset] ["Other calendars" calendar-print-other-dates] ("Prepare LaTeX buffer" ["Daily (1 page)" cal-tex-cursor-day] ["Weekly (1 page, with hours)" cal-tex-cursor-week] ["Weekly (2 pages, with hours)" cal-tex-cursor-week2] ["Weekly (1 page, no hours)" cal-tex-cursor-week-iso] ["Weekly (1 page, with hours, different style)" cal-tex-cursor-week-monday] ["Weekly (2 pages, no hours)" cal-tex-cursor-week2-summary] ["Monthly" cal-tex-cursor-month] ["Monthly (landscape)" cal-tex-cursor-month-landscape] ["Yearly" cal-tex-cursor-year] ["Yearly (landscape)" cal-tex-cursor-year-landscape] ("Filofax styles" ["Filofax Daily (one-day-per-page)" cal-tex-cursor-filofax-daily] ["Filofax Weekly (2-weeks-at-a-glance)" cal-tex-cursor-filofax-2week] ["Filofax Weekly (week-at-a-glance)" cal-tex-cursor-filofax-week] ["Filofax Yearly" cal-tex-cursor-filofax-year])) ("Write HTML calendar" ["For selected month" cal-html-cursor-month] ["For selected year" cal-html-cursor-year]) ["Diary entries" calendar-mouse-view-diary-entries :keys "d"] ["Insert diary entry" diary-insert-entry] ["Other diary file entries" calendar-mouse-view-other-diary-entries :keys "D"]))
#@72 Menu bound to a mouse event, not specific to the mouse-click location.
(defvar cal-menu-global-mouse-menu nil (#$ . 8918))
(byte-code "\300\301\302\303\304$\210\305\306!\207" [easy-menu-do-define cal-menu-global-mouse-menu nil "Menu bound to a mouse event, not specific to the mouse-click location." ("Calendar" ["Scroll forward" calendar-scroll-left-three-months] ["Scroll backward" calendar-scroll-right-three-months] ["Mark diary entries" diary-mark-entries] ["List holidays" calendar-list-holidays] ["Mark holidays" calendar-mark-holidays] ["Unmark" calendar-unmark] ["Lunar phases" calendar-lunar-phases] ["Sunrise times for month" calendar-sunrise-sunset-month] ["Show diary" diary-show-all-entries] ["Exit calendar" calendar-exit]) provide cal-menu] 5)