Mercurial > hg > xemacs-beta

comparison lisp/prim/replace.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents b9518feda344
children c7528f8e288d
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
438 (if (eq buffer standard-output) 438 (if (eq buffer standard-output)
439 (goto-char (point-max))) 439 (goto-char (point-max)))
440 (save-excursion 440 (save-excursion
441 (if list-matching-lines-whole-buffer 441 (if list-matching-lines-whole-buffer
442 (beginning-of-buffer)) 442 (beginning-of-buffer))
443 (message (format "Searching for %s ..." regexp)) 443 (message "Searching for %s ..." regexp)
444 ;; Find next match, but give up if prev match was at end of buffer. 444 ;; Find next match, but give up if prev match was at end of buffer.
445 (while (and (not (= prevpos (point-max))) 445 (while (and (not (= prevpos (point-max)))
446 (re-search-forward regexp nil t)) 446 (re-search-forward regexp nil t))
447 (goto-char (match-beginning 0)) 447 (goto-char (match-beginning 0))
448 (beginning-of-line) 448 (beginning-of-line)