# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1144246241 0
# Node ID 37d815169d7a21039c582359dbfc312f144ba455
# Parent  e29aa2ccc6a0bd6e562ad860387b473c6e4d07d5
(fancy-splash-screens): Set emulation-mode-map-alists
to nil while displaying slash screen.

diff -r e29aa2ccc6a0 -r 37d815169d7a lisp/startup.el
--- a/lisp/startup.el	Wed Apr 05 14:10:27 2006 +0000
+++ b/lisp/startup.el	Wed Apr 05 14:10:41 2006 +0000
@@ -1333,6 +1333,7 @@
 	(fancy-splash-outer-buffer (current-buffer))
 	splash-buffer
 	(old-minor-mode-map-alist minor-mode-map-alist)
+	(old-emulation-mode-map-alists emulation-mode-map-alists)
 	(frame (fancy-splash-frame))
 	timer)
     (save-selected-window
@@ -1351,6 +1352,7 @@
 	      (setq cursor-type nil
 		    display-hourglass nil
 		    minor-mode-map-alist nil
+		    emulation-mode-map-alists nil
 		    buffer-undo-list t
 		    mode-line-format (propertize "---- %b %-"
 						 'face '(:weight bold))
@@ -1362,7 +1364,8 @@
 	      (recursive-edit))
 	  (cancel-timer timer)
 	  (setq display-hourglass old-hourglass
-		minor-mode-map-alist old-minor-mode-map-alist)
+		minor-mode-map-alist old-minor-mode-map-alist
+		emulation-mode-map-alists old-emulation-mode-map-alists)
 	  (kill-buffer splash-buffer))))))
 
 (defun fancy-splash-frame ()