Mercurial > emacs
comparison lisp/calendar/cal-x.el @ 93226:41e41843fac2
(calendar-after-frame-setup-hook): New name for
calendar-after-frame-setup-hooks. Update callers, make old name an
obsolete alias. Doc fix.
(calendar-frame-1): Doc fix.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 26 Mar 2008 03:12:48 +0000 |
| parents | 280935cd7ea9 |
| children | a4a2b2f63116 |
comparison
equal
deleted
inserted
replaced
| 93225:da8dabfafecc | 93226:41e41843fac2 |
|---|---|
| 66 :options '((name string) (title string) (height integer) (width integer) | 66 :options '((name string) (title string) (height integer) (width integer) |
| 67 (unsplittable boolean) (minibuffer boolean) | 67 (unsplittable boolean) (minibuffer boolean) |
| 68 (vertical-scroll-bars boolean)) | 68 (vertical-scroll-bars boolean)) |
| 69 :group 'calendar) | 69 :group 'calendar) |
| 70 | 70 |
| 71 (defcustom calendar-after-frame-setup-hooks nil | 71 (defcustom calendar-after-frame-setup-hook nil |
| 72 "Hooks to be run just after setting up a calendar frame. | 72 "List of functions to be run after creating a calendar and/or diary frame." |
| 73 Can be used to change frame parameters, such as font, color, location, etc." | |
| 74 :type 'hook | 73 :type 'hook |
| 75 :group 'calendar-hooks) | 74 :group 'calendar-hooks) |
| 75 | |
| 76 (define-obsolete-variable-alias 'calendar-after-frame-setup-hooks | |
| 77 'calendar-after-frame-setup-hook "23.1") | |
| 76 | 78 |
| 77 ;;; End of user options. | 79 ;;; End of user options. |
| 78 | 80 |
| 79 (defvar calendar-frame nil | 81 (defvar calendar-frame nil |
| 80 "Frame in which the calendar was last displayed.") | 82 "Frame in which the calendar was last displayed.") |
| 81 | 83 |
| 82 (defvar diary-frame nil | 84 (defvar diary-frame nil |
| 83 "Frame in which the diary was last displayed.") | 85 "Frame in which the diary was last displayed.") |
| 84 | 86 |
| 85 (defun calendar-frame-1 (frame) | 87 (defun calendar-frame-1 (frame) |
| 86 "Subroutine used by `calendar-frame-setup'." | 88 "Subroutine used by `calendar-frame-setup'. |
| 87 (run-hooks 'calendar-after-frame-setup-hooks) | 89 Runs `calendar-after-frame-setup-hook', selects frame, iconifies if needed." |
| 90 (run-hooks 'calendar-after-frame-setup-hook) | |
| 88 (select-frame frame) | 91 (select-frame frame) |
| 89 (if (eq 'icon (cdr (assoc 'visibility (frame-parameters frame)))) | 92 (if (eq 'icon (cdr (assoc 'visibility (frame-parameters frame)))) |
| 90 (iconify-or-deiconify-frame))) | 93 (iconify-or-deiconify-frame))) |
| 91 | 94 |
| 92 (defun calendar-dedicate-diary () | 95 (defun calendar-dedicate-diary () |