From: Miles Bader <miles@gnu.org>
Date: Fri, 10 Jun 2005 10:44:01 +0000 (+0000)
Subject: Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-386
X-Git-Tag: emacs-pretest-22.0.90~9124
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ccacbcecfe27fb15f987627cc128816bc94ebd41;p=emacs.git

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-386

Remove "-face" suffix from diary-button face

2005-06-10  Miles Bader  <miles@gnu.org>

   * lisp/calendar/diary-lib.el (diary-button): Remove "-face" suffix from
   face name.
   (diary-button-face): New backward-compatibility alias for renamed face.
   (diary-entry): Use renamed diary-button face.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b69d45d6e4f..2167a636680 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2005-06-10  Miles Bader  <miles@gnu.org>
 
+	* calendar/diary-lib.el (diary-button): Remove "-face" suffix from
+	face name.
+	(diary-button-face): New backward-compatibility alias for renamed face.
+	(diary-entry): Use renamed diary-button face.
+
 	* calendar/calendar.el (diary, calendar-today, holiday)
 	(mark-visible-calendar-date): Remove "-face" suffix from face names.
 	(diary-face, calendar-today-face, holiday-face):
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 6aec579c107..a0e9d1f90b7 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -543,15 +543,17 @@ changing the variable `diary-include-string'."
           (set-window-start window (point-min))))
       (message "Preparing diary...done"))))
 
-(defface diary-button-face '((((type pc) (class color))
-		   (:foreground "lightblue")))
+(defface diary-button '((((type pc) (class color))
+			 (:foreground "lightblue")))
   "Default face used for buttons."
   :version "22.1"
   :group 'diary)
+;; backward-compatibility alias
+(put 'diary-button-face 'face-alias 'diary-button)
 
 (define-button-type 'diary-entry
   'action #'diary-goto-entry
-  'face #'diary-button-face)
+  'face 'diary-button)
 
 (defun diary-goto-entry (button)
   (let ((marker (button-get button 'marker)))