Mercurial > emacs
comparison lisp/emulation/viper-mous.el @ 16766:beb94a5271e2
*** 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" |