(fancy-splash-screens): Temporarily set

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

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7f0e617250..8878c8f1e09 100644
--- 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 6b82b2b7b01..45de4ea80a2 100644
--- 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)))))