;ELC ;;; compiled by reingold@albert.gnu.ai.mit.edu on Fri Jun 2 10:39:13 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/cal-x.el ;;; emacs version 19.28.92.3. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.28.90"))) (error "`cal-x.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÂÃ!„ÃÁKMˆÀ‡" [require calendar fboundp calendar-basic-setup] 2) #@243 The frame set up of the calendar. The choices are `one-frame' (calendar and diary together in one separate, dediciated frame) or `two-frames' (calendar and diary in separate, dedicated frames); with any other value the current frame is used. (defvar calendar-setup (quote one-frame) (#$ . 562)) #@144 Choose between the one frame, two frame, or basic calendar displays. The original function `calendar' has been renamed `calendar-basic-setup'. (defalias 'calendar #[(&optional arg) "Ášƒ\n !‡ÄšƒÅ !‡Æ !‡" [calendar-setup one-frame calendar-one-frame-setup arg two-frames calendar-two-frame-setup calendar-basic-setup] 2 (#$ . 864) "P"]) #@41 Frame in which to display the calendar. (defvar calendar-frame nil (#$ . 1211)) #@38 Frame in which to display the diary. (defvar diary-frame nil (#$ . 1297)) #@114 Parameters of the diary frame, if the diary is in its own frame. Location and color should be set in .Xdefaults. (defvar diary-frame-parameters (quote ((name . "Diary") (height . 10) (width . 80) (unsplittable . t) (font . "6x13") (auto-lower . t) (auto-raise . t) (minibuffer))) (#$ . 1378)) #@123 Parameters of the calendar frame, if the calendar is in a separate frame. Location and color should be set in .Xdefaults. (defvar calendar-frame-parameters (quote ((name . "Calendar") (minibuffer) (height . 10) (width . 80) (auto-raise . t) (auto-lower . t) (font . "6x13") (unsplittable . t) (vertical-scroll-bars))) (#$ . 1678)) #@120 Parameters of the frame that displays both the calendar and the diary. Location and color should be set in .Xdefaults. (defvar calendar-and-diary-frame-parameters (quote ((name . "Calendar") (height . 28) (width . 80) (minibuffer) (font . "6x13") (auto-raise . t) (auto-lower . t))) (#$ . 2016)) #@133 Hooks to be run just after setting up a calendar frame. Can be used to change frame parameters, such as font, color, location, etc. (defvar calendar-after-frame-setup-hooks nil (#$ . 2319)) #@77 Start calendar and display it in a dedicated frame together with the diary. (defalias 'calendar-one-frame-setup #[(&optional arg) "„Á\n!‡Ã\f!ƒÅ\f!ˆÃ!ƒÅ!ˆÇÈ \nË‹*‡" [window-system calendar-basic-setup arg frame-live-p calendar-frame delete-frame diary-frame nil t view-diary-entries-initially special-display-buffer-names ((byte-code "ŠÀ !ÃÄ!ˆÅ\n!ˆÆÇÈ\n!\"AÉ=ƒÊ ˆË\f!ˆÍÎ Ï\"ˆÍÐÑ>„7Ó!‚EÕÖ!!„CØ ˆ!Ù\")‡" [make-frame calendar-and-diary-frame-parameters calendar-frame run-hooks calendar-after-frame-setup-hooks select-frame assoc visibility frame-parameters icon iconify-or-deiconify-frame calendar-basic-setup arg set-window-dedicated-p selected-window calendar display-buffer fancy-diary-display diary-display-hook get-file-buffer diary-file bufferp get-buffer fancy-diary-buffer make-fancy-diary-buffer diary] 5))] 2 (#$ . 2515)]) #@57 Start calendar and diary in separate, dedicated frames. (defalias 'calendar-two-frame-setup #[(&optional arg) "„Á\n!‡Ã\f!ƒÅ\f!ˆÃ!ƒÅ!ˆÇ‰‰ \nË‹+‡" [window-system calendar-basic-setup arg frame-live-p calendar-frame delete-frame diary-frame nil special-display-buffer-names view-diary-entries-initially pop-up-windows ((byte-code "ŠÀ !ˆ) !ÅÆ!ˆÇ\f!ˆÈÉÊ\f!\"AË=ƒ!Ì ˆÍ!ˆÏÐ Ñ\"ˆÂ!ÅÆ!ˆÇ!ˆÈÉÊ!\"AË=ƒKÌ ˆŠÔ ˆ)ÏÍÕ>„`×!‚nÙÚ!!„lÜ ˆ!Ô\"‡" [calendar-basic-setup arg make-frame calendar-frame-parameters calendar-frame run-hooks calendar-after-frame-setup-hooks select-frame assoc visibility frame-parameters icon iconify-or-deiconify-frame display-buffer calendar-buffer set-window-dedicated-p selected-window calendar diary-frame-parameters diary-frame diary fancy-diary-display diary-display-hook get-file-buffer diary-file bufferp get-buffer fancy-diary-buffer make-fancy-diary-buffer] 5))] 3 (#$ . 3379)]) (byte-code "À  \f Æ!¯\"ÉÊ!ˆËÌ!‡" [append special-display-buffer-names "*Yahrzeits*" lunar-phases-buffer holiday-buffer fancy-diary-buffer get-file-buffer diary-file calendar-buffer run-hooks cal-x-load-hook provide cal-x] 8)