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 /lisp/calendar | |
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.
Diffstat (limited to 'lisp/calendar')
-rw-r--r-- | lisp/calendar/diary-lib.el | 8 |
1 files changed, 5 insertions, 3 deletions
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))) |