From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 21 Jul 1997 04:37:33 +0000 (+0000)
Subject: Add optional argument to KEYBOARD-READ which, if true, says that the
X-Git-Tag: 20090517-FFI~5037
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f65abc031ee9c0c3b73bfd859fdcd3f4f43e9fb8;p=mit-scheme.git

Add optional argument to KEYBOARD-READ which, if true, says that the
key being read should not be recorded in the keyboard history.  This
option is used to prevent passwords from being stored in the history.
---

diff --git a/v7/src/edwin/input.scm b/v7/src/edwin/input.scm
index b914f79e3..50b9cae9a 100644
--- a/v7/src/edwin/input.scm
+++ b/v7/src/edwin/input.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: input.scm,v 1.98 1993/08/20 00:14:28 cph Exp $
+;;;	$Id: input.scm,v 1.99 1997/07/21 04:37:20 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-97 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -180,7 +180,7 @@ B 3BAB8C
       (keyboard-macro-peek-key)
       (keyboard-read-1 (editor-peek current-editor) #t)))
 
-(define (keyboard-read)
+(define (keyboard-read #!optional no-save?)
   (set! keyboard-keys-read (+ keyboard-keys-read 1))
   (if *executing-keyboard-macro?*
       (keyboard-macro-read-key)
@@ -188,7 +188,8 @@ B 3BAB8C
 	(cond ((key? key)
 	       (set! auto-save-keystroke-count
 		     (fix:+ auto-save-keystroke-count 1))
-	       (ring-push! (current-char-history) key)
+	       (if (not (and (not (default-object? no-save?)) no-save?))
+		   (ring-push! (current-char-history) key))
 	       (if *defining-keyboard-macro?* (keyboard-macro-write-key key)))
 	      (*defining-keyboard-macro?*
 	       ((ref-command end-kbd-macro) 1)))
diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index b996e1c2b..fd1904a22 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: prompt.scm,v 1.168 1996/05/11 08:44:56 cph Exp $
+;;;	$Id: prompt.scm,v 1.169 1997/07/21 04:37:33 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-97 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -852,7 +852,7 @@ Whilst editing the command, the following commands are available:
 		     #f
     (lambda ()
       (let loop ((ts ""))
-	(let ((input (keyboard-read)))
+	(let ((input (keyboard-read #t)))
 	  (cond ((input-event? input)
 		 (abort-typein-edit input))
 		((not (and (char? input) (char-ascii? input)))