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) |