(telnet-simple-send): New function.

(telnet): Arrange to use that.

1 files changed, 7 insertions, 0 deletions

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 ()