diff options
Diffstat (limited to 'lisp/emulation/viper-mous.el')
| -rw-r--r-- | lisp/emulation/viper-mous.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el index e49fc875418..e1f7c1643bd 100644 --- a/lisp/emulation/viper-mous.el +++ b/lisp/emulation/viper-mous.el @@ -280,7 +280,7 @@ See `viper-surrounding-word' for the definition of a word in this case." ;; the next pending event is not a mouse event, we execute the ;; current mouse event (progn - (setq interrupting-event (viper-read-event)) + (setq interrupting-event (read-event)) (viper-mouse-event-p last-input-event))) (progn ; interrupted wait (setq viper-global-prefix-argument arg) @@ -362,7 +362,7 @@ this command." ;; pending event is not a mouse event, we execute the current mouse ;; event (progn - (viper-read-event) + (read-event) (viper-mouse-event-p last-input-event))) (progn ; interrupted wait (setq viper-global-prefix-argument (or viper-global-prefix-argument @@ -380,7 +380,7 @@ this command." viper-global-prefix-argument nil)) (setq arg (or arg 1)) - (viper-deactivate-mark) + (deactivate-mark) (if (or (not (string= click-word viper-s-string)) (not (markerp viper-search-start-marker)) (not (equal (marker-buffer viper-search-start-marker) |