diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-08-29 09:31:50 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-08-29 09:31:50 +0000 |
| commit | ff4ec1f7bda9fff1ff7a0550eb4170a7f6cc1261 (patch) | |
| tree | 3beb857b862406a3ff710f33ac1bfe1ee28367a0 /lisp/startup.el | |
| parent | 042e6d91ae38a5a5ad76d1acae4920eb71347cb0 (diff) | |
| download | emacs-ff4ec1f7bda9fff1ff7a0550eb4170a7f6cc1261.tar.gz | |
(fancy-splash-screens): Temporarily set
minor-mode-map-alist to nil while displaying splash screens.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 5 |
1 files changed, 4 insertions, 1 deletions
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))))) |