From bf5d92c5e3c9eccf0adbf150c70bc4e656c7aa01 Mon Sep 17 00:00:00 2001 From: Michael Kifer Date: Sat, 28 Dec 1996 02:53:04 +0000 Subject: *** empty log message *** --- lisp/emulation/viper-mous.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lisp/emulation/viper-mous.el') 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)) -- cgit v1.2.3