From ed256b30574ccaeb894c34369f79f4dd082bbd6a Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Sat, 19 Nov 2005 06:34:23 +0000 Subject: [PATCH] (fancy-splash-default-action): Discard only mouse-down and succeeding mouse-up events in the splash screen window so that drag-n-drop event can be processed. --- lisp/startup.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/startup.el b/lisp/startup.el index 9e3f2bb4aa..5c264749dd 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1301,7 +1301,7 @@ 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) - (if (and (consp last-command-event) + (if (and (memq 'down (event-modifiers last-command-event)) (eq (posn-window (event-start last-command-event)) (selected-window))) ;; This is a mouse-down event in the spash screen window. -- 2.39.2