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

2 files changed, 27 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7759b6276a7..a9dd5493959 100644
--- 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 b70e7f7b00e..614bb055b25 100644
--- 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))