procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(fancy-splash-screens): Temporarily set

Browse source 
minor-mode-map-alist to nil while displaying splash screens.
This commit is contained in:
Gerd Moellmann 2001-08-29 09:31:50 +00:00
parent 042e6d91ae
commit ff4ec1f7bd
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

5
lisp/startup.el
View file

@ -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)))))