mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

new version

Browse source
This commit is contained in:
Michael Kifer 1997-06-09 04:00:50 +00:00
parent fdac7fbaa2
commit 726e270f85
8 changed files with 244 additions and 228 deletions
Download patch file Download diff file Expand all files Collapse all files

58
lisp/emulation/viper-mous.el
View file

@ -32,13 +32,16 @@
(defvar vip-s-string)
(defvar vip-re-search)
(eval-when-compile
(let ((load-path (cons (expand-file-name ".") load-path)))
(or (featurep 'viper-util)
(load "viper-util.el" nil nil 'nosuffix))
(or (featurep 'viper-cmd)
(load "viper-cmd.el" nil nil 'nosuffix))
))
;; loading happens only in non-interactive compilation
;; in order to spare non-viperized emacs from being viperized
(if noninteractive
(eval-when-compile
(let ((load-path (cons (expand-file-name ".") load-path)))
(or (featurep 'viper-util)
(load "viper-util.el" nil nil 'nosuffix))
(or (featurep 'viper-cmd)
(load "viper-cmd.el" nil nil 'nosuffix))
)))
;; end pacifier
(require 'viper-util)
@ -427,46 +430,5 @@ bindings in the Viper manual."
vip-current-frame-saved (selected-frame)))
(cond ((vip-window-display-p)
(let* ((search-key (if vip-xemacs-p
[(meta shift button1up)] [M-S-mouse-1]))
(search-key-catch (if vip-xemacs-p
[(meta shift button1)] [M-S-down-mouse-1]))
(insert-key (if vip-xemacs-p
[(meta shift button2up)] [M-S-mouse-2]))
(insert-key-catch (if vip-xemacs-p
[(meta shift button2)] [M-S-down-mouse-2]))
(search-key-unbound (and (not (key-binding search-key))
(not (key-binding search-key-catch))))
(insert-key-unbound (and (not (key-binding insert-key))
(not (key-binding insert-key-catch))))
)
(if search-key-unbound
(global-set-key search-key 'vip-mouse-click-search-word))
(if insert-key-unbound
(global-set-key insert-key 'vip-mouse-click-insert-word))
;; The following would be needed if you want to use the above two
;; while clicking in another frame. If you only want to use them
;; by clicking in another window, not frame, the bindings below
;; aren't necessary.
;; These must be bound to mouse-down event for the same mouse
;; buttons as 'vip-mouse-click-search-word and
;; 'vip-mouse-click-insert-word
(if search-key-unbound
(global-set-key search-key-catch 'vip-mouse-catch-frame-switch))
(if insert-key-unbound
(global-set-key insert-key-catch 'vip-mouse-catch-frame-switch))
(if vip-xemacs-p
(add-hook 'mouse-leave-frame-hook
'vip-remember-current-frame)
(defadvice handle-switch-frame (before vip-frame-advice activate)
"Remember the selected frame before the switch-frame event."
(vip-remember-current-frame (selected-frame))))
)))
;;; viper-mous.el ends here