Current File : //usr/local/share/emacs/27.2/lisp/calendar/cal-x.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 "\300\301!\210\302\303\304\305\306\307\310\311\312\301& \210\302\313\314\315\306\307\310\316\312\301& \210\302\317\320\321\306\307\310\322\312\301& \210\302\323\324\325\306\326\312\327&\207" [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)) calendar-after-frame-setup-hook nil "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 (#$ . 2035))
#@46 Frame in which the diary was last displayed.
(defvar diary-frame nil (#$ . 2129))
#@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 (#$ . 2218)])
#@67 Display and dedicate the window associated with the diary buffer.
(defalias 'calendar-dedicate-diary #[nil "\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 (#$ . 2589)])
#@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 #[nil "\301!\207" [#1=#:wconfig 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 #1# diary-frame-parameters calendar-and-diary-frame-parameters calendar-frame-parameters calendar-buffer] 4 (#$ . 3180)])
(provide 'cal-x)
Mini Shell