(occur): Minor cleanups.

1 files changed, 2 insertions, 3 deletions

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)))