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

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\302\303!\210\304\305\306\307\310\311\312\313\314\303&	\210\304\315\316\317\310\311\312\320\314\303&	\210\304\321\322\323\310\311\312\324\314\303&	\210\325\326\327\330#\210\331\330\211\203W	@\326N\203P\327N\204P\332\327\326N#\210	A\211\2049*\333\326\327\334#\210\304\327\330\335\310\336\314\337&\207" [prop --dolist-tail-- require calendar custom-declare-variable diary-frame-parameters '((name . "Diary") (title . "Diary") (height . 10) (width . 80) (unsplittable . t) (minibuffer)) "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 '((name . "Calendar") (title . "Calendar") (height . 10) (width . 80) (unsplittable . t) (minibuffer) (vertical-scroll-bars)) "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 '((name . "Calendar") (title . "Calendar") (height . 28) (width . 80) (minibuffer)) "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)) defvaralias calendar-after-frame-setup-hooks calendar-after-frame-setup-hook nil (saved-value saved-variable-comment) put make-obsolete-variable "23.1" "List of functions to be run after creating a calendar and/or diary frame." hook calendar-hooks] 11)
#@49 Frame in which the calendar was last displayed.
(defvar calendar-frame nil (#$ . 2444))
#@46 Frame in which the diary was last displayed.
(defvar diary-frame nil (#$ . 2538))
#@120 Subroutine used by `calendar-frame-setup'.
Runs `calendar-after-frame-setup-hook', selects frame, iconifies if needed.
(defalias 'calendar-frame-1 #[(frame) "\301\302!\210\303!\210\304\305\306!\"A\307=\205\310 \207" [frame run-hooks calendar-after-frame-setup-hook select-frame assoc visibility frame-parameters icon iconify-or-deiconify-frame] 4 (#$ . 2627)])
#@67 Display and dedicate the window associated with the diary buffer.
(defalias 'calendar-dedicate-diary #[nil "\305\306<\203\307>\204\310>\202\311>\203I\312	!\204E\313	!q\210\314\315!\204-\315 \210\316\317\320 \210\321\322!\210eb\210\323\316!\210\317\306	!\210	\202L\324\f!!\317\"\207" [diary-display-function diary-fancy-buffer buffer-read-only buffer-undo-list diary-file set-window-dedicated-p display-buffer diary-fancy-display fancy-diary-display (diary-fancy-display fancy-diary-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 (#$ . 2998)])
#@443 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.
(defalias 'calendar-frame-setup #[(config &optional prompt) "\306 \203\307>\204\310	!\207\311\n!\203\312\n!\210\313=\204)\311!\203)\312!\210\314=\315\316 \317\216\320=\203J\321\322!\211!\210\323 \210\324 \210\321\322\314=\203W\202Y!\211!\210\310	\314=?\"\210\325\326 \"\210\327\326 \330\"\210\314=\205{\324 ,\207" [config prompt calendar-frame diary-frame pop-up-windows calendar-view-diary-initially-flag 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 ((set-window-configuration #1=#:wconfig)) two-frames calendar-frame-1 make-frame diary calendar-dedicate-diary set-window-buffer selected-window set-window-dedicated-p t #1# diary-frame-parameters calendar-and-diary-frame-parameters calendar-frame-parameters calendar-buffer] 4 (#$ . 3683)])
#@106 Display calendar and diary in a single dedicated frame.
See `calendar-frame-setup' for more information.
(defalias 'calendar-one-frame-setup #[(&optional prompt) "\301\302\"\207" [prompt calendar-frame-setup one-frame] 3 (#$ . 5028)])
(make-obsolete 'calendar-one-frame-setup 'calendar-frame-setup "23.1")
#@89 Display calendar in a dedicated frame.
See `calendar-frame-setup' for more information.
(defalias 'calendar-only-one-frame-setup #[(&optional prompt) "\301\302\"\207" [prompt calendar-frame-setup calendar-only] 3 (#$ . 5341)])
(make-obsolete 'calendar-only-one-frame-setup 'calendar-frame-setup "23.1")
#@108 Display calendar and diary in separate, dedicated frames.
See `calendar-frame-setup' for more information.
(defalias 'calendar-two-frame-setup #[(&optional prompt) "\301\302\"\207" [prompt calendar-frame-setup two-frames] 3 (#$ . 5652)])
(make-obsolete 'calendar-two-frame-setup 'calendar-frame-setup "23.1")
#@45 Hook run on loading of the `cal-x' package.
(defvar cal-x-load-hook nil (#$ . 5968))
(byte-code "\300\301\302\303#\210\304\301!\210\305\306!\207" [make-obsolete-variable cal-x-load-hook "it will be removed in future." "23.1" run-hooks provide cal-x] 4)