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 |