* startup.el (normal-splash-screen): Remove gratuitous mode-line setting (Bug#8740).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index af88e1c..f6e5241 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -17,6 +17,9 @@
 
        * newcomment.el (comment-end-skip): Doc fix (Bug#8659).
 
+       * startup.el (normal-splash-screen): Remove gratuitous mode-line
+       setting (Bug#8740).
+
 2011-05-28  Alp Aker  <aker@pitt.edu>  (tiny change)
 
        * buff-menu.el (Buffer-menu-revert-function, Buffer-menu-sort)

diff --git a/lisp/startup.el b/lisp/startup.el
index 6636cf9..26c5a46 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1739,9 +1739,6 @@ splash screen in another window."
       (erase-buffer)
       (setq default-directory command-line-default-directory)
       (set (make-local-variable 'tab-width) 8)
-      (if (not startup)
-         (set (make-local-variable 'mode-line-format)
-              (propertize "---- %b %-" 'face 'mode-line-buffer-id)))
 
       (if pure-space-overflow
          (insert pure-space-overflow-message))