From: Glenn Morris <rgm@gnu.org>
Date: Sat, 28 May 2011 17:47:45 +0000 (-0700)
Subject: * lisp/startup.el (fancy-about-screen): Use standard mode line.  (Bug#8740)
X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~122
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a639b16edf80d8255f64e9875eebd6755f32e66;p=emacs.git

* lisp/startup.el (fancy-about-screen): Use standard mode line.  (Bug#8740)
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dde6bffe7fd..3480e3a1382 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-05-28  Glenn Morris  <rgm@gnu.org>
+
+	* startup.el (fancy-about-screen): Use standard mode line.  (Bug#8740)
+
 2011-05-28  Chong Yidong  <cyd@stupidchicken.com>
 
 	* help-fns.el (describe-function-1): If the function is a derived
diff --git a/lisp/startup.el b/lisp/startup.el
index 14f4c7829d1..6636cf944e3 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1676,11 +1676,7 @@ splash screen in another window."
     (save-selected-window
       (select-frame frame)
       (switch-to-buffer "*About GNU Emacs*")
-      (setq buffer-undo-list t
-	    mode-line-format
-	    (concat "----"
-		    (propertize "%b" 'face 'mode-line-buffer-id)
-		    "%-"))
+      (setq buffer-undo-list t)
       (let ((inhibit-read-only t))
 	(erase-buffer)
 	(if pure-space-overflow