diff lisp/emulation/viper-mous.el @ 16766:beb94a5271e2

*** empty log message ***

--- a/lisp/emulation/viper-mous.el	Fri Dec 27 21:12:40 1996 +0000
+++ b/lisp/emulation/viper-mous.el	Sat Dec 28 02:53:04 1996 +0000
@@ -354,8 +354,10 @@
 				    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))