From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 11 Sep 1995 22:43:49 +0000 (+0000)
Subject: Fix bug in previous change.
X-Git-Tag: 20090517-FFI~5957
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e84d47f82f437bca9b638c044bac0f9b234ae414;p=mit-scheme.git

Fix bug in previous change.
---

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index f66ef1b24..acc6c206f 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: prompt.scm,v 1.166 1995/09/11 21:24:41 cph Exp $
+;;;	$Id: prompt.scm,v 1.167 1995/09/11 22:43:49 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-95 Massachusetts Institute of Technology
 ;;;
@@ -208,7 +208,10 @@
 	      (*default-type*
 	       (if (default-object? default-type)
 		   'VISIBLE-DEFAULT
-		   default-type)))
+		   default-type))
+	      (completion-procedure/complete-string #f)
+	      (completion-procedure/list-completions #f)
+	      (completion-procedure/verify-final-value? #f))
     (%prompt-for-string prompt
 			(if (default-object? mode)
 			    (ref-mode-object minibuffer-local)
@@ -484,14 +487,16 @@ a repetition of this command will exit."
 	      (editor-failure))))))))
 
 (define (verify-final-value? string error-continuation)
-  (bind-condition-handler (list condition-type:error)
-      (lambda (condition)
-	condition
-	(editor-beep)
-	(temporary-typein-message " [Error]")
-	(error-continuation unspecific))
-    (lambda ()
-      (completion-procedure/verify-final-value? string))))
+  (if completion-procedure/verify-final-value?
+      (bind-condition-handler (list condition-type:error)
+	  (lambda (condition)
+	    condition
+	    (editor-beep)
+	    (temporary-typein-message " [Error]")
+	    (error-continuation unspecific))
+	(lambda ()
+	  (completion-procedure/verify-final-value? string)))
+      #t))
 
 ;;;; Completion Primitives