Mercurial > emacs
comparison lisp/telnet.el @ 23438:2b9b91ac328a
(telnet-initial-filter): Use clear-this-command-keys.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 13 Oct 1998 03:45:04 +0000 |
| parents | 05d34da4c50c |
| children |
comparison
equal
deleted
inserted
replaced
| 23437:62f74712cbd6 | 23438:2b9b91ac328a |
|---|---|
| 139 (error "No such host")) | 139 (error "No such host")) |
| 140 ((string-match "passw" string) | 140 ((string-match "passw" string) |
| 141 (telnet-filter proc string) | 141 (telnet-filter proc string) |
| 142 (setq telnet-count 0) | 142 (setq telnet-count 0) |
| 143 (send-string proc (concat (comint-read-noecho "Password: " t) | 143 (send-string proc (concat (comint-read-noecho "Password: " t) |
| 144 telnet-new-line))) | 144 telnet-new-line)) |
| 145 (clear-this-command-keys)) | |
| 145 (t (telnet-check-software-type-initialize string) | 146 (t (telnet-check-software-type-initialize string) |
| 146 (telnet-filter proc string) | 147 (telnet-filter proc string) |
| 147 (cond ((> telnet-count telnet-maximum-count) | 148 (cond ((> telnet-count telnet-maximum-count) |
| 148 (set-process-filter proc 'telnet-filter)) | 149 (set-process-filter proc 'telnet-filter)) |
| 149 (t (setq telnet-count (1+ telnet-count))))))))) | 150 (t (setq telnet-count (1+ telnet-count))))))))) |