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

*** empty log message ***

Browse source
This commit is contained in:
Jim Blandy 1991-07-13 06:29:10 +00:00
parent a6e3fa71a4
commit 79c2e52b7c
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/replace.el
View file

@ -257,7 +257,8 @@ It serves as a menu to find any of the occurrences in this buffer.
(let ((first t)
(buffer (current-buffer))
(linenum 1)
(prevpos (point-min)))
(prevpos (point-min))
(final-context-start (make-marker)))
(if (not occur-whole-buffer)
(save-excursion
(beginning-of-line)
@ -300,6 +301,8 @@ It serves as a menu to find any of the occurrences in this buffer.
(empty (make-string (length tag) ?\ ))
tem)
(save-excursion
(setq tem (make-marker))
(set-marker tem (point))
(set-buffer standard-output)
(setq occur-pos-list (cons tem occur-pos-list))
(or first (zerop nlines)
@ -312,8 +315,7 @@ It serves as a menu to find any of the occurrences in this buffer.
(insert empty ?:)
(forward-line 1)
(setq tem (1- tem)))
(let ((final-context-start (make-marker))
(this-linenum linenum))
(let ((this-linenum linenum))
(set-marker final-context-start
(+ (point) (- (match-end 0) (match-beginning 0))))
(while (< (point) final-context-start)