# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 882665407 0
# Node ID 79ea90039b232b0b6d7c13067439addfd544815e
# Parent  d4e514328333a2cd9d6a884f2597bff727377418
(read-password): New function.

diff -r d4e514328333 -r 79ea90039b23 lisp/subr.el
--- a/lisp/subr.el	Sat Dec 20 23:12:09 1997 +0000
+++ b/lisp/subr.el	Sun Dec 21 00:50:07 1997 +0000
@@ -752,6 +752,28 @@
       (setq first nil))
     code))
 
+(defun read-password (prompt &optional default)
+  "Read a password, echoing `.' for each character typed.
+End with RET, LFD, or ESC.  DEL or C-h rubs out.  C-u kills line.
+Optional DEFAULT is password to start with."
+  (let ((pass nil)
+	(c 0)
+	(echo-keystrokes 0)
+	(cursor-in-echo-area t))
+    (while (progn (message "%s%s"
+			   prompt
+			   (make-string (length pass) ?.))
+		  (setq c (read-char))
+		  (and (/= c ?\r) (/= c ?\n) (/= c ?\e)))
+      (if (= c ?\C-u)
+	  (setq pass "")
+	(if (and (/= c ?\b) (/= c ?\177))
+	    (setq pass (concat pass (char-to-string c)))
+	  (if (> (length pass) 0)
+	      (setq pass (substring pass 0 -1))))))
+    (message nil)
+    (or pass default "")))
+
 (defun force-mode-line-update (&optional all)
   "Force the mode-line of the current buffer to be redisplayed.
 With optional non-nil ALL, force redisplay of all mode-lines."