From 9f0ae1a527d2560b66b51935acf5e2d56d64c603 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Wed, 5 Apr 2006 14:10:41 +0000 Subject: [PATCH] (fancy-splash-screens): Set emulation-mode-map-alists to nil while displaying slash screen. --- lisp/startup.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/startup.el b/lisp/startup.el index 601d281cea9..6fdd4fa4999 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1333,6 +1333,7 @@ mouse." (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 @@ mouse." (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 @@ mouse." (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 () -- 2.39.2