From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Sat, 19 Nov 2005 06:34:23 +0000 (+0000)
Subject: (fancy-splash-default-action): Discard only
X-Git-Tag: emacs-pretest-22.0.90~5782
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed256b30574ccaeb894c34369f79f4dd082bbd6a;p=emacs.git

(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.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 9e3f2bb4aa9..5c264749dd6 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.