summaryrefslogtreecommitdiff
path: root/lisp/log-view.el
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2005-06-10 08:29:58 +0000
committerMiles Bader <miles@gnu.org>2005-06-10 08:29:58 +0000
commitd842de85b30f892dc6baf682d008bb5ed3c0b492 (patch)
tree29c995c764d45c16f1023ec42c530fdbacbc0fc7 /lisp/log-view.el
parent2ec46551a385ecfa4a3a018a124ae727ec9c6ab8 (diff)
downloademacs-d842de85b30f892dc6baf682d008bb5ed3c0b492.tar.gz
emacs-d842de85b30f892dc6baf682d008bb5ed3c0b492.tar.bz2
emacs-d842de85b30f892dc6baf682d008bb5ed3c0b492.zip
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.
Diffstat (limited to 'lisp/log-view.el')
-rw-r--r--lisp/log-view.el12
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/log-view.el b/lisp/log-view.el
index c153cbdbb60..302246e2f4c 100644
--- a/lisp/log-view.el
+++ b/lisp/log-view.el
@@ -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 "^\\("