# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 999077487 0
# Node ID daf9a2765762062938aa451b1c0d6db8b3c519a3
# Parent  88f9afdb0565d6187787b8480f552f2aa99e75bf
(fancy-splash-screens): Temporarily set
minor-mode-map-alist to nil while displaying splash screens.

diff -r 88f9afdb0565 -r daf9a2765762 lisp/startup.el
--- a/lisp/startup.el	Tue Aug 28 17:12:58 2001 +0000
+++ b/lisp/startup.el	Wed Aug 29 09:31:27 2001 +0000
@@ -1185,6 +1185,7 @@
   (setq tab-width 20)
   (let ((old-hourglass display-hourglass)
 	(splash-buffer (current-buffer))
+	(old-minor-mode-map-alist minor-mode-map-alist)
 	timer)
     (catch 'stop-splashing
       (unwind-protect
@@ -1195,6 +1196,7 @@
 	    (define-key map [mode-line t] 'ignore)
 	    (setq cursor-type nil
 		  display-hourglass nil
+		  minor-mode-map-alist nil
 		  buffer-undo-list t
 		  mode-line-format (propertize "---- %b %-" 
 					       'face '(:weight bold))
@@ -1205,7 +1207,8 @@
 					splash-buffer))
 	    (recursive-edit))
 	  (cancel-timer timer)
-	  (setq display-hourglass old-hourglass)
+	  (setq display-hourglass old-hourglass
+		minor-mode-map-alist old-minor-mode-map-alist)
 	  (kill-buffer splash-buffer)))))