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

2 files changed, 5 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7608adc8f89..cc5e9071802 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
diff --git a/lisp/startup.el b/lisp/startup.el
index 4006ca70092..84266811be1 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -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