Mercurial > emacs

changeset 69807:37d815169d7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fancy-splash-screens): Set emulation-mode-map-alists to nil while displaying slash screen.
author Kim F. Storm <storm@cua.dk>
date Wed, 05 Apr 2006 14:10:41 +0000
parents e29aa2ccc6a0
children c2821caabd95
files lisp/startup.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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 ()