mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases 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
Show Stats 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.