# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1019769129 0
# Node ID 72ec4ee68d47d3dc0a1b0f96f373ef079c704127
# Parent  3eea5fbe1501e641159e81b6deb6af4936d8af0a
(occur-engine): Make nlines argument actually mean number of context
lines.  Handle it.

diff -r 3eea5fbe1501 -r 72ec4ee68d47 lisp/replace.el
--- a/lisp/replace.el	Thu Apr 25 21:10:44 2002 +0000
+++ b/lisp/replace.el	Thu Apr 25 21:12:09 2002 +0000
@@ -779,7 +779,7 @@
 				 curstring
 				 "\n"))
 			       (data
-				(if (= nlines 1)
+				(if (= nlines 0)
 				    ;; The simple display style
 				    out-line
 				 ;; The complex multi-line display
@@ -787,14 +787,14 @@
 				 ;; 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)