Commit e85e809a authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

parent 2ca0d5f1
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment