* startup.el (fancy-about-screen): In mode-line, apply

mode-line-buffer-id face only to the buffer name (Bug#5613).

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