From d54f452e20a88627c4405ad325b8aa12f2bc585c Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Wed, 12 Oct 2005 11:22:57 +0000 Subject: [PATCH] =?utf8?q?(fancy-splash-default-action):=20Discard=20mouse?= =?utf8?q?=20click=20in=20the=20spash=20screen=20window,=20as=20it=20has?= =?utf8?q?=20no=20sensible=20meaning=20in=20the=20next=20window=20to=20be?= =?utf8?q?=20selected.=20=20Fixes=20error=20reported=20by=20Jan=20Dj=C3=A4?= =?utf8?q?rv?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- lisp/startup.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/startup.el b/lisp/startup.el index 3315e7236fb..3190d7c5aa7 100644 --- 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)) -- 2.39.2