From e9715867d0ac2f817ef6586238cdd1835598a230 Mon Sep 17 00:00:00 2001 From: Erik Naggum Date: Fri, 3 Jan 1997 11:59:39 +0000 Subject: (occur): Minor cleanups. --- lisp/replace.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'lisp') 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))) -- cgit v1.2.1