# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 955987706 0
# Node ID 60285ddb5d02c5965a8b629a28bafcad17f0144a
# Parent  1f6ba3e73fe92773dd6e25871ea4c388a0f430db
(read-passwd): Use read-char-exclusive.

diff -r 1f6ba3e73fe9 -r 60285ddb5d02 lisp/subr.el
--- a/lisp/subr.el	Mon Apr 17 16:08:07 2000 +0000
+++ b/lisp/subr.el	Mon Apr 17 16:08:26 2000 +0000
@@ -884,7 +884,7 @@
       (while (progn (message "%s%s"
 			     prompt
 			     (make-string (length pass) ?.))
-		    (setq c (read-char nil t))
+		    (setq c (read-char-exclusive nil t))
 		    (and (/= c ?\r) (/= c ?\n) (/= c ?\e)))
 	(if (= c ?\C-u)
 	    (setq pass "")