diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2010-02-21 08:11:07 -0500 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2010-02-21 08:11:07 -0500 |
| commit | bb23f6e82467a9939b1ae4d1a2fb0a923838afee (patch) | |
| tree | 39175d6ec012b4ec98340b1e3b037c839e722381 | |
| parent | f9b84f9f4baeb658b57a0a92c3dee9df5b4ab028 (diff) | |
| download | emacs-bb23f6e82467a9939b1ae4d1a2fb0a923838afee.tar.gz | |
* startup.el (fancy-about-screen): In mode-line, apply
mode-line-buffer-id face only to the buffer name (Bug#5613).
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/startup.el | 6 |
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7dcf2300454..0e863bd8ce7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-02-21 Chong Yidong <cyd@stupidchicken.com> + + * startup.el (fancy-about-screen): In mode-line, apply + mode-line-buffer-id face only to the buffer name (Bug#5613). + 2010-02-20 Kevin Ryde <user42@zip.com.au> * progmodes/compile.el (compilation-error-regexp-alist-alist): In diff --git a/lisp/startup.el b/lisp/startup.el index 129eb2e6093..87f1a00bd54 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1626,8 +1626,10 @@ splash screen in another window." (select-frame frame) (switch-to-buffer "*About GNU Emacs*") (setq buffer-undo-list t - mode-line-format (propertize "---- %b %-" - 'face 'mode-line-buffer-id)) + mode-line-format + (concat "----" + (propertize "%b" 'face 'mode-line-buffer-id) + "%-")) (let ((inhibit-read-only t)) (erase-buffer) (if pure-space-overflow |