Mercurial > emacs

diff lisp/startup.el @ 66046:f56e7dee3fe4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Kim F. Storm <storm@cua.dk>
date Wed, 12 Oct 2005 11:22:57 +0000
parents 64dda345009b
children 9a0d9cf10142
line wrap: on
line diff
--- 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))