From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Mar 1994 20:28:54 +0000 (+0000)
Subject: * Change reference to *PREVIOUS-POPPED-UP-BUFFER*.
X-Git-Tag: 20090517-FFI~7253
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ab927857c43b96b909832ab538a4797f0fd709d3;p=mit-scheme.git

* Change reference to *PREVIOUS-POPPED-UP-BUFFER*.

* Add extra optional argument to PROMPT-FOR-ALIST-VALUE; new arg
  controls case-sensistivity of match.
---

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index 54e59e282..aa9181f74 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: prompt.scm,v 1.161 1993/10/27 02:14:12 cph Exp $
+;;;	$Id: prompt.scm,v 1.162 1994/03/08 20:28:54 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -311,14 +311,16 @@
 						  string-table
 						  require-match?)))
 
-(define (prompt-for-alist-value prompt alist #!optional default)
+(define (prompt-for-alist-value prompt alist #!optional default ci?)
   (fluid-let ((map-name/external->internal identity-procedure)
 	      (map-name/internal->external identity-procedure))
     (prompt-for-string-table-value prompt
 				   (and (not (default-object? default))
 					default)
 				   'VISIBLE-DEFAULT
-				   (alist->string-table alist)
+				   (alist->string-table
+				    alist
+				    (if (default-object? ci?) #t ci?))
 				   true)))
 
 (define (prompt-for-command prompt)
@@ -609,7 +611,7 @@ a repetition of this command will exit."
 
 (define (flush-completions-list)
   (if (let ((buffer (find-buffer " *Completions*")))
-	(and buffer (eq? buffer (object-unhash *previous-popped-up-buffer*))))
+	(and buffer (eq? buffer (weak-car *previous-popped-up-buffer*))))
       (kill-pop-up-buffer false)))
 
 (define (completion-message string)