Mercurial > hg > xemacs-beta
comparison lisp/isearch-mode.el @ 2030:488b2f76d852
[xemacs-hg @ 2004-04-19 08:54:47 by stephent]
assorted improvements in ./lisp/
<87llkswdr6.fsf@tleepslib.sk.tsukuba.ac.jp>
<87pta4we6g.fsf@tleepslib.sk.tsukuba.ac.jp>
| author | stephent |
|---|---|
| date | Mon, 19 Apr 2004 08:54:50 +0000 |
| parents | 442db3c3c43b |
| children | 7dc50bbd7a39 |
comparison
equal
deleted
inserted
replaced
| 2029:7a9919388e87 | 2030:488b2f76d852 |
|---|---|
| 872 (if isearch-success | 872 (if isearch-success |
| 873 ;; If search is successful, move back to starting point | 873 ;; If search is successful, move back to starting point |
| 874 ;; and really do quit. | 874 ;; and really do quit. |
| 875 (progn (goto-char isearch-opoint) | 875 (progn (goto-char isearch-opoint) |
| 876 (setq isearch-success nil) | 876 (setq isearch-success nil) |
| 877 (isearch-done t) ; exit isearch | 877 (isearch-done) ; exit and push target string |
| 878 (signal 'quit '(isearch))) ; and pass on quit signal | 878 (signal 'quit '(isearch))) ; and pass on quit signal |
| 879 ;; If search is failing, or has an incomplete regexp, | 879 ;; If search is failing, or has an incomplete regexp, |
| 880 ;; rub out until it is once more successful. | 880 ;; rub out until it is once more successful. |
| 881 (while (or (not isearch-success) isearch-invalid-regexp) | 881 (while (or (not isearch-success) isearch-invalid-regexp) |
| 882 (isearch-pop-state)) | 882 (isearch-pop-state)) |