From: Miles Bader <miles@gnu.org>
Date: Fri, 10 Jun 2005 08:29:58 +0000 (+0000)
Subject: Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-374
X-Git-Tag: emacs-pretest-22.0.90~9143
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d842de85b30f892dc6baf682d008bb5ed3c0b492;p=emacs.git

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 53b40436f91..9c599badd40 100644
--- 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 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 "^\\("