From 61df1a806d53c419d21fcab41cc6da64d0327810 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 20 May 1991 22:09:19 +0000
Subject: [PATCH] *** empty log message ***

---
 v7/src/edwin/make.scm   | 4 ++--
 v7/src/edwin/schmod.scm | 6 ++++--
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index e0b8f4d2b..1d6ee444c 100644
--- a/v7/src/edwin/make.scm
+++ b/v7/src/edwin/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/make.scm,v 3.47 1991/05/17 19:12:42 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/make.scm,v 3.48 1991/05/20 22:05:58 cph Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -37,4 +37,4 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (package/system-loader "edwin" '() 'QUERY)
-(add-system! (make-system "Edwin" 3 47 '()))
\ No newline at end of file
+(add-system! (make-system "Edwin" 3 48 '()))
\ No newline at end of file
diff --git a/v7/src/edwin/schmod.scm b/v7/src/edwin/schmod.scm
index 81c81e263..b9278ae0a 100644
--- a/v7/src/edwin/schmod.scm
+++ b/v7/src/edwin/schmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/schmod.scm,v 1.17 1991/05/20 22:05:32 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/schmod.scm,v 1.18 1991/05/20 22:09:19 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -195,7 +195,9 @@ normally they record the associated output in a transcript buffer:
   "Perform completion on Scheme symbol preceding point.
 That symbol is compared against the symbols that exist
 and any additional characters determined by what is there
-are inserted."
+are inserted.
+With prefix arg, only symbols that are bound in the buffer's
+environment are considered."
   "P"
   (lambda (bound-only?)
     (let ((end
-- 
2.25.1