Mercurial > emacs
changeset 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 | da8dabfafecc |
| children | 940127da5863 |
| files | lisp/calendar/cal-x.el |
| diffstat | 1 files changed, 8 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-x.el Wed Mar 26 03:12:02 2008 +0000 +++ b/lisp/calendar/cal-x.el Wed Mar 26 03:12:48 2008 +0000 @@ -68,12 +68,14 @@ (vertical-scroll-bars boolean)) :group 'calendar) -(defcustom calendar-after-frame-setup-hooks nil - "Hooks to be run just after setting up a calendar frame. -Can be used to change frame parameters, such as font, color, location, etc." +(defcustom calendar-after-frame-setup-hook nil + "List of functions to be run after creating a calendar and/or diary frame." :type 'hook :group 'calendar-hooks) +(define-obsolete-variable-alias 'calendar-after-frame-setup-hooks + 'calendar-after-frame-setup-hook "23.1") + ;;; End of user options. (defvar calendar-frame nil @@ -83,8 +85,9 @@ "Frame in which the diary was last displayed.") (defun calendar-frame-1 (frame) - "Subroutine used by `calendar-frame-setup'." - (run-hooks 'calendar-after-frame-setup-hooks) + "Subroutine used by `calendar-frame-setup'. +Runs `calendar-after-frame-setup-hook', selects frame, iconifies if needed." + (run-hooks 'calendar-after-frame-setup-hook) (select-frame frame) (if (eq 'icon (cdr (assoc 'visibility (frame-parameters frame)))) (iconify-or-deiconify-frame)))