procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(occur): Minor cleanups.

Browse source
This commit is contained in:
Erik Naggum 1997-01-03 11:59:39 +00:00
parent c9daced0fa
commit 81fa866c4a
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/replace.el
View file

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