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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 53b4043..9c599ba 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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): 

diff --git a/lisp/log-view.el b/lisp/log-view.el
index c153cbd..302246e 100644 (file)
--- 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 "^\\("