Commit ccacbcec authored by Miles Bader's avatar Miles Bader
Browse files

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.
parent 75eb05f6
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):
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment