Mercurial > emacs

changeset 324:133f1a8cc567

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Sat, 13 Jul 1991 06:29:10 +0000
parents 9c2a1e7bd9f1
children 3f3710052f22
files lisp/replace.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)