;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:28 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calendar/cal-menu.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(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]) (#$ . 580))
#@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 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])) (#$ . 853))
#@76 Return a string suffix for the "Window" entry in `cal-menu-holidays-menu'.
(defalias 'cal-menu-holiday-window-suffix #[nil "\302\303!\302\304!\305\306\307	@\310\"	AAU\203\311\202 \305\312	A\"\307@\310\"A%*\207" [my2 my1 calendar-increment-month-cons -1 1 format "%s%s-%s, %d" calendar-month-name abbrev "" ", %d"] 7 (#$ . 1863)])
#@46 Key map for "Holidays" menu in the calendar.
(defconst cal-menu-holidays-menu (byte-code "\303\304\305\306\307\310\311\312\313	\nW\2038\314\315\316	\"\317\311\320\321\322\323	\324ZEDF\325\315\326\322\323	\324ZEE$B	T\211\202
*\237)\327\"BBBBB\207" [l i --dotimes-limit-- "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 11 0 vector format "hol-year-%d" lambda (interactive) holiday-list + displayed-year 5 :label "For Year %d" ("--" ["Unmark Calendar" calendar-unmark] ["Mark Holidays" calendar-mark-holidays])] 17) (#$ . 2207))
#@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]) (#$ . 3078))
#@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]) (#$ . 4378))
#@114 Call `x-popup-menu' at position EVENT, with TITLE and contents BODY.
Signals an error if popups are unavailable.
(defalias 'cal-menu-x-popup-menu '(macro . #[(event title &rest body) "\303\304\305\306	\307\306	D\nBBEE\310BBB\207" [event title body if (display-popup-menus-p) x-popup-menu list append ((error "Popup menus are not available on this system"))] 9 (#$ . 5270)]))
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [put cal-menu-x-popup-menu lisp-indent-function 2 autoload diary-list-entries "diary-lib"] 4)
#@206 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.
(defalias 'calendar-mouse-view-diary-entries #[(&optional date diary event) "\206\306\307	\"\n\206\307\310\311\312\313\314#\"\205\"\315!\316\317\n\2031\316\320\n\"\2022\321\322!# \323 \203g\324	 \325 C\310\326\"\205R\327\211D
\203`\310\330\331\325
\"\"\202a\332$D\"\202j\333\334!\211!\205t\335!!.\207" [date event diary diary-file diary-list-include-blanks diary-entries calendar-cursor-to-date nil mapcar #[(x) "\301\211A@)\302\"\207" [x split-string "\n"] 4] 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 #[(x) "\301PC\207" [x "     "] 2] "--shadow-etched-in" list apply ("None") error "Popup menus are not available on this system" call-interactively diary-show-holidays-flag holidays title selection] 13 (#$ . 5800) "i\ni\ne"])
#@76 Pop up menu of diary entries from alternative file on mouse-selected date.
(defalias 'calendar-mouse-view-other-diary-entries #[(&optional event) "\302\303\304\"\305\306	\304\307$#\207" [event default-directory calendar-mouse-view-diary-entries calendar-cursor-to-date nil read-file-name "Enter diary file name: " t] 7 (#$ . 6900) "e"])
#@56 Convert date of last event to title suitable for MENU.
(defalias 'cal-menu-set-date-title #[(menu) "\302\303!\205 \304\305\306\217\211\203\307	\310\311\304#\"\202\312\313!\210\304)\207" [date menu derived-mode-p calendar-mode nil (calendar-cursor-to-date nil last-input-event) ((error)) easy-menu-filter-return calendar-date-string t message "Not on a date!"] 7 (#$ . 7245)])
#@61 Pop up mouse menu for selected date in the calendar window.
(defvar cal-menu-context-mouse-menu nil (#$ . 7634))
(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 (#$ . 9194))
(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]))
#@48 Hook run on loading of the `cal-menu' package.
(defvar cal-menu-load-hook nil (#$ . 9890))
(byte-code "\300\301\302\303#\210\304\301!\210\305\306!\207" [make-obsolete-variable cal-menu-load-hook "it will be removed in future." "23.1" run-hooks provide cal-menu] 4)