[Emacs-diffs] /srv/bzr/emacs/trunk r104416: * startup.el (normal-splash-screen): Remove gratuitous mode-line setting (Bug#8740).

[Chong Yidong]

------------------------------------------------------------
revno: 104416
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2011-05-28 19:30:17 -0400
message:
  * startup.el (normal-splash-screen): Remove gratuitous mode-line setting 
(Bug#8740).
modified:
  lisp/ChangeLog
  lisp/startup.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-28 23:07:43 +0000
+++ b/lisp/ChangeLog    2011-05-28 23:30:17 +0000
@@ -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  <address@hidden>  (tiny change)
 
        * buff-menu.el (Buffer-menu-revert-function, Buffer-menu-sort)

=== modified file 'lisp/startup.el'
--- a/lisp/startup.el   2011-05-28 17:47:45 +0000
+++ b/lisp/startup.el   2011-05-28 23:30:17 +0000
@@ -1739,9 +1739,6 @@
       (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))