# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 908250246 0
# Node ID 62f74712cbd65bffee00da4fc87ac7bde8ea1ea0
# Parent  6298928425855dd587b1117c032f3c9815b2fa24
(read-passwd): Use clear-this-command-keys.

diff -r 629892842585 -r 62f74712cbd6 lisp/subr.el
--- a/lisp/subr.el	Tue Oct 13 03:24:50 1998 +0000
+++ b/lisp/subr.el	Tue Oct 13 03:44:06 1998 +0000
@@ -792,6 +792,7 @@
 	      (message "Password not repeated accurately; please start over")
 	      (sit-for 1))))
 	success)
+    (clear-this-command-keys)
     (let ((pass nil)
 	  (c 0)
 	  (echo-keystrokes 0)