;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:37:18 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/calendar/cal-x.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`cal-x.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'calendar) #@41 Frame in which to display the calendar. (defvar calendar-frame nil (#$ . 641)) #@38 Frame in which to display the diary. (defvar diary-frame nil (#$ . 726)) #@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 '((name . "Diary") (title . "Diary") (height . 10) (width . 80) (unsplittable . t) (minibuffer)) (#$ . 806)) #@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 '((name . "Calendar") (title . "Calendar") (minibuffer) (height . 10) (width . 80) (unsplittable . t) (vertical-scroll-bars)) (#$ . 1066)) #@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 '((name . "Calendar") (title . "Calendar") (height . 28) (width . 80) (minibuffer)) (#$ . 1368)) #@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 (#$ . 1635)) #@77 Start calendar and display it in a dedicated frame together with the diary. (defalias 'calendar-one-frame-setup #[(&optional arg) "\305 \204 \306!\207\307 !\203\310 !\210\307\n!\203\310\n!\210\311\312\313\213*\207" [arg calendar-frame diary-frame view-diary-entries-initially special-display-buffer-names display-multi-frame-p calendar-basic-setup frame-live-p delete-frame nil t ((byte-code "\212\306!\307\310!\210\311 !\210\312\313\314 !\"A\315=\203\316 \210\317\n!\210\320\321 \322\"\210\320\323\324 >\2044\325\f!\202@\326\327 !!\204?\330 \210 !\331\")\207" [calendar-and-diary-frame-parameters calendar-frame arg diary-display-hook diary-file fancy-diary-buffer make-frame run-hooks calendar-after-frame-setup-hooks select-frame assoc visibility frame-parameters icon iconify-or-deiconify-frame calendar-basic-setup set-window-dedicated-p selected-window calendar display-buffer fancy-diary-display get-file-buffer bufferp get-buffer make-fancy-diary-buffer diary] 5))] 2 (#$ . 1831)]) #@53 Start calendar and display it in a dedicated frame. (defalias 'calendar-only-one-frame-setup #[(&optional arg) "\304 \204 \305!\207\306 !\203\307 !\210\310\211\311\213*\207" [arg calendar-frame view-diary-entries-initially special-display-buffer-names display-multi-frame-p calendar-basic-setup frame-live-p delete-frame nil ((byte-code "\212\303!\304\305!\210\306 !\210\307\310\311 !\"A\312=\203\313 \210\314\n!\210\315\316 \317\")\207" [calendar-frame-parameters calendar-frame arg make-frame run-hooks calendar-after-frame-setup-hooks select-frame assoc visibility frame-parameters icon iconify-or-deiconify-frame calendar-basic-setup set-window-dedicated-p selected-window calendar] 4))] 2 (#$ . 2842)]) #@57 Start calendar and diary in separate, dedicated frames. (defalias 'calendar-two-frame-setup #[(&optional arg) "\306 \204 \307!\207\310 !\203\311 !\210\310\n!\203\311\n!\210\312\211\211\313\213+\207" [arg calendar-frame diary-frame special-display-buffer-names view-diary-entries-initially pop-up-windows display-multi-frame-p calendar-basic-setup frame-live-p delete-frame nil ((byte-code "\212\306!\210)\307 !\310\311!\210\312\n!\210\313\314\315\n!\"A\316=\203!\317 \210\320 !\210\321\322 \323\"\210\307\f!\310\311!\210\312 !\210\313\314\315 !\"A\316=\203F\317 \210\212\324 \210)\321\320\325>\204[\326!\202i\327\330!!\204g\331 \210!\324\"\207" [arg calendar-frame-parameters calendar-frame calendar-buffer diary-frame-parameters diary-frame calendar-basic-setup make-frame run-hooks calendar-after-frame-setup-hooks select-frame assoc visibility frame-parameters icon iconify-or-deiconify-frame display-buffer set-window-dedicated-p selected-window calendar diary fancy-diary-display get-file-buffer bufferp get-buffer make-fancy-diary-buffer diary-display-hook diary-file fancy-diary-buffer] 5))] 3 (#$ . 3566)]) (byte-code "\306\307 \n \f \257\"\310\311!\210\312\313!\207" [special-display-buffer-names lunar-phases-buffer holiday-buffer fancy-diary-buffer other-calendars-buffer calendar-buffer append "*Yahrzeits*" run-hooks cal-x-load-hook provide cal-x] 8)