From: Erik Naggum <erik@naggum.no>
Date: Fri, 3 Jan 1997 11:59:39 +0000 (+0000)
Subject: (occur): Minor cleanups.
X-Git-Tag: emacs-20.1~3125
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81fa866c4aad6cd051ee49432d764dc94e35f6e9;p=emacs.git

(occur): Minor cleanups.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 30c07377e29..95b791aec39 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -356,8 +356,6 @@ It serves as a menu to find any of the occurrences in this buffer.
 	(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 @@ It serves as a menu to find any of the occurrences in this buffer.
 		    (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)))