# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1129116177 0
# Node ID f56e7dee3fe404357e95dad9bde628fc804a2745
# Parent  351bf0fec9aaeec338319db42b5da621bb5d9643
(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 D.

diff -r 351bf0fec9aa -r f56e7dee3fe4 lisp/startup.el
--- a/lisp/startup.el	Wed Oct 12 11:19:29 2005 +0000
+++ b/lisp/startup.el	Wed Oct 12 11:22:57 2005 +0000
@@ -1250,7 +1250,13 @@
 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))