andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-374

Browse source 
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.
This commit is contained in:
Miles Bader 2005-06-10 08:29:58 +00:00
parent 2ec46551a3
commit d842de85b3
2 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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):

12
lisp/log-view.el
View file

@ -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 "^\\("