# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 679386550 0
# Node ID 133f1a8cc567d37c226e7db1049eaebbaeda832e
# Parent  9c2a1e7bd9f1af7cb54563cf8a2eda6b54798d00
*** empty log message ***

diff -r 9c2a1e7bd9f1 -r 133f1a8cc567 lisp/replace.el
--- a/lisp/replace.el	Fri Jul 12 04:00:11 1991 +0000
+++ b/lisp/replace.el	Sat Jul 13 06:29:10 1991 +0000
@@ -257,7 +257,8 @@
   (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 @@
 		 (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 @@
 		(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)