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 | |
| 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
| -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)) |