# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1206501168 0
# Node ID 41e41843fac2694450de39f5cbe052d56dad5b14
# Parent  da8dabfafeccb821a198aa35a486873a37c9bc5a
(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.

diff -r da8dabfafecc -r 41e41843fac2 lisp/calendar/cal-x.el
--- 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)))