Mercurial > hg > xemacs-beta

comparison lisp/viper/viper-mous.el @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents 131b0175ea99
children 1ce6082ce73f
comparison
equal deleted inserted replaced
77:6cb4f478e7bc 78:c7528f8e288d
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"