(fancy-splash-default-action): Discard mouse click in

the spash screen window, as it has no sensible meaning in the
next window to be selected.  Fixes error reported by Jan Djärv

diff --git a/lisp/startup.el b/lisp/startup.el
index 3315e7236fb9795f89c53b8d25dac20636a0d7ec..3190d7c5aa7daee337037037f320879b6b7710f6 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1250,7 +1250,13 @@ This is an internal function used to turn off the splash screen after
 the user caused an input event by hitting a key or clicking with the
 mouse."
   (interactive)
-  (push last-command-event unread-command-events)
+  (if (and (consp last-command-event)
+          (eq (posn-window (event-start last-command-event))
+              (selected-window)))
+      ;; This is a mouse-down event in the spash screen window.
+      ;; Ignore it and consume the corresponding mouse-up event.
+      (read-event)
+    (push last-command-event unread-command-events))
   (throw 'exit nil))