Mercurial > emacs

changeset 107204:f49497a70cf6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* startup.el (fancy-about-screen): In mode-line, apply mode-line-buffer-id face only to the buffer name (Bug#5613).
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 21 Feb 2010 08:11:07 -0500
parents 5cec35cc882b
children e91df3663a07
files lisp/ChangeLog lisp/startup.el
diffstat 2 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sat Feb 20 09:11:20 2010 -0500
+++ b/lisp/ChangeLog	Sun Feb 21 08:11:07 2010 -0500
@@ -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
--- a/lisp/startup.el	Sat Feb 20 09:11:20 2010 -0500
+++ b/lisp/startup.el	Sun Feb 21 08:11:07 2010 -0500
@@ -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