diff options
author | Erik Naggum <[email protected]> | 1997-01-03 11:59:39 +0000 |
---|---|---|
committer | Erik Naggum <[email protected]> | 1997-01-03 11:59:39 +0000 |
commit | 81fa866c4aad6cd051ee49432d764dc94e35f6e9 (patch) | |
tree | ae084eafba8dcdd37bbcfa4841d0daeeef2f3364 /lisp | |
parent | c9daced0fa451d046e0330e3d207d2b2ecc5bb02 (diff) |
(occur): Minor cleanups.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/replace.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 30c07377e2..95b791aec3 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))) |