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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dde6bffe7fde2c648964918ae218f7c6d133dd4b..3480e3a13826c0136d2d6aa382a611c71e7c8e99 100644 (file)
--- 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 14f4c7829d1b8372082a588300859a32f73f672a..6636cf944e3081bc096e38bdf3bb80ade017a2bf 100644 (file)
--- 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