Mercurial > emacs
changeset 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 | d307630996bc |
| children | f810bd3a6217 |
| files | lisp/ChangeLog lisp/log-view.el |
| diffstat | 2 files changed, 14 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jun 10 08:25:35 2005 +0000 +++ b/lisp/ChangeLog Fri Jun 10 08:29:58 2005 +0000 @@ -1,5 +1,11 @@ 2005-06-10 Miles Bader <miles@gnu.org> + * 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. + * paren.el (show-paren-match, show-paren-mismatch): Remove "-face" suffix from face names. (show-paren-match-face, show-paren-mismatch-face):
--- 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 "^\\("