From 5f5e5555657373ee64b1321c5adda31a9a0db128 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 20 May 1991 22:05:08 +0000 Subject: [PATCH] Change COMINT-LIST-FILENAME-COMPLETIONS -- discard the pop-up buffer iff the user types a space. --- v7/src/edwin/comint.scm | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) 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 -- 2.25.1