Mercurial > emacs

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Michael Kifer <kifer@cs.stonybrook.edu>
date Sat, 28 Dec 1996 02:53:04 +0000
parents 43a3308fcf61
children 1b06411ccc04
comparison
equal deleted inserted replaced
16765:b06dea50c67a 16766:beb94a5271e2
352 (goto-char (point-min)) 352 (goto-char (point-min))
353 (search-forward click-word 353 (search-forward click-word
354 vip-mouse-click-search-limit nil))) 354 vip-mouse-click-search-limit nil)))
355 (goto-char (match-beginning 0)) 355 (goto-char (match-beginning 0))
356 (message "Searching for: %s" vip-s-string) 356 (message "Searching for: %s" vip-s-string)
357 (if (<= arg 1) 357 (if (<= arg 1) ; found the right occurrence of the pattern
358 (vip-flash-search-pattern)) 358 (progn
359 (vip-adjust-window)
360 (vip-flash-search-pattern)))
359 ) 361 )
360 (error (beep 1) 362 (error (beep 1)
361 (if (or (not (string= click-word previous-search-string)) 363 (if (or (not (string= click-word previous-search-string))
362 (not (eq last-command 'vip-mouse-click-search-word))) 364 (not (eq last-command 'vip-mouse-click-search-word)))
363 (message "`%s': String not found in %s" 365 (message "`%s': String not found in %s"