Mercurial > emacs
comparison lisp/emulation/viper-mous.el @ 19203:58c50205001d
new version
| author | Michael Kifer <kifer@cs.stonybrook.edu> |
|---|---|
| date | Thu, 07 Aug 1997 04:48:48 +0000 |
| parents | dfbef8117c6a |
| children | 22c1e47f66e1 |
comparison
equal
deleted
inserted
replaced
| 19202:e32501a34d5c | 19203:58c50205001d |
|---|---|
| 422 (setq arg (1- arg))) | 422 (setq arg (1- arg))) |
| 423 )))) | 423 )))) |
| 424 | 424 |
| 425 (defun viper-mouse-catch-frame-switch (event arg) | 425 (defun viper-mouse-catch-frame-switch (event arg) |
| 426 "Catch the event of switching frame. | 426 "Catch the event of switching frame. |
| 427 Usually is bound to a 'down-mouse' event to work properly. See sample | 427 Usually is bound to a `down-mouse' event to work properly. See sample |
| 428 bindings in the Viper manual." | 428 bindings in the Viper manual." |
| 429 (interactive "e\nP") | 429 (interactive "e\nP") |
| 430 (setq viper-frame-of-focus nil) | 430 (setq viper-frame-of-focus nil) |
| 431 ;; pass prefix arg along to viper-mouse-click-search/insert-word | 431 ;; pass prefix arg along to viper-mouse-click-search/insert-word |
| 432 (setq prefix-arg arg) | 432 (setq prefix-arg arg) |