From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 20 May 1991 22:05:08 +0000 (+0000)
Subject: Change COMINT-LIST-FILENAME-COMPLETIONS -- discard the pop-up buffer
X-Git-Tag: 20090517-FFI~10539
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5f5e5555657373ee64b1321c5adda31a9a0db128;p=mit-scheme.git

Change COMINT-LIST-FILENAME-COMPLETIONS -- discard the pop-up buffer
iff the user types a space.
---

diff --git a/v7/src/edwin/comint.scm b/v7/src/edwin/comint.scm
index ba5b455b8..e2f7b4519 100644
--- a/v7/src/edwin/comint.scm
+++ b/v7/src/edwin/comint.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comint.scm,v 1.4 1991/05/06 01:03:32 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comint.scm,v 1.5 1991/05/20 22:05:08 cph Exp $
 
 Copyright (c) 1991 Massachusetts Institute of Technology
 
@@ -514,12 +514,13 @@ it just adds completion characters to the end of the filename."
     (clear-message)
     (if (null? completions)
 	(editor-failure "No completions")
-	(cleanup-pop-up-buffers
-	 (lambda ()
-	   (write-completions-list completions)
-	   (message "Hit space to flush.")
-	   (reset-command-prompt!)
-	   (let ((char (keyboard-peek-char)))
-	     (if (char=? #\space char)
-		 (keyboard-read-char)))
-	   (clear-message))))))
\ No newline at end of file
+	(begin
+	  (write-completions-list completions)
+	  (message "Hit space to flush.")
+	  (reset-command-prompt!)
+	  (let ((char (keyboard-peek-char)))
+	    (if (char=? #\space char)
+		(begin
+		  (keyboard-read-char)
+		  (kill-pop-up-buffer false))))
+	  (clear-message)))))
\ No newline at end of file