Mercurial > emacs
changeset 63222:cd220f7e47e7
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.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 10 Jun 2005 10:44:01 +0000 |
| parents | 6e968f79cfbc |
| children | c77bef56f877 |
| files | lisp/ChangeLog lisp/calendar/diary-lib.el |
| diffstat | 2 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jun 10 10:43:42 2005 +0000 +++ b/lisp/ChangeLog Fri Jun 10 10:44:01 2005 +0000 @@ -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):
--- a/lisp/calendar/diary-lib.el Fri Jun 10 10:43:42 2005 +0000 +++ b/lisp/calendar/diary-lib.el Fri Jun 10 10:44:01 2005 +0000 @@ -543,15 +543,17 @@ (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)))