Mercurial > emacs
diff lisp/emulation/viper-mous.el @ 14233:396316e5fbe6
*** empty log message ***
| author | Michael Kifer <kifer@cs.stonybrook.edu> |
|---|---|
| date | Sat, 20 Jan 1996 03:19:26 +0000 |
| parents | 83f275dcd93a |
| children | 854325337547 |
line wrap: on
line diff
--- a/lisp/emulation/viper-mous.el Sat Jan 20 03:10:57 1996 +0000 +++ b/lisp/emulation/viper-mous.el Sat Jan 20 03:19:26 1996 +0000 @@ -402,13 +402,13 @@ (cond ((vip-window-display-p) (let* ((search-key (if vip-xemacs-p - [(meta shift button1up)] [S-mouse-1])) + [(meta shift button1up)] [M-S-mouse-1])) (search-key-catch (if vip-xemacs-p - [(meta shift button1)] [S-down-mouse-1])) + [(meta shift button1)] [M-S-down-mouse-1])) (insert-key (if vip-xemacs-p - [(meta shift button2up)] [S-mouse-2])) + [(meta shift button2up)] [M-S-mouse-2])) (insert-key-catch (if vip-xemacs-p - [(meta shift button2)] [S-down-mouse-2])) + [(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))