[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: occur with negative NLINES
From: |
Richard Stallman |
Subject: |
Re: occur with negative NLINES |
Date: |
Mon, 19 Jul 2004 08:29:50 -0400 |
Does this change give good results?
*** replace.el 17 Jul 2004 10:37:33 -0400 1.185
--- replace.el 19 Jul 2004 06:25:52 -0400
***************
*** 1009,1017 ****
;; concatenate them all together.
(apply #'concat
(nconc
! (occur-engine-add-prefix (nreverse (cdr
(occur-accumulate-lines (- (1+ nlines)) keep-props))))
(list out-line)
! (occur-engine-add-prefix (cdr
(occur-accumulate-lines (1+ nlines) keep-props))))))))
;; Actually insert the match display data
(with-current-buffer out-buf
(let ((beg (point))
--- 1009,1019 ----
;; concatenate them all together.
(apply #'concat
(nconc
! (occur-engine-add-prefix (nreverse (cdr
(occur-accumulate-lines (- (1+ (abs nlines))) keep-props))))
(list out-line)
! (if (> nlines 0)
! (occur-engine-add-prefix
! (cdr (occur-accumulate-lines (1+
nlines) keep-props)))))))))
;; Actually insert the match display data
(with-current-buffer out-buf
(let ((beg (point))