changeset 72939:980586804d04

* startup.el (fancy-splash-screens): Don't switch to the scratch buffer; it may not be the next buffer.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 16 Sep 2006 18:23:05 +0000
parents 4ec3fdbaa1ab
children c2b72b555fc4
files lisp/ChangeLog lisp/startup.el
diffstat 2 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sat Sep 16 18:22:01 2006 +0000
+++ b/lisp/ChangeLog	Sat Sep 16 18:23:05 2006 +0000
@@ -1,3 +1,8 @@
+2006-09-16  Chong Yidong  <cyd@stupidchicken.com>
+
+	* startup.el (fancy-splash-screens): Don't switch to the scratch
+	buffer; it may not be the next buffer.
+
 2006-09-16  Romain Francoise  <romain@orebokech.com>
 
 	* saveplace.el (load-save-place-alist-from-file): Use expanded name
--- a/lisp/startup.el	Sat Sep 16 18:22:01 2006 +0000
+++ b/lisp/startup.el	Sat Sep 16 18:23:05 2006 +0000
@@ -1383,11 +1383,7 @@
 	      (setq display-hourglass old-hourglass
 		    minor-mode-map-alist old-minor-mode-map-alist
 		    emulation-mode-map-alists old-emulation-mode-map-alists)
-	      (use-local-map nil)
-	      (switch-to-buffer "*scratch*")
-;;;  Comment out the next line in order to see the splash buffer exactly as it was.
-	      (kill-buffer splash-buffer)
-	      ))))
+	      (kill-buffer splash-buffer)))))
     ;; If hide-on-input is nil, don't hide the buffer on input.
     (if (or (window-minibuffer-p)
 	    (window-dedicated-p (selected-window)))