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

(occur-engine): Make nlines argument actually mean number of context

Browse source 
lines.  Handle it.
This commit is contained in:
Colin Walters 2002-04-25 21:12:09 +00:00
parent d2e064f1a9
commit ac76acf7fb
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/replace.el
View file

@ -779,7 +779,7 @@ See also `multi-occur'."
curstring
"\n"))
(data
(if (= nlines 1)
(if (= nlines 0)
;; The simple display style
out-line
;; The complex multi-line display
@ -787,14 +787,14 @@ See also `multi-occur'."
;; concatenate them all together.
(apply #'concat
(nconc
(add-prefix (nreverse (cdr (occur-accumulate-lines (- nlines) t))))
(add-prefix (nreverse (cdr (occur-accumulate-lines (- (1+ nlines)) t))))
(list out-line)
(add-prefix (cdr (occur-accumulate-lines nlines t))))))))
(add-prefix (cdr (occur-accumulate-lines (1+ nlines) t))))))))
;; Actually insert the match display data
(with-current-buffer out-buf
(let ((beg (point))
(end (insert-get-point data)))
(unless (= nlines 1)
(unless (= nlines 0)
(insert-get-point "-------\n"))
(add-text-properties
beg (1- end)