diff options
| author | Erik Naggum <erik@naggum.no> | 1997-01-03 11:59:39 +0000 |
|---|---|---|
| committer | Erik Naggum <erik@naggum.no> | 1997-01-03 11:59:39 +0000 |
| commit | e9715867d0ac2f817ef6586238cdd1835598a230 (patch) | |
| tree | cc29322cd8d65e8fe16edb1bd625362089e078e2 | |
| parent | 7b87b78108adc23b700ca30ce81a2e4ed8003f53 (diff) | |
| download | emacs-e9715867d0ac2f817ef6586238cdd1835598a230.tar.gz | |
(occur): Minor cleanups.
| -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 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))) |