From 3ed5409efae0c35818a5fed99dec1e504cc5d9bd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 8 Jun 1993 01:29:05 +0000 Subject: [PATCH] (telnet-simple-send): New function. (telnet): Arrange to use that. --- lisp/telnet.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/telnet.el b/lisp/telnet.el index d115f3e4326..fec7f9c976e 100644 --- a/lisp/telnet.el +++ b/lisp/telnet.el @@ -132,6 +132,12 @@ rejecting one login and prompting for the again for a username and password.") (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 @@ Normally input is edited in Emacs and sent a line at a time." (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 ()