changeset 94020:4490d4f3ae50

(diary-face, diary-anniversary, diary-time, diary-button): 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:49 +0000
parents 28144b96054e
children ae1387262a67
files lisp/calendar/diary-lib.el
diffstat 1 files changed, 30 insertions(+), 30 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/diary-lib.el	Sat Apr 12 03:11:03 2008 +0000
+++ b/lisp/calendar/diary-lib.el	Sat Apr 12 03:11:49 2008 +0000
@@ -54,25 +54,25 @@
 (defcustom diary-face 'diary
   "Face name to use for diary entries."
   :type 'face
-  :group 'diary)
+  :group 'calendar-faces)
 (make-obsolete-variable 'diary-face "customize the face `diary' instead."
                         "23.1")
 
 (defface diary-anniversary '((t :inherit font-lock-keyword-face))
   "Face used for anniversaries in the fancy diary display."
   :version "22.1"
-  :group 'diary)
+  :group 'calendar-faces)
 
 (defface diary-time '((t :inherit font-lock-variable-name-face))
-  "Face used for times of day in the diary."
+  "Face used for times of day in the fancy diary display."
   :version "22.1"
-  :group 'diary)
+  :group 'calendar-faces)
 
 (defface diary-button '((((type pc) (class color))
                          (:foreground "lightblue")))
-  "Default face used for buttons."
+  "Face used for buttons in the fancy diary display."
   :version "22.1"
-  :group 'diary)
+  :group 'calendar-faces)
 ;; Backward-compatibility alias. FIXME make obsolete.
 (put 'diary-button-face 'face-alias 'diary-button)
 
@@ -135,15 +135,15 @@
   :type 'function
   :group 'diary)
 
+(define-obsolete-variable-alias 'sexp-diary-entry-symbol
+  'diary-sexp-entry-symbol "23.1")
+
 (defcustom diary-sexp-entry-symbol "%%"
   "The string used to indicate a sexp diary entry in `diary-file'.
 See the documentation for the function `diary-list-sexp-entries'."
   :type 'string
   :group 'diary)
 
-(define-obsolete-variable-alias 'sexp-diary-entry-symbol
-  'diary-sexp-entry-symbol "23.1")
-
 (defcustom diary-hook nil
   "List of functions called after the display of the diary.
 Used for example by the appointment package - see `appt-activate'."
@@ -179,6 +179,9 @@
   :set 'diary-set-maybe-redraw
   :group 'diary)
 
+(define-obsolete-variable-alias 'list-diary-entries-hook
+  'diary-list-entries-hook "23.1")
+
 (defcustom diary-list-entries-hook nil
   "List of functions called after diary file is culled for relevant entries.
 You might wish to add `diary-include-other-diary-files', in which case
@@ -196,8 +199,8 @@
   :options '(diary-include-other-diary-files diary-sort-entries)
   :group 'diary)
 
-(define-obsolete-variable-alias 'list-diary-entries-hook
-  'diary-list-entries-hook "23.1")
+(define-obsolete-variable-alias 'mark-diary-entries-hook
+  'diary-mark-entries-hook "23.1")
 
 (defcustom diary-mark-entries-hook nil
   "List of functions called after marking diary entries in the calendar.
@@ -208,8 +211,8 @@
   :options '(diary-mark-included-diary-files)
   :group 'diary)
 
-(define-obsolete-variable-alias 'mark-diary-entries-hook
-  'diary-mark-entries-hook "23.1")
+(define-obsolete-variable-alias 'nongregorian-diary-listing-hook
+  'diary-nongregorian-listing-hook "23.1")
 
 (defcustom diary-nongregorian-listing-hook nil
   "List of functions called for listing diary file and included files.
@@ -224,8 +227,8 @@
              diary-islamic-list-entries)
   :group 'diary)
 
-(define-obsolete-variable-alias 'nongregorian-diary-listing-hook
-  'diary-nongregorian-listing-hook "23.1")
+(define-obsolete-variable-alias 'nongregorian-diary-marking-hook
+  'diary-nongregorian-marking-hook "23.1")
 
 (defcustom diary-nongregorian-marking-hook nil
   "List of functions called for marking diary file and included files.
@@ -240,8 +243,8 @@
              diary-islamic-mark-entries)
   :group 'diary)
 
-(define-obsolete-variable-alias 'nongregorian-diary-marking-hook
-  'diary-nongregorian-marking-hook "23.1")
+(define-obsolete-variable-alias 'print-diary-entries-hook
+  'diary-print-entries-hook "23.1")
 
 (defcustom diary-print-entries-hook 'lpr-buffer
   "Run by `diary-print-entries' after preparing a temporary diary buffer.
@@ -253,9 +256,6 @@
   :type 'hook
   :group 'diary)
 
-(define-obsolete-variable-alias 'print-diary-entries-hook
-  'diary-print-entries-hook "23.1")
-
 (defcustom diary-unknown-time -9999
   "Value returned by `diary-entry-time' when no time is found.
 The default value -9999 causes entries with no recognizable time
@@ -293,6 +293,9 @@
   :type 'sexp
   :group 'diary)
 
+(define-obsolete-variable-alias 'abbreviated-calendar-year
+  'diary-abbreviated-year-flag "23.1")
+
 (defcustom diary-abbreviated-year-flag t
   "Interpret a two-digit year DD in a diary entry as either 19DD or 20DD.
 This applies to the Gregorian, Hebrew, Islamic, and Baha'i calendars.
@@ -303,9 +306,6 @@
   :type 'boolean
   :group 'diary)
 
-(define-obsolete-variable-alias 'abbreviated-calendar-year
-  'diary-abbreviated-year-flag "23.1")
-
 (defcustom diary-outlook-formats
   '(
     ;; When: 11 October 2001 12:00-14:00 (GMT) Greenwich Mean Time : Dublin, ...
@@ -427,6 +427,9 @@
          ;; Note this assumes diary was called without prefix arg.
          (diary))))
 
+(define-obsolete-variable-alias 'number-of-diary-entries
+  'diary-number-of-entries "23.1")
+
 (defcustom diary-number-of-entries 1
   "Specifies how many days of diary entries are to be displayed initially.
 This variable affects the diary display when the command \\[diary] is used,
@@ -457,10 +460,7 @@
   :set 'diary-set-maybe-redraw
   :group 'diary)
 
-(define-obsolete-variable-alias 'number-of-diary-entries
-  'diary-number-of-entries "23.1")
-
-;;; More user options in calendar.el.
+;;; More user options in calendar.el, holidays.el.
 
 
 (defun diary-check-diary-file ()
@@ -2294,6 +2294,9 @@
    "\\(: .*\\)?")
   "Regular expression matching a date header in Fancy Diary.")
 
+(define-obsolete-variable-alias 'fancy-diary-font-lock-keywords
+  'diary-fancy-font-lock-keywords "23.1")
+
 (defvar diary-fancy-font-lock-keywords
   (list
    (list
@@ -2311,9 +2314,6 @@
               diary-time-regexp) . 'diary-time))
   "Keywords to highlight in fancy diary display.")
 
-(define-obsolete-variable-alias 'fancy-diary-font-lock-keywords
-  'diary-fancy-font-lock-keywords "23.1")
-
 ;; If region looks like it might start or end in the middle of a
 ;; multiline pattern, extend the region to encompass the whole pattern.
 (defun diary-fancy-font-lock-fontify-region-function (beg end &optional verbose)