Re: occur with negative NLINES

[Richard Stallman]

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))