[Emacs-diffs] /srv/bzr/emacs/trunk r99541: * startup.el (fancy-about-screen): In mode-line, apply

[Chong Yidong]

------------------------------------------------------------
revno: 99541
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2010-02-21 08:11:07 -0500
message:
  * startup.el (fancy-about-screen): In mode-line, apply
  mode-line-buffer-id face only to the buffer name (Bug#5613).
modified:
  lisp/ChangeLog
  lisp/startup.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-02-20 13:53:06 +0000
+++ b/lisp/ChangeLog    2010-02-21 13:11:07 +0000
@@ -1,3 +1,8 @@
+2010-02-21  Chong Yidong  <address@hidden>
+
+       * 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  <address@hidden>
 
        * progmodes/compile.el (compilation-error-regexp-alist-alist): In

=== modified file 'lisp/startup.el'
--- a/lisp/startup.el   2010-02-05 04:49:36 +0000
+++ b/lisp/startup.el   2010-02-21 13:11:07 +0000
@@ -1626,8 +1626,10 @@
       (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