mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-10 18:00:30 -08:00
Code Issues Projects Releases Wiki Activity

(occur): Indent better for matches that contain newlines.

Browse source
This commit is contained in:
Richard M. Stallman 1995-09-24 23:25:06 +00:00
parent a3d6bb976d
commit 91c6bdc0d1
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/replace.el
View file

@ -400,6 +400,8 @@ It serves as a menu to find any of the occurrences in this buffer.
(insert "--------\n"))
(setq first nil)
(insert-buffer-substring buffer start end)
(set-marker final-context-start
(- (point) (- end (match-end 0))))
(backward-char (- end start))
(setq tem nlines)
(while (> tem 0)
@ -407,8 +409,6 @@ It serves as a menu to find any of the occurrences in this buffer.
(forward-line 1)
(setq tem (1- tem)))
(let ((this-linenum linenum))
(set-marker final-context-start
(+ (point) (- (match-end 0) (match-beginning 0))))
(while (< (point) final-context-start)
(if (null tag)
(setq tag (format "%5d" this-linenum)))
@ -420,13 +420,18 @@ It serves as a menu to find any of the occurrences in this buffer.
(end-of-line)
(point))
'mouse-face 'highlight)
(forward-line 1)
(setq tag nil)
(setq this-linenum (1+ this-linenum)))
(while (<= (point) final-context-start)
(insert empty ?:)
(forward-line 1)
(setq this-linenum (1+ this-linenum))))
(while (< tem nlines)
(insert empty ?:)
(forward-line 1)
(setq tem (1+ tem))))
(setq tem (1+ tem)))
(goto-char (point-max)))
(forward-line 1)))
(set-buffer standard-output)
;; Put positions in increasing order to go with buffer.