[Emacs-diffs] /srv/bzr/emacs/trunk r104404: * lisp/startup.el (fancy-about-screen): Use standard mode line. (Bug#8740)

[Glenn Morris]

------------------------------------------------------------
revno: 104404
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2011-05-28 10:47:45 -0700
message:
  * lisp/startup.el (fancy-about-screen): Use standard mode line.  (Bug#8740)
modified:
  lisp/ChangeLog
  lisp/startup.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-28 17:40:37 +0000
+++ b/lisp/ChangeLog    2011-05-28 17:47:45 +0000
@@ -1,3 +1,7 @@
+2011-05-28  Glenn Morris  <address@hidden>
+
+       * startup.el (fancy-about-screen): Use standard mode line.  (Bug#8740)
+
 2011-05-28  Chong Yidong  <address@hidden>
 
        * help-fns.el (describe-function-1): If the function is a derived

=== modified file 'lisp/startup.el'
--- a/lisp/startup.el   2011-04-28 22:58:40 +0000
+++ b/lisp/startup.el   2011-05-28 17:47:45 +0000
@@ -1676,11 +1676,7 @@
     (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