(read-passwd): Clear command history after each

character entered.  From: Stephen Gildea <gildea@alum.mit.edu>.

diff --git a/lisp/subr.el b/lisp/subr.el
index 1a2ac5df1cdb7db6a05c388cff6d279798e629b8..eb55b416a920466d90722e891f41cd1168c4fbc2 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -923,6 +923,7 @@ Optional DEFAULT is a default password to use instead of empty input."
                             (make-string (length pass) ?.))
                    (setq c (read-char-exclusive nil t))
                    (and (/= c ?\r) (/= c ?\n) (/= c ?\e)))
+       (clear-this-command-keys)
        (if (= c ?\C-u)
            (progn
              (and (arrayp pass) (fillarray pass ?\0))
@@ -938,7 +939,6 @@ Optional DEFAULT is a default password to use instead of empty input."
                (let ((new-pass (substring pass 0 -1)))
                  (and (arrayp pass) (fillarray pass ?\0))
                  (setq pass new-pass))))))
-      (clear-this-command-keys)
       (message nil)
       (or pass default ""))))
 \f