# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1132382063 0
# Node ID 1dd15c8aa21e8cd566a35db31a64753b2955e82d
# Parent  0008945948009c852063f378433cce917f7a3db9
(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 -r 000894594800 -r 1dd15c8aa21e lisp/startup.el
--- a/lisp/startup.el	Sat Nov 19 03:34:32 2005 +0000
+++ b/lisp/startup.el	Sat Nov 19 06:34:23 2005 +0000
@@ -1301,7 +1301,7 @@
 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.