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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7dcf230045422a9f388eab6fbde363e20dd4f7e3..0e863bd8ce7145d8fba32de5b858c0c664a28005 100644 (file)
--- 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 129eb2e609354f73860a6d2ad887a12a2d2ba605..87f1a00bd542ca89b596c32023a2e6441a13bc3f 100644 (file)
--- 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