diff options
| author | Michael Kifer <kifer@cs.stonybrook.edu> | 1996-12-28 02:53:04 +0000 |
|---|---|---|
| committer | Michael Kifer <kifer@cs.stonybrook.edu> | 1996-12-28 02:53:04 +0000 |
| commit | bf5d92c5e3c9eccf0adbf150c70bc4e656c7aa01 (patch) | |
| tree | 710e2d34c85a2982384a996efb2ccffb6d523843 /lisp/emulation/viper-mous.el | |
| parent | 469b44cbf1916dc9502d4356e8fce0081809f585 (diff) | |
| download | emacs-bf5d92c5e3c9eccf0adbf150c70bc4e656c7aa01.tar.gz emacs-bf5d92c5e3c9eccf0adbf150c70bc4e656c7aa01.tar.bz2 emacs-bf5d92c5e3c9eccf0adbf150c70bc4e656c7aa01.zip | |
*** empty log message ***
Diffstat (limited to 'lisp/emulation/viper-mous.el')
| -rw-r--r-- | lisp/emulation/viper-mous.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el index 16e20aabda8..73cef2eef85 100644 --- a/lisp/emulation/viper-mous.el +++ b/lisp/emulation/viper-mous.el @@ -354,8 +354,10 @@ this command." vip-mouse-click-search-limit nil))) (goto-char (match-beginning 0)) (message "Searching for: %s" vip-s-string) - (if (<= arg 1) - (vip-flash-search-pattern)) + (if (<= arg 1) ; found the right occurrence of the pattern + (progn + (vip-adjust-window) + (vip-flash-search-pattern))) ) (error (beep 1) (if (or (not (string= click-word previous-search-string)) |