*** empty log message ***

diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index e0b8f4d2b0b3fa3547055427c927049dba88ab80..1d6ee444c2ebffe86b2e32e236ff140f4c16350a 100644 (file)
--- 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 81c81e26340c1fc9ad7084679fcf6b466dd95e42..b9278ae0a8c7f2b7c5814ae93b4ffd349ad54544 100644 (file)
--- 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