Commit acc81368 authored by Karl Heuer's avatar Karl Heuer
Browse files

(read-passwd): Ignore input methods.

parent 037eed4e
......@@ -803,7 +803,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))
(setq c (read-char nil t))
(and (/= c ?\r) (/= c ?\n) (/= c ?\e)))
(if (= c ?\C-u)
(setq pass "")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment