/[emacs]/emacs/lisp/startup.el
ViewVC logotype

Diff of /emacs/lisp/startup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.378 by jhd, Sun Oct 9 06:58:13 2005 UTC revision 1.379 by kfstorm, Wed Oct 12 11:22:57 2005 UTC
# Line 1250  This is an internal function used to tur Line 1250  This is an internal function used to tur
1250  the user caused an input event by hitting a key or clicking with the  the user caused an input event by hitting a key or clicking with the
1251  mouse."  mouse."
1252    (interactive)    (interactive)
1253    (push last-command-event unread-command-events)    (if (and (consp last-command-event)
1254               (eq (posn-window (event-start last-command-event))
1255                   (selected-window)))
1256          ;; This is a mouse-down event in the spash screen window.
1257          ;; Ignore it and consume the corresponding mouse-up event.
1258          (read-event)
1259        (push last-command-event unread-command-events))
1260    (throw 'exit nil))    (throw 'exit nil))
1261    
1262    

Legend:
Removed from v.1.378  
changed lines
  Added in v.1.379

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26