From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 28 May 2011 23:30:17 +0000 (-0400)
Subject: * startup.el (normal-splash-screen): Remove gratuitous mode-line setting (Bug#8740).
X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~110
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fbeba6e2303014c6ca175bebfcc46d480a2cff9e;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index af88e1cbf83..f6e5241de8f 100644
--- 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 6636cf944e3..26c5a469330 100644
--- 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))