From 788eb41e6236a4d76cb5a5fbd7ce11c6f46fa743 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 20 May 1991 22:16:59 +0000 Subject: [PATCH] *** empty log message *** --- v7/src/edwin/schmod.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 -- 2.25.1