diff options
| author | Kim F. Storm <storm@cua.dk> | 2005-10-12 11:22:57 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2005-10-12 11:22:57 +0000 |
| commit | d54f452e20a88627c4405ad325b8aa12f2bc585c (patch) | |
| tree | c46fa19c0779a40740fe4e6ad4ac5aa2a678dbfb /lisp/startup.el | |
| parent | 621036f968d0a33ce5ca260cfc88e51a7f18c118 (diff) | |
| download | emacs-d54f452e20a88627c4405ad325b8aa12f2bc585c.tar.gz emacs-d54f452e20a88627c4405ad325b8aa12f2bc585c.tar.bz2 emacs-d54f452e20a88627c4405ad325b8aa12f2bc585c.zip | |
(fancy-splash-default-action): Discard mouse click in
the spash screen window, as it has no sensible meaning in the
next window to be selected. Fixes error reported by Jan Djärv
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 3315e7236fb..3190d7c5aa7 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1250,7 +1250,13 @@ 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) - (push last-command-event unread-command-events) + (if (and (consp last-command-event) + (eq (posn-window (event-start last-command-event)) + (selected-window))) + ;; This is a mouse-down event in the spash screen window. + ;; Ignore it and consume the corresponding mouse-up event. + (read-event) + (push last-command-event unread-command-events)) (throw 'exit nil)) |