diff options
author | Miles Bader <[email protected]> | 2005-06-10 10:44:01 +0000 |
---|---|---|
committer | Miles Bader <[email protected]> | 2005-06-10 10:44:01 +0000 |
commit | ccacbcecfe27fb15f987627cc128816bc94ebd41 (patch) | |
tree | c61477f1f67e972157c220fe3af35a6f3ffeb461 | |
parent | 75eb05f6458f324e100ac5eaaca73257e0455bb5 (diff) |
Revision: [email protected]/emacs--cvs-trunk--0--patch-386
Remove "-face" suffix from diary-button face
2005-06-10 Miles Bader <[email protected]>
* 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.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/calendar/diary-lib.el | 8 |
2 files changed, 10 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b69d45d6e4..2167a63668 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2005-06-10 Miles Bader <[email protected]> + * 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 6aec579c10..a0e9d1f90b 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))) |