Mercurial > emacs
changeset 66999:1dd15c8aa21e
(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.
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
|---|---|
| date | Sat, 19 Nov 2005 06:34:23 +0000 |
| parents | 000894594800 |
| children | e99c1fd37bcd |
| files | lisp/startup.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.