# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 913841494 0
# Node ID 2cd294915abd52728442b6772c1789cdc7d62530
# Parent  ab252c25faf98aa76083faafca5709bb355a76b6
(read-passwd): Ignore input methods.

diff -r ab252c25faf9 -r 2cd294915abd lisp/subr.el
--- a/lisp/subr.el	Wed Dec 16 20:45:29 1998 +0000
+++ b/lisp/subr.el	Wed Dec 16 20:51:34 1998 +0000
@@ -803,7 +803,7 @@
       (while (progn (message "%s%s"
 			     prompt
 			     (make-string (length pass) ?.))
-		    (setq c (read-char))
+		    (setq c (read-char nil t))
 		    (and (/= c ?\r) (/= c ?\n) (/= c ?\e)))
 	(if (= c ?\C-u)
 	    (setq pass "")