diff options
| author | Richard M. Stallman | 1998-10-13 03:44:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-10-13 03:44:06 +0000 |
| commit | 8723b7f3ebebb7156f37185bd947dffee24c987a (patch) | |
| tree | 8cbbc6720edcdf4c54a3f14608f0e99504e28e0d | |
| parent | 66bd5242de02ed66b7ba8a98dae44a7aed60e350 (diff) | |
| download | emacs-8723b7f3ebebb7156f37185bd947dffee24c987a.tar.gz emacs-8723b7f3ebebb7156f37185bd947dffee24c987a.zip | |
(read-passwd): Use clear-this-command-keys.
| -rw-r--r-- | lisp/subr.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index f92e78d9afb..9bea598b8a5 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -792,6 +792,7 @@ Optional DEFAULT is a default password to use instead of empty input." | |||
| 792 | (message "Password not repeated accurately; please start over") | 792 | (message "Password not repeated accurately; please start over") |
| 793 | (sit-for 1)))) | 793 | (sit-for 1)))) |
| 794 | success) | 794 | success) |
| 795 | (clear-this-command-keys) | ||
| 795 | (let ((pass nil) | 796 | (let ((pass nil) |
| 796 | (c 0) | 797 | (c 0) |
| 797 | (echo-keystrokes 0) | 798 | (echo-keystrokes 0) |