(read-passwd): Use read-char-exclusive.

diff --git a/lisp/subr.el b/lisp/subr.el
index ddcc36079ed6e6baf0345b81a38714e601a199a0..88526bd98cc4f3ffd7249f4b63634c5727e6ba61 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -884,7 +884,7 @@ Optional DEFAULT is a default password to use instead of empty input."
       (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 "")