Mercurial > emacs
comparison lisp/emulation/viper-mous.el @ 18129:e92598964ee6
new version
| author | Michael Kifer <kifer@cs.stonybrook.edu> |
|---|---|
| date | Mon, 02 Jun 1997 22:50:31 +0000 |
| parents | 1b06411ccc04 |
| children | e145ccc61a22 |
comparison
equal
deleted
inserted
replaced
| 18128:42b9cdc157b1 | 18129:e92598964ee6 |
|---|---|
| 34 | 34 |
| 35 (eval-when-compile | 35 (eval-when-compile |
| 36 (let ((load-path (cons (expand-file-name ".") load-path))) | 36 (let ((load-path (cons (expand-file-name ".") load-path))) |
| 37 (or (featurep 'viper-util) | 37 (or (featurep 'viper-util) |
| 38 (load "viper-util.el" nil nil 'nosuffix)) | 38 (load "viper-util.el" nil nil 'nosuffix)) |
| 39 (or (featurep 'viper) | 39 (or (featurep 'viper-cmd) |
| 40 (load "viper.el" nil nil 'nosuffix)) | 40 (load "viper-cmd.el" nil nil 'nosuffix)) |
| 41 )) | 41 )) |
| 42 ;; end pacifier | 42 ;; end pacifier |
| 43 | 43 |
| 44 (require 'viper-util) | 44 (require 'viper-util) |
| 45 | 45 |
| 394 ))) | 394 ))) |
| 395 | 395 |
| 396 (defun vip-mouse-catch-frame-switch (event arg) | 396 (defun vip-mouse-catch-frame-switch (event arg) |
| 397 "Catch the event of switching frame. | 397 "Catch the event of switching frame. |
| 398 Usually is bound to a 'down-mouse' event to work properly. See sample | 398 Usually is bound to a 'down-mouse' event to work properly. See sample |
| 399 bindings in viper.el and in the Viper manual." | 399 bindings in the Viper manual." |
| 400 (interactive "e\nP") | 400 (interactive "e\nP") |
| 401 (setq vip-frame-of-focus nil) | 401 (setq vip-frame-of-focus nil) |
| 402 ;; pass prefix arg along to vip-mouse-click-search/insert-word | 402 ;; pass prefix arg along to vip-mouse-click-search/insert-word |
| 403 (setq prefix-arg arg) | 403 (setq prefix-arg arg) |
| 404 (if (eq last-command 'handle-switch-frame) | 404 (if (eq last-command 'handle-switch-frame) |