diff options
| author | Jim Blandy <jimb@redhat.com> | 1991-07-13 06:29:10 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1991-07-13 06:29:10 +0000 |
| commit | 79c2e52b7ccedfffd4138bddb03e25e8c5272595 (patch) | |
| tree | 3bfb9d28883b28d0b53806312fc5c875c9febef8 /lisp/replace.el | |
| parent | a6e3fa71a42d4305f69186e20a9d46fbbb177a1e (diff) | |
| download | emacs-79c2e52b7ccedfffd4138bddb03e25e8c5272595.tar.gz emacs-79c2e52b7ccedfffd4138bddb03e25e8c5272595.tar.bz2 emacs-79c2e52b7ccedfffd4138bddb03e25e8c5272595.zip | |
*** empty log message ***
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index f5895e1d89d..e8e81bff333 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -257,7 +257,8 @@ It serves as a menu to find any of the occurrences in this buffer. (let ((first t) (buffer (current-buffer)) (linenum 1) - (prevpos (point-min))) + (prevpos (point-min)) + (final-context-start (make-marker))) (if (not occur-whole-buffer) (save-excursion (beginning-of-line) @@ -300,6 +301,8 @@ It serves as a menu to find any of the occurrences in this buffer. (empty (make-string (length tag) ?\ )) tem) (save-excursion + (setq tem (make-marker)) + (set-marker tem (point)) (set-buffer standard-output) (setq occur-pos-list (cons tem occur-pos-list)) (or first (zerop nlines) @@ -312,8 +315,7 @@ It serves as a menu to find any of the occurrences in this buffer. (insert empty ?:) (forward-line 1) (setq tem (1- tem))) - (let ((final-context-start (make-marker)) - (this-linenum linenum)) + (let ((this-linenum linenum)) (set-marker final-context-start (+ (point) (- (match-end 0) (match-beginning 0)))) (while (< (point) final-context-start) |