mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-22 14:01:47 -07:00
Code Issues Projects Releases Wiki Activity

(fancy-splash-default-action): Discard only

Browse source 
mouse-down and succeeding mouse-up events in the splash screen
window so that drag-n-drop event can be processed.
This commit is contained in:
YAMAMOTO Mitsuharu 2005-11-19 06:34:23 +00:00
parent f704945997
commit ed256b3057
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/startup.el
View file

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