# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 990100323 0
# Node ID 0a8958170e89ee3f71c169a48e57f6bcfe09646d
# Parent  79cf203bbd1a12b43323a564af6daad6606bfb79
(fancy-splash-screens): Ignore events on the mode-line.

diff -r 79cf203bbd1a -r 0a8958170e89 lisp/startup.el
--- a/lisp/startup.el	Thu May 17 11:26:56 2001 +0000
+++ b/lisp/startup.el	Thu May 17 11:52:03 2001 +0000
@@ -1181,11 +1181,12 @@
 	    (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