diff options
author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2005-11-19 06:34:23 +0000 |
---|---|---|
committer | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2005-11-19 06:34:23 +0000 |
commit | ed256b30574ccaeb894c34369f79f4dd082bbd6a (patch) | |
tree | 9e659f56f479f8836c11925a4aad59f8efe142e9 /lisp/startup.el | |
parent | f70494599726c6fb491e71a43b392b30b071ce23 (diff) | |
download | emacs-ed256b30574ccaeb894c34369f79f4dd082bbd6a.tar.gz |
(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.
Diffstat (limited to 'lisp/startup.el')
-rw-r--r-- | lisp/startup.el | 2 |
1 files changed, 1 insertions, 1 deletions
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. |