Mercurial > emacs
comparison lisp/emulation/viper-mous.el @ 14586:298ed6bf5d2d
(vip-mouse-click-insert-word): fixed a typo.
author | Michael Kifer <kifer@cs.stonybrook.edu> |
---|---|
date | Fri, 16 Feb 1996 21:49:32 +0000 |
parents | 854325337547 |
children | 7ff1df13b124 |
comparison
equal
deleted
inserted
replaced
14585:b6228a159e75 | 14586:298ed6bf5d2d |
---|---|
222 (let (click-count interrupting-event) | 222 (let (click-count interrupting-event) |
223 (if (and | 223 (if (and |
224 (vip-multiclick-p) | 224 (vip-multiclick-p) |
225 ;; This trick checks if there is a pending mouse event | 225 ;; This trick checks if there is a pending mouse event |
226 ;; if so, we use this latter event and discard the current mouse click | 226 ;; if so, we use this latter event and discard the current mouse click |
227 ;; If the next panding event is not a mouse event, we execute | 227 ;; If the next pending event is not a mouse event, we execute |
228 ;; the current mouse event | 228 ;; the current mouse event |
229 (progn | 229 (progn |
230 (setq interrupting-event (vip-read-event)) | 230 (setq interrupting-event (vip-read-event)) |
231 (vip-mouse-event-p last-input-event))) | 231 (vip-mouse-event-p last-input-event))) |
232 (progn ;; interrupted wait | 232 (progn ;; interrupted wait |