# HG changeset patch
# User Erik Naggum <erik@naggum.no>
# Date 852292779 0
# Node ID 0f0e40d129df5fd09af188c7d19390d5696616c1
# Parent  6de559d0b20f3f43fcea1b6f055b4abaf04123fb
(occur): Minor cleanups.

diff -r 6de559d0b20f -r 0f0e40d129df lisp/replace.el
--- a/lisp/replace.el	Fri Jan 03 03:11:11 1997 +0000
+++ b/lisp/replace.el	Fri Jan 03 11:59:39 1997 +0000
@@ -356,8 +356,6 @@
 	(dir default-directory)
 	(linenum 1)
 	(prevpos (point-min))
-	sje-start
-	sje-len
 	(final-context-start (make-marker)))
 ;;;	(save-excursion
 ;;;	  (beginning-of-line)
@@ -433,7 +431,8 @@
 		    (insert empty ?:)
 		    (forward-line 1)
 		    (setq tem (1- tem)))
-		  (let ((this-linenum linenum))
+		  (let ((this-linenum linenum)
+			line-start)
 		    (while (< (point) final-context-start)
 		      (if (null tag)
 			  (setq tag (format "%5d" this-linenum)))