From 83033a3a5bc68dda512ea3e4a05a922ea14ca506 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 16 Jan 2006 23:55:25 +0000 Subject: [PATCH] (display-time-mail-face): Replace :group `faces' with `mode-line-faces'. --- lisp/ChangeLog | 26 ++++++++++++++++++++++++++ lisp/time.el | 2 +- 2 files changed, 27 insertions(+), 1 deletion(-) 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 + + * 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 * 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)) -- 2.11.4.GIT