Mercurial > hg > xemacs-beta

comparison lisp/viper/viper-mous.el @ 12:bcdc7deadc19 r19-15b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b7
author cvs
date Mon, 13 Aug 2007 08:48:16 +0200
parents 376386a54a3c
children 9ee227acff29
comparison
equal deleted inserted replaced
11:91ffe8bd52e4 12:bcdc7deadc19
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"