Mercurial > emacs

changeset 16819:0f0e40d129df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(occur): Minor cleanups.
author Erik Naggum <erik@naggum.no>
date Fri, 03 Jan 1997 11:59:39 +0000
parents 6de559d0b20f
children 9b9ba0a44008
files lisp/replace.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/replace.el	Fri Jan 03 03:11:11 1997 +0000
+++ b/lisp/replace.el	Fri Jan 03 11:59:39 1997 +0000
@@ -356,8 +356,6 @@
 	(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 @@
 		    (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)))