Mercurial > emacs
comparison lisp/emulation/viper-mous.el @ 15480:43a3308fcf61
*** empty log message ***
| author | Michael Kifer <kifer@cs.stonybrook.edu> |
|---|---|
| date | Sat, 22 Jun 1996 01:54:34 +0000 |
| parents | 7ff1df13b124 |
| children | beb94a5271e2 |
comparison
equal
deleted
inserted
replaced
| 15479:78863db629bb | 15480:43a3308fcf61 |
|---|---|
| 190 `vip-surrounding-word-function'." | 190 `vip-surrounding-word-function'." |
| 191 | 191 |
| 192 (let ((click-word "") | 192 (let ((click-word "") |
| 193 (click-pos (vip-mouse-click-posn click)) | 193 (click-pos (vip-mouse-click-posn click)) |
| 194 (click-buf (vip-mouse-click-window-buffer click))) | 194 (click-buf (vip-mouse-click-window-buffer click))) |
| 195 (or (numberp count) (setq count 1)) | 195 (or (natnump count) (setq count 1)) |
| 196 (or (numberp click-count) (setq click-count 1)) | 196 (or (natnump click-count) (setq click-count 1)) |
| 197 | 197 |
| 198 (save-excursion | 198 (save-excursion |
| 199 (save-window-excursion | 199 (save-window-excursion |
| 200 (if click-pos | 200 (if click-pos |
| 201 (progn | 201 (progn |
| 218 (interactive "e\nP") | 218 (interactive "e\nP") |
| 219 (if vip-frame-of-focus ;; to handle clicks in another frame | 219 (if vip-frame-of-focus ;; to handle clicks in another frame |
| 220 (select-frame vip-frame-of-focus)) | 220 (select-frame vip-frame-of-focus)) |
| 221 | 221 |
| 222 ;; turn arg into a number | 222 ;; turn arg into a number |
| 223 (cond ((numberp arg) nil) | 223 (cond ((integerp arg) nil) |
| 224 ;; prefix arg is a list when one hits C-u then command | 224 ;; prefix arg is a list when one hits C-u then command |
| 225 ((and (listp arg) (numberp (car arg))) | 225 ((and (listp arg) (integerp (car arg))) |
| 226 (setq arg (car arg))) | 226 (setq arg (car arg))) |
| 227 (t (setq arg 1))) | 227 (t (setq arg 1))) |
| 228 | 228 |
| 229 (let (click-count interrupting-event) | 229 (let (click-count interrupting-event) |
| 230 (if (and | 230 (if (and |