From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Wed, 11 Sep 1991 02:11:57 +0000 (+0000)
Subject: Fix wrong number of arguments bug in LIST-MATCHING-LINES command.
X-Git-Tag: 20090517-FFI~10219
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4af6627187025661ab60c6b41b772ea57db226f2;p=mit-scheme.git

Fix wrong number of arguments bug in LIST-MATCHING-LINES command.
---

diff --git a/v7/src/edwin/replaz.scm b/v7/src/edwin/replaz.scm
index 4eaf49cc8..e7293397c 100644
--- a/v7/src/edwin/replaz.scm
+++ b/v7/src/edwin/replaz.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/replaz.scm,v 1.72 1991/08/06 15:54:41 arthur Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/replaz.scm,v 1.73 1991/09/11 02:11:57 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -259,12 +259,13 @@ The argument, if given, is the number of context lines to show
   "sList matching lines (regexp)\nP"
   (lambda (regexp argument)
     (let ((argument (or argument 0)))
-      (let ((-arg (- argument))
+      (let ((end (group-end (current-point)))
+	    (-arg (- argument))
 	    (1+arg (1+ argument)))
 	(with-output-to-temporary-buffer "*Occur*"
 	  (lambda ()
 	    (define (loop start)
-	      (let ((mark (re-search-forward regexp start)))
+	      (let ((mark (re-search-forward regexp start end)))
 		(if mark
 		    (begin (write-string
 			    (extract-string (line-start mark -arg)