changeset 94019:28144b96054e

(calendar-faces): New custom group. (calendar-today, diary, holiday): Doc fix. Move to calendar-faces group. Move non-autoloaded define-obsolete-variable-alias calls for defcustoms not in dumped files before the associated defcustom.
author Glenn Morris <rgm@gnu.org>
date Sat, 12 Apr 2008 03:11:03 +0000
parents 2834643ba8a0
children 4490d4f3ae50
files lisp/calendar/calendar.el
diffstat 1 files changed, 61 insertions(+), 52 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/calendar.el	Sat Apr 12 03:10:37 2008 +0000
+++ b/lisp/calendar/calendar.el	Sat Apr 12 03:11:03 2008 +0000
@@ -132,6 +132,11 @@
   :prefix "calendar-"
   :group 'calendar)
 
+(defgroup calendar-faces nil
+  "Calendar faces."
+  :prefix "calendar-"
+  :group 'calendar)
+
 (defcustom calendar-offset 0
   "The offset of the principal month from the center of the calendar window.
 0 means the principal month is in the center (default), -1 means on the left,
@@ -178,6 +183,9 @@
          (calendar-redraw))
   :group 'calendar)
 
+(define-obsolete-variable-alias 'view-diary-entries-initially
+  'calendar-view-diary-initially-flag "23.1")
+
 (defcustom calendar-view-diary-initially-flag nil
   "Non-nil means display current date's diary entries on entry to calendar.
 The diary is displayed in another window when the calendar is first displayed,
@@ -187,8 +195,8 @@
   :type 'boolean
   :group 'diary)
 
-(define-obsolete-variable-alias 'view-diary-entries-initially
-  'calendar-view-diary-initially-flag "23.1")
+(define-obsolete-variable-alias 'mark-diary-entries-in-calendar
+  'calendar-mark-diary-entries-flag "23.1")
 
 (defcustom calendar-mark-diary-entries-flag nil
   "Non-nil means mark dates with diary entries, in the calendar window.
@@ -196,9 +204,6 @@
   :type 'boolean
   :group 'diary)
 
-(define-obsolete-variable-alias 'mark-diary-entries-in-calendar
-  'calendar-mark-diary-entries-flag "23.1")
-
 (defcustom calendar-remove-frame-by-deleting t
   "Determine how the calendar mode removes a frame no longer needed.
 If nil, make an icon of the frame.  If non-nil, delete the frame."
@@ -209,8 +214,9 @@
 
 (defface calendar-today
   '((t (:underline t)))
-  "Face for indicating today's date."
-  :group 'calendar)
+  "Face for indicating today's date in the calendar.
+See `calendar-today-marker'."
+  :group 'calendar-faces)
 ;; Backward-compatibility alias.  FIXME make obsolete.
 (put 'calendar-today-face 'face-alias 'calendar-today)
 
@@ -225,8 +231,10 @@
      :foreground "yellow")
     (t
      :weight bold))
-  "Face for highlighting diary entries."
-  :group 'diary)
+  "Face for highlighting diary entries.
+Used to mark diary entries in the calendar (see `diary-entry-marker'),
+and to highlight the date header in the fancy diary."
+  :group 'calendar-faces)
 ;; Backward-compatibility alias.  FIXME make obsolete.
 (put 'diary-face 'face-alias 'diary)
 
@@ -237,8 +245,9 @@
      :background "chocolate4")
     (t
      :inverse-video t))
-  "Face for indicating dates that have holidays."
-  :group 'holidays)
+  "Face for indicating in the calendar dates that have holidays.
+See `calendar-holiday-marker'."
+  :group 'calendar-faces)
 ;; Backward-compatibility alias.  FIXME make obsolete.
 (put 'holiday-face 'face-alias 'holiday)
 
@@ -268,6 +277,9 @@
   :type '(choice string face)
   :group 'holidays)
 
+(define-obsolete-variable-alias 'view-calendar-holidays-initially
+  'calendar-view-holidays-initially-flag "23.1")
+
 (defcustom calendar-view-holidays-initially-flag nil
   "Non-nil means display holidays for current three month period on entry.
 The holidays are displayed in another window when the calendar is first
@@ -275,8 +287,8 @@
   :type 'boolean
   :group 'holidays)
 
-(define-obsolete-variable-alias 'view-calendar-holidays-initially
-  'calendar-view-holidays-initially-flag "23.1")
+(define-obsolete-variable-alias 'mark-holidays-in-calendar
+  'calendar-mark-holidays-flag "23.1")
 
 (defcustom calendar-mark-holidays-flag nil
   "Non-nil means mark dates of holidays in the calendar window.
@@ -284,9 +296,6 @@
   :type 'boolean
   :group 'holidays)
 
-(define-obsolete-variable-alias 'mark-holidays-in-calendar
-  'calendar-mark-holidays-flag "23.1")
-
 (defcustom calendar-mode-hook nil
   "Hook run when entering `calendar-mode'."
   :type 'hook
@@ -298,6 +307,9 @@
   :type 'hook
   :group 'calendar-hooks)
 
+(define-obsolete-variable-alias 'initial-calendar-window-hook
+  'calendar-initial-window-hook "23.1")
+
 (defcustom calendar-initial-window-hook nil
   "List of functions to be called when the calendar window is created.
 Quitting the calendar and re-entering it will cause these functions
@@ -305,8 +317,8 @@
   :type 'hook
   :group 'calendar-hooks)
 
-(define-obsolete-variable-alias 'initial-calendar-window-hook
-  'calendar-initial-window-hook "23.1")
+(define-obsolete-variable-alias 'today-visible-calendar-hook
+  'calendar-today-visible-hook "23.1")
 
 (defcustom calendar-today-visible-hook nil
   "List of functions called whenever the current date is visible.
@@ -320,8 +332,8 @@
   :options '(calendar-mark-today calendar-star-date)
   :group 'calendar-hooks)
 
-(define-obsolete-variable-alias 'today-visible-calendar-hook
-  'calendar-today-visible-hook "23.1")
+(define-obsolete-variable-alias 'today-invisible-calendar-hook
+  'calendar-today-invisible-hook "23.1")
 
 (defcustom calendar-today-invisible-hook nil
   "List of functions called whenever the current date is not visible.
@@ -329,9 +341,6 @@
   :type 'hook
   :group 'calendar-hooks)
 
-(define-obsolete-variable-alias 'today-invisible-calendar-hook
-  'calendar-today-invisible-hook "23.1")
-
 (defcustom calendar-move-hook nil
   "List of functions called whenever the cursor moves in the calendar.
 For example,
@@ -438,30 +447,30 @@
   :type 'string
   :group 'diary)
 
+(define-obsolete-variable-alias 'hebrew-diary-entry-symbol
+  'diary-hebrew-entry-symbol "23.1")
+
 (defcustom diary-hebrew-entry-symbol "H"
   "Symbol indicating a diary entry according to the Hebrew calendar."
   :type 'string
   :group 'diary)
 
-(define-obsolete-variable-alias 'hebrew-diary-entry-symbol
-  'diary-hebrew-entry-symbol "23.1")
+(define-obsolete-variable-alias 'islamic-diary-entry-symbol
+  'diary-islamic-entry-symbol "23.1")
 
 (defcustom diary-islamic-entry-symbol "I"
   "Symbol indicating a diary entry according to the Islamic calendar."
   :type 'string
   :group 'diary)
 
-(define-obsolete-variable-alias 'islamic-diary-entry-symbol
-  'diary-islamic-entry-symbol "23.1")
+(define-obsolete-variable-alias 'bahai-diary-entry-symbol
+  'diary-bahai-entry-symbol "23.1")
 
 (defcustom diary-bahai-entry-symbol "B"
   "Symbol indicating a diary entry according to the Baha'i calendar."
   :type 'string
   :group 'diary)
 
-(define-obsolete-variable-alias 'bahai-diary-entry-symbol
-  'diary-bahai-entry-symbol "23.1")
-
 (defcustom european-calendar-style nil
   "Non-nil means use the European style of dates in the diary and display.
 In this case, a date like 1/2/1990 would be interpreted as
@@ -532,6 +541,9 @@
                                        (choice symbol regexp)))))
     :group 'diary)
 
+(define-obsolete-variable-alias 'american-date-diary-pattern
+  'diary-american-date-forms "23.1")
+
 (defcustom diary-american-date-forms
   '((month "/" day "[^/0-9]")
     (month "/" day "/" year "[^0-9]")
@@ -553,8 +565,8 @@
                                        (choice symbol regexp)))))
   :group 'diary)
 
-(define-obsolete-variable-alias 'american-date-diary-pattern
-  'diary-american-date-forms "23.1")
+(define-obsolete-variable-alias 'european-date-diary-pattern
+  'diary-european-date-forms "23.1")
 
 (defcustom diary-european-date-forms
   '((day "/" month "[^/0-9]")
@@ -577,9 +589,6 @@
                                        (choice symbol regexp)))))
   :group 'diary)
 
-(define-obsolete-variable-alias 'european-date-diary-pattern
-  'diary-european-date-forms "23.1")
-
 (defvar diary-font-lock-keywords)
 
 (defcustom diary-date-forms (cond ((eq calendar-date-style 'iso)
@@ -645,6 +654,9 @@
   :version "23.1"
   :group 'calendar)
 
+(define-obsolete-variable-alias 'european-calendar-display-form
+  'calendar-european-date-display-form "23.1")
+
 (defcustom calendar-european-date-display-form
   '((if dayname (concat dayname ", ")) day " " monthname " " year)
   "Pseudo-pattern governing the way a date appears in the European style.
@@ -653,8 +665,8 @@
   :type 'sexp
   :group 'calendar)
 
-(define-obsolete-variable-alias 'european-calendar-display-form
-  'calendar-european-date-display-form "23.1")
+(define-obsolete-variable-alias 'american-calendar-display-form
+  'calendar-american-date-display-form "23.1")
 
 (defcustom calendar-american-date-display-form
   '((if dayname (concat dayname ", ")) monthname " " day ", " year)
@@ -664,9 +676,6 @@
   :type 'sexp
   :group 'calendar)
 
-(define-obsolete-variable-alias 'american-calendar-display-form
-  'calendar-american-date-display-form "23.1")
-
 (defcustom calendar-date-display-form
   (cond ((eq calendar-date-style 'iso)
          calendar-iso-date-display-form)
@@ -723,6 +732,9 @@
 
 (make-obsolete 'american-calendar 'calendar-set-date-style "23.1")
 
+(define-obsolete-variable-alias 'holidays-in-diary-buffer
+  'diary-show-holidays-flag "23.1")
+
 (defcustom diary-show-holidays-flag t
   "Non-nil means include holidays in the diary display.
 The holidays appear in the mode line of the diary buffer, or in the
@@ -731,14 +743,14 @@
   :type 'boolean
   :group 'holidays)
 
-(define-obsolete-variable-alias 'holidays-in-diary-buffer
-  'diary-show-holidays-flag "23.1")
-
 (defcustom calendar-debug-sexp nil
   "Turn debugging on when evaluating a sexp in the diary or holiday list."
   :type 'boolean
   :group 'calendar)
 
+(define-obsolete-variable-alias 'all-hebrew-calendar-holidays
+  'calendar-hebrew-all-holidays-flag "23.1")
+
 (defcustom calendar-hebrew-all-holidays-flag nil
   "If nil, show only major holidays from the Hebrew calendar.
 This means only those Jewish holidays that appear on secular calendars.
@@ -747,8 +759,8 @@
   :type 'boolean
   :group 'holidays)
 
-(define-obsolete-variable-alias 'all-hebrew-calendar-holidays
-  'calendar-hebrew-all-holidays-flag "23.1")
+(define-obsolete-variable-alias 'all-christian-calendar-holidays
+  'calendar-christian-all-holidays-flag "23.1")
 
 (defcustom calendar-christian-all-holidays-flag nil
   "If nil, show only major holidays from the Christian calendar.
@@ -758,8 +770,8 @@
   :type 'boolean
   :group 'holidays)
 
-(define-obsolete-variable-alias 'all-christian-calendar-holidays
-  'calendar-christian-all-holidays-flag "23.1")
+(define-obsolete-variable-alias 'all-islamic-calendar-holidays
+  'calendar-islamic-all-holidays-flag "23.1")
 
 (defcustom calendar-islamic-all-holidays-flag nil
   "If nil, show only major holidays from the Islamic calendar.
@@ -769,8 +781,8 @@
   :type 'boolean
   :group 'holidays)
 
-(define-obsolete-variable-alias 'all-islamic-calendar-holidays
-  'calendar-islamic-all-holidays-flag "23.1")
+(define-obsolete-variable-alias 'all-bahai-calendar-holidays
+  'calendar-bahai-all-holidays-flag "23.1")
 
 (defcustom calendar-bahai-all-holidays-flag nil
   "If nil, show only major holidays from the Baha'i calendar.
@@ -780,9 +792,6 @@
   :type 'boolean
   :group 'holidays)
 
-(define-obsolete-variable-alias 'all-bahai-calendar-holidays
-  'calendar-bahai-all-holidays-flag "23.1")
-
 ;;; End of user options.
 
 (defconst calendar-buffer "*Calendar*"