Mercurial > emacs

comparison lisp/isearch.el @ 64821:ff78c70a52e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isearch-repeat): When changing direction, mark search successful.
author Richard M. Stallman <rms@gnu.org>
date Tue, 09 Aug 2005 11:27:18 +0000
parents 41bb365f41c4
children b66a53128ca5
comparison
equal deleted inserted replaced
64820:3b8ee785ce35 64821:ff78c70a52e2
1145 (setq isearch-wrapped t) 1145 (setq isearch-wrapped t)
1146 (if isearch-wrap-function 1146 (if isearch-wrap-function
1147 (funcall isearch-wrap-function) 1147 (funcall isearch-wrap-function)
1148 (goto-char (if isearch-forward (point-min) (point-max))))))) 1148 (goto-char (if isearch-forward (point-min) (point-max)))))))
1149 ;; C-s in reverse or C-r in forward, change direction. 1149 ;; C-s in reverse or C-r in forward, change direction.
1150 (setq isearch-forward (not isearch-forward))) 1150 (setq isearch-forward (not isearch-forward)
1151 isearch-success t))
1151 1152
1152 (setq isearch-barrier (point)) ; For subsequent \| if regexp. 1153 (setq isearch-barrier (point)) ; For subsequent \| if regexp.
1153 1154
1154 (if (equal isearch-string "") 1155 (if (equal isearch-string "")
1155 (setq isearch-success t) 1156 (setq isearch-success t)