Mercurial > emacs

changeset 39005:daf9a2765762

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fancy-splash-screens): Temporarily set minor-mode-map-alist to nil while displaying splash screens.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 29 Aug 2001 09:31:27 +0000
parents 88f9afdb0565
children 47ac337b9bde
files lisp/startup.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))))