# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1251682423 0
# Node ID ab0d63f460aa9eb1fb061ebe5e398c6058e6686e
# Parent  8debb6dffc0fbc55f6a66db9a5aef22eb392028d
(calendar-today): Doc fix.
(calendar-today-face, diary-face, holiday-face):
Mark these face aliases as obsolete.

diff -r 8debb6dffc0f -r ab0d63f460aa lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Mon Aug 31 01:33:11 2009 +0000
+++ b/lisp/calendar/calendar.el	Mon Aug 31 01:33:43 2009 +0000
@@ -214,10 +214,10 @@
 (defface calendar-today
   '((t (:underline t)))
   "Face for indicating today's date in the calendar.
-See `calendar-today-marker'."
+See the variable `calendar-today-marker'."
   :group 'calendar-faces)
-;; Backward-compatibility alias.  FIXME make obsolete.
-(put 'calendar-today-face 'face-alias 'calendar-today)
+
+(define-obsolete-face-alias 'calendar-today-face 'calendar-today "22.1")
 
 (defface diary
   '((((min-colors 88) (class color) (background light))
@@ -234,8 +234,8 @@
 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)
+
+(define-obsolete-face-alias 'diary-face 'diary "22.1")
 
 (defface holiday
   '((((class color) (background light))
@@ -247,8 +247,8 @@
   "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)
+
+(define-obsolete-face-alias 'holiday-face 'holiday "22.1")
 
 ;; These briefly checked font-lock-mode, but that is broken, since it
 ;; is a buffer-local variable, and which buffer happens to be current
@@ -2337,6 +2337,7 @@
 this function to `calendar-today-visible-hook'."
   (calendar-mark-visible-date (calendar-cursor-to-date) calendar-today-marker))
 
+;; FIXME why the car? Almost every usage calls list on the args.
 (defun calendar-date-compare (date1 date2)
   "Return t if DATE1 is before DATE2, nil otherwise.
 The actual dates are in the car of DATE1 and DATE2."