mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(fancy-splash-screens): Ignore events on the mode-line.

Browse Source
This commit is contained in:
Gerd Moellmann 2001-05-17 11:52:45 +00:00
parent 2ca0d5f113
commit e85e809a5c
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
2001-05-17 Gerd Moellmann <gerd@gnu.org>
* startup.el (fancy-splash-screens): Ignore events on the mode-line.
* net/ange-ftp.el (ange-ftp-write-region): Make sure to record the
last coding system used before calling set-buffer-modified-p
because that function changes last-coding-system.

5
lisp/startup.el
View File

@ -1181,11 +1181,12 @@ where FACE is a valid face specification, as it can be used with
(use-local-map map)
(define-key map [t] 'fancy-splash-default-action)
(define-key map [mouse-movement] 'ignore)
(define-key map [mode-line t] 'ignore)
(setq cursor-type nil
display-hourglass nil
buffer-undo-list t
mode-line-format
(propertize "---- %b %-" 'face '(:weight bold))
mode-line-format (propertize "---- %b %-"
'face '(:weight bold))
fancy-splash-stop-time (+ (float-time)
(max 60 fancy-splash-max-time))
timer (run-with-timer 0 fancy-splash-delay