;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:10:18 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/calendar/cal-x.el
;;; in Emacs version 24.0.50.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.

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


(require 'calendar)
#@123 Parameters of the diary frame, if the diary is in its own frame.
Relevant if `calendar-setup' has the value `two-frames'.
(custom-declare-variable 'diary-frame-parameters ''((name . "Diary") (title . "Diary") (height . 10) (width . 80) (unsplittable . t) (minibuffer)) '(#$ . 569) :type 'alist :options '((name string) (title string) (height integer) (width integer) (unsplittable boolean) (minibuffer boolean) (vertical-scroll-bars boolean)) :group 'calendar)
#@151 Parameters of the calendar frame, if the calendar is in a separate frame.
Relevant if `calendar-setup' has the value `calendar-only' or `two-frames'.
(custom-declare-variable 'calendar-frame-parameters ''((name . "Calendar") (title . "Calendar") (height . 10) (width . 80) (unsplittable . t) (minibuffer) (vertical-scroll-bars)) '(#$ . 1037) :type 'alist :options '((name string) (title string) (height integer) (width integer) (unsplittable boolean) (minibuffer boolean) (vertical-scroll-bars boolean)) :group 'calendar)
#@128 Parameters of the frame that displays both the calendar and the diary.
Relevant if `calendar-setup' has the value `one-frame'.
(custom-declare-variable 'calendar-and-diary-frame-parameters ''((name . "Calendar") (title . "Calendar") (height . 28) (width . 80) (minibuffer)) '(#$ . 1566) :type 'alist :options '((name string) (title string) (height integer) (width integer) (unsplittable boolean) (minibuffer boolean) (vertical-scroll-bars boolean)) :group 'calendar)
(byte-code "\302\303\304\305#\210\306\305\211\203,	@\303N\203%\304N\204%\307\304\303N#\210	A\211\204*\310\303\304\311#\207" [prop #:--cl-dolist-temp-- defvaralias calendar-after-frame-setup-hooks calendar-after-frame-setup-hook nil (saved-value saved-variable-comment) put make-obsolete-variable "23.1"] 6)
#@75 List of functions to be run after creating a calendar and/or diary frame.
(custom-declare-variable 'calendar-after-frame-setup-hook 'nil '(#$ . 2359) :type 'hook :group 'calendar-hooks)
#@49 Frame in which the calendar was last displayed.
(defvar calendar-frame nil (#$ . 2551))
#@46 Frame in which the diary was last displayed.
(defvar diary-frame nil (#$ . 2645))
#@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 (#$ . 2734)])
#@67 Display and dedicate the window associated with the diary buffer.
(defalias 'calendar-dedicate-diary #[nil "\305\306<\203\307>\204\310>\202\311>\203@\312	!\204<\313	!q\210\314\315\316 \210\317\320!\210eb\210\321\314!\210\315\306	!\210	\202C\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 fancy-diary-display (diary-fancy-display fancy-diary-display) get-buffer get-buffer-create nil t erase-buffer calendar-set-mode-line "Diary Entries" set-buffer-modified-p get-file-buffer] 4 (#$ . 3105)])
#@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\213*\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 ((byte-code "\306=\203\307\310	!\211!\210\311 \210\312 \210\307\310\313=\203 \202!\f!\211!\210\314\313=?\"\210\315\316 \"\210\317\316 \320\"\210\313=\205D\312 \207" [config diary-frame-parameters diary-frame calendar-and-diary-frame-parameters calendar-frame-parameters calendar-frame two-frames calendar-frame-1 make-frame diary calendar-dedicate-diary one-frame calendar-basic-setup set-window-buffer selected-window set-window-dedicated-p t prompt calendar-buffer] 4))] 2 (#$ . 3738)])
#@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 (#$ . 5097)])
(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 (#$ . 5410)])
(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 (#$ . 5721)])
(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 (#$ . 6037))
(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)
