# HG changeset patch # User Glenn Morris # Date 1207969909 0 # Node ID 4490d4f3ae501a7e20a9e5ac9e9f055e0ea11173 # Parent 28144b96054ea10b47f325762718713d4291f9fc (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. diff -r 28144b96054e -r 4490d4f3ae50 lisp/calendar/diary-lib.el --- 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)