(fancy-splash-screens): Temporarily set

minor-mode-map-alist to nil while displaying splash screens.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7f0e617250f9dd23dbf1f416bfb34342bdab487..8878c8f1e093c9e68c87bb65dec2a376de84cf88 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-29  Gerd Moellmann  <gerd@gnu.org>
+
+       * startup.el (fancy-splash-screens): Temporarily set
+       minor-mode-map-alist to nil while displaying splash screens.
+
 2001-08-28  Andre Spiegel  <spiegel@gnu.org>
 
        * vc.el (vc-revert-file): Call the backend even if the FILE's

diff --git a/lisp/startup.el b/lisp/startup.el
index 6b82b2b7b013433e2bac4cf16baaa79c6ba3a883..45de4ea80a2809ddea11641c2b1864234aa25ce2 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1185,6 +1185,7 @@ where FACE is a valid face specification, as it can be used with
   (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 @@ where FACE is a valid face specification, as it can be used with
            (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 @@ where FACE is a valid face specification, as it can be used with
                                        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)))))