From 89f7734f7d489bc9690c04eba8b5e31c8fe53f6a Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 18 Jun 2000 20:35:33 +0000
Subject: [PATCH] Change PROMPT-HISTORY-STRINGS and SET-PROMPT-HISTORY-STRINGS!
 so that the history name may be #F, meaning use the default history.

---
 v7/src/edwin/prompt.scm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index 32dff8733..dd2736580 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: prompt.scm,v 1.186 2000/06/15 00:25:44 cph Exp $
+;;; $Id: prompt.scm,v 1.187 2000/06/18 20:35:33 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -421,12 +421,13 @@
 (define prompt-histories)
 
 (define (name->history name)
-  (if (not (symbol? name))
+  (if (not (or (not name) (symbol? name)))
       (error:wrong-type-argument name "symbol" 'NAME->HISTORY))
-  (or (hash-table/get prompt-histories name #f)
-      (let ((history (list 'PROMPT-HISTORY)))
-	(hash-table/put! prompt-histories name history)
-	history)))
+  (let ((name (or name 'MINIBUFFER-DEFAULT)))
+    (or (hash-table/get prompt-histories name #f)
+	(let ((history (list 'PROMPT-HISTORY)))
+	  (hash-table/put! prompt-histories name history)
+	  history))))
 
 (define (prompt-history-strings name)
   (list-copy (cdr (name->history name))))
-- 
2.25.1