(display-time-mail-face): Replace :group `faces' with `mode-line-faces'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7759b6276a73cfce8b37d9fd055f4625fb89db57..a9dd5493959e6515056cb83b93bd9670661f682f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,29 @@
+2006-01-17  Juri Linkov  <juri@jurta.org>
+
+       * faces.el (mode-line-faces): New defgroup.
+       (mode-line-highlight): Move definition after new defgroup.
+       (mode-line, mode-line-inactive, mode-line-highlight):
+       Replace :group `modeline' with `mode-line-faces'.
+       (mode-line-buffer-id): New face.
+       (modeline-buffer-id): New face alias.
+       (vertical-border): Remove :group `modeline'.
+
+       * bindings.el (propertized-buffer-identification): Use face
+       `mode-line-buffer-id' instead of `Buffer-menu-buffer'.
+       (mode-line-next-buffer, mode-line-previous-buffer): New functions.
+       (mode-line-buffer-identification-keymap): For mouse-1 replace
+       `mode-line-unbury-buffer' with `mode-line-previous-buffer'.
+       Replace `mode-line-bury-buffer' with `mode-line-next-buffer' for
+       mouse-3.
+
+       * info.el (Info-mode-line-node-keymap): New defvar.
+       (Info-set-mode-line): Use `stringp' to check Info-current-file.
+       Propertize Info-current-node with `mode-line-buffer-id' and
+       `mode-line-highlight' faces and `Info-mode-line-node-keymap'.
+
+       * time.el (display-time-mail-face): Replace :group `faces' with
+       `mode-line-faces'.
+
 2006-01-16  Kenichi Handa  <handa@m17n.org>
 
        * international/code-pages.el: Add autoload cookies for

diff --git a/lisp/time.el b/lisp/time.el
index b70e7f7b00ea5c9c70fa1d67f8d3077f7265b774..614bb055b25e4354bf96e8df4a450d1585fa5e1a 100644 (file)
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -129,7 +129,7 @@ This runs the normal hook `display-time-hook' after each update."
 If `display-time-use-mail-icon' is non-nil, the image's
 background color is the background of this face.  Set this to
 make the mail indicator stand out on a color display."
-  :group 'faces
+  :group 'mode-line-faces
   :group 'display-time
   :version "22.1"
   :type '(choice (const :tag "None" nil) face))