summaryrefslogtreecommitdiff
path: root/lisp/telnet.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1998-10-13 03:45:04 +0000
committerRichard M. Stallman <rms@gnu.org>1998-10-13 03:45:04 +0000
commit2a56a3540bd7bc58d4a9604ed67aa9a76a0d874f (patch)
treee5c176945310e53dc88869b6e6f206a191f035e3 /lisp/telnet.el
parent8723b7f3ebebb7156f37185bd947dffee24c987a (diff)
downloademacs-2a56a3540bd7bc58d4a9604ed67aa9a76a0d874f.tar.gz
(telnet-initial-filter): Use clear-this-command-keys.
Diffstat (limited to 'lisp/telnet.el')
-rw-r--r--lisp/telnet.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/telnet.el b/lisp/telnet.el
index 2bb605332aa..557d00534d4 100644
--- a/lisp/telnet.el
+++ b/lisp/telnet.el
@@ -141,7 +141,8 @@ rejecting one login and prompting again for a username and password.")
(telnet-filter proc string)
(setq telnet-count 0)
(send-string proc (concat (comint-read-noecho "Password: " t)
- telnet-new-line)))
+ telnet-new-line))
+ (clear-this-command-keys))
(t (telnet-check-software-type-initialize string)
(telnet-filter proc string)
(cond ((> telnet-count telnet-maximum-count)