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



(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\301&	\210\302\315\304\305\316DD\317\310\311\312\320\314\301&	\210\302\321\304\305\322DD\323\310\311\312\324\314\301&	\210\302\325\304\305\326DD\327\310\330\314\331&\207" [require calendar custom-declare-variable diary-frame-parameters funcall function #[0 "\300\207" [((name . "Diary") (title . "Diary") (height . 10) (width . 80) (unsplittable . t) (minibuffer))] 1 #1=""] "Parameters of the diary frame, if the diary is in its own frame.\nRelevant if `calendar-setup' has the value `two-frames'." :type alist :options ((name string) (title string) (height integer) (width integer) (unsplittable boolean) (minibuffer boolean) (vertical-scroll-bars boolean)) :group calendar-frame-parameters #[0 "\300\207" [((name . "Calendar") (title . "Calendar") (height . 10) (width . 80) (unsplittable . t) (minibuffer) (vertical-scroll-bars))] 1 #1#] "Parameters of the calendar frame, if the calendar is in a separate frame.\nRelevant if `calendar-setup' has the value `calendar-only' or `two-frames'." ((name string) (title string) (height integer) (width integer) (unsplittable boolean) (minibuffer boolean) (vertical-scroll-bars boolean)) calendar-and-diary-frame-parameters #[0 "\300\207" [((name . "Calendar") (title . "Calendar") (height . 28) (width . 80) (minibuffer))] 1 #1#] "Parameters of the frame that displays both the calendar and the diary.\nRelevant if `calendar-setup' has the value `one-frame'." ((name string) (title string) (height integer) (width integer) (unsplittable boolean) (minibuffer boolean) (vertical-scroll-bars boolean)) calendar-after-frame-setup-hook #[0 "\300\207" [nil] 1 #1#] "List of functions to be run after creating a calendar and/or diary frame." hook calendar-hooks] 10)
#@49 Frame in which the calendar was last displayed.
(defvar calendar-frame nil (#$ . 1863))
#@46 Frame in which the diary was last displayed.
(defvar diary-frame nil (#$ . 1957))
#@132 Subroutine used by `calendar-frame-setup'.
Runs `calendar-after-frame-setup-hook', selects frame, iconifies if needed.

(fn FRAME)
(defalias 'calendar-frame-1 #[257 "\300\301!\210\302
!\210\303\304!\236A\305=\205\306 \207" [run-hooks calendar-after-frame-setup-hook select-frame visibility frame-parameters icon iconify-or-deiconify-frame] 4 (#$ . 2046)])
#@67 Display and dedicate the window associated with the diary buffer.
(defalias 'calendar-dedicate-diary #[0 "\305\306\307=\2038\310	!\2044\311	!q\210\312\313!\204\313 \210\314\315\316 \210\306	!\210\317\320!\210eb\210\321\314!\210\315	\202;\322\f!!\315\"\207" [diary-display-function diary-fancy-buffer buffer-read-only buffer-undo-list diary-file set-window-dedicated-p display-buffer diary-fancy-display get-buffer get-buffer-create derived-mode-p special-mode nil t erase-buffer calendar-set-mode-line "Diary Entries" set-buffer-modified-p get-file-buffer] 4 (#$ . 2411)])
#@473 Display the calendar, and optionally the diary, in a separate frame.
CONFIG should be one of:
`calendar-only' - just the calendar, no diary
`one-frame'     - calendar and diary in a single frame
`two-frames'    - calendar and diary each in a separate frame

If CONFIG has any other value, or if the display is not capable of
multiple frames, then `calendar-basic-setup' is called.

If PROMPT is non-nil, prompt for the month and year to use.

(fn CONFIG &optional PROMPT)
(defalias 'calendar-frame-setup #[513 "\306 \203
\307>\204\310
!\207\311!\203\312!\210
\313=\204)\311	!\203)\312	!\210
\314=\315\316 \317\320\"\216\321=\203J\322\323\f!\211!\210\324 \210\325 \210\322\323\314=\203V
\202X!\211!\210\310\314=?\"\210\326\327 \"\210\330\327 \331\"\210\314=\205z\325 )\262
*\207" [calendar-frame diary-frame pop-up-windows calendar-view-diary-initially-flag diary-frame-parameters calendar-and-diary-frame-parameters display-multi-frame-p (calendar-only one-frame two-frames) calendar-basic-setup frame-live-p delete-frame calendar-only one-frame nil current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] two-frames calendar-frame-1 make-frame diary calendar-dedicate-diary set-window-buffer selected-window set-window-dedicated-p t calendar-frame-parameters calendar-buffer] 7 (#$ . 3000)])
(provide 'cal-x)