Mercurial > emacs

changeset 42695:b3d6f84a8724

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(telnet-simple-send): Handle comint-input-sender-no-newline like comint-simple-send.
author Richard M. Stallman <rms@gnu.org>
date Sun, 13 Jan 2002 04:45:12 +0000
parents 4664fcfde396
children 7552a4b97c8c
files lisp/net/telnet.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/telnet.el	Sun Jan 13 04:44:22 2002 +0000
+++ b/lisp/net/telnet.el	Sun Jan 13 04:45:12 2002 +0000
@@ -154,7 +154,10 @@
 ;; instead of "\n".
 (defun telnet-simple-send (proc string)
   (comint-send-string proc string)
-  (comint-send-string proc telnet-new-line))
+  (if comint-input-sender-no-newline
+      (if (not (string-equal input ""))
+	  (process-send-eof))
+    (comint-send-string proc telnet-new-line)))
 
 (defun telnet-filter (proc string)
   (save-excursion