From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 20 May 1991 22:16:59 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~10536
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=788eb41e6236a4d76cb5a5fbd7ce11c6f46fa743;p=mit-scheme.git

*** empty log message ***
---

diff --git a/v7/src/edwin/schmod.scm b/v7/src/edwin/schmod.scm
index b9278ae0a..9068762d6 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.18 1991/05/20 22:09:19 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/schmod.scm,v 1.19 1991/05/20 22:16:59 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -232,7 +232,8 @@ environment are considered."
 		     (if (not (string=? completion prefix))
 			 (begin
 			   (delete-string start end)
-			   (insert-string completion start)))))
+			   (insert-string completion start))
+			 (message "Sole completion: \"" prefix "\""))))
 		  (else
 		   (let ((completions (map system-pair-car completions)))
 		     (let ((completion