procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(fancy-splash-default-action): Discard mouse click in

Browse source 
the spash screen window, as it has no sensible meaning in the
next window to be selected.  Fixes error reported by Jan Djärv
This commit is contained in:
Kim F. Storm 2005-10-12 11:22:57 +00:00
parent 621036f968
commit d54f452e20
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/startup.el
View file

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