Mercurial > emacs

changeset 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 351bf0fec9aa
children 959353b42d14
files lisp/startup.el
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
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))