From d2e009298d7df51b8dd0855848f16187eb886d07 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 26 Mar 2008 03:12:48 +0000 Subject: [PATCH] (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. --- lisp/calendar/cal-x.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/calendar/cal-x.el b/lisp/calendar/cal-x.el index 653ce0e3caa..c87ecb9ce29 100644 --- a/lisp/calendar/cal-x.el +++ b/lisp/calendar/cal-x.el @@ -68,12 +68,14 @@ Relevant if `calendar-setup' has the value `one-frame'." (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 @@ Can be used to change frame parameters, such as font, color, location, etc." "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))) -- 2.39.5