Mercurial > emacs
diff lisp/log-view.el @ 63203:ecbe83adff58
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-374
Remove "-face" suffix from log-view faces
2005-06-10 Miles Bader <miles@gnu.org>
* lisp/log-view.el (log-view-file, log-view-message):
Remove "-face" suffix from face names.
(log-view-file-face, log-view-message-face):
New backward-compatibility aliases for renamed faces.
(log-view-file-face, log-view-message-face): Use renamed log-view faces.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 10 Jun 2005 08:29:58 +0000 |
parents | e7ec1f80fc80 |
children | 6fb026ad601f a1b34dec1104 |
line wrap: on
line diff
--- a/lisp/log-view.el Fri Jun 10 08:25:35 2005 +0000 +++ b/lisp/log-view.el Fri Jun 10 08:29:58 2005 +0000 @@ -63,21 +63,25 @@ (defvar log-view-mode-hook nil "Hook run at the end of `log-view-mode'.") -(defface log-view-file-face +(defface log-view-file '((((class color) (background light)) (:background "grey70" :weight bold)) (t (:weight bold))) "Face for the file header line in `log-view-mode'." :group 'log-view) -(defvar log-view-file-face 'log-view-file-face) +;; backward-compatibility alias +(put 'log-view-file-face 'face-alias 'log-view-file) +(defvar log-view-file-face 'log-view-file) -(defface log-view-message-face +(defface log-view-message '((((class color) (background light)) (:background "grey85")) (t (:weight bold))) "Face for the message header line in `log-view-mode'." :group 'log-view) -(defvar log-view-message-face 'log-view-message-face) +;; backward-compatibility alias +(put 'log-view-message-face 'face-alias 'log-view-message) +(defvar log-view-message-face 'log-view-message) (defconst log-view-file-re (concat "^\\("