diff options
| author | Stefan Monnier | 2001-02-13 20:08:37 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-02-13 20:08:37 +0000 |
| commit | dd4e0e557dc7da0cf25356b9b53f380231259c95 (patch) | |
| tree | ebe0565980ee9f7cb83933041ed6973e87d9d3d0 /lisp/replace.el | |
| parent | 402dbbd1ec95527057805a0dfe219389e3a1d7eb (diff) | |
| download | emacs-dd4e0e557dc7da0cf25356b9b53f380231259c95.tar.gz emacs-dd4e0e557dc7da0cf25356b9b53f380231259c95.zip | |
(occur): Stop at end of buffer.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 2a0735cfe5a..469133db8de 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -623,7 +623,7 @@ the matching is case-sensitive." | |||
| 623 | (goto-char (point-max))) | 623 | (goto-char (point-max))) |
| 624 | (save-excursion | 624 | (save-excursion |
| 625 | ;; Find next match, but give up if prev match was at end of buffer. | 625 | ;; Find next match, but give up if prev match was at end of buffer. |
| 626 | (while (and (not (= prevpos (point-max))) | 626 | (while (and (not (eobp)) |
| 627 | (re-search-forward regexp nil t)) | 627 | (re-search-forward regexp nil t)) |
| 628 | (goto-char (match-beginning 0)) | 628 | (goto-char (match-beginning 0)) |
| 629 | (beginning-of-line) | 629 | (beginning-of-line) |