[Emacs-diffs] Changes to emacs/lisp/calendar/cal-x.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/03/26 03:12:48

Index: cal-x.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-x.el,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- cal-x.el    25 Mar 2008 07:57:06 -0000      1.37
+++ cal-x.el    26 Mar 2008 03:12:48 -0000      1.38
@@ -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)))