Mercurial > emacs
changeset 3562:ec0c98304624
(telnet-simple-send): New function.
(telnet): Arrange to use that.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 08 Jun 1993 01:29:05 +0000 |
| parents | 1c1a6e2961c2 |
| children | 804e4f30b7ce |
| files | lisp/telnet.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/telnet.el Tue Jun 08 01:11:53 1993 +0000 +++ b/lisp/telnet.el Tue Jun 08 01:29:05 1993 +0000 @@ -132,6 +132,12 @@ (set-process-filter proc 'telnet-filter)) (t (setq telnet-count (1+ telnet-count))))))) +;; Identical to comint-simple-send, except that it sends telnet-new-line +;; instead of "\n". +(defun telnet-simple-send (proc string) + (comint-send-string proc string) + (comint-send-string proc telnet-new-line)) + (defun telnet-filter (proc string) (let ((at-end (and (eq (process-buffer proc) (current-buffer)) @@ -178,6 +184,7 @@ (erase-buffer) (send-string name (concat "open " arg "\n")) (telnet-mode) + (setq comint-input-sender 'telnet-simple-send) (setq telnet-count telnet-initial-count))) (defun telnet-mode ()