From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 13 Jan 2002 04:45:21 +0000 (+0000)
Subject: (telnet-simple-send): Handle comint-input-sender-no-newline like
X-Git-Tag: ttn-vms-21-2-B4~17188
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=732576c8ab5d577686257c8936560cb5f3181eed;p=emacs.git

(telnet-simple-send): Handle comint-input-sender-no-newline like
comint-simple-send.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d66d1808732..2354c50a946 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,19 @@
+2002-01-12  Richard M. Stallman  <rms@gnu.org>
+
+	* net/telnet.el (telnet-simple-send): Handle
+	comint-input-sender-no-newline like comint-simple-send.
+
+	* progmodes/sql.el (sql-query-placeholders-and-send): Handle
+	comint-input-sender-no-newline like comint-simple-send.
+	(sql-escape-newlines-and-send): Likewise.
+
+	* comint.el (comint-input-sender): Doc fix.
+	(comint-input-sender-no-newline): New variable.
+	(comint-simple-send): If comint-input-sender-no-newline,
+	don't output newline, but maybe send eof.
+	(comint-send-input): New arg NO-NEWLINE.
+	(comint-send-eof): Call comint-send-eof with NO-NEWLINE.
+	
 2002-01-12  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
 	* textmodes/flyspell.el (flyspell-check-pre-word-p): Prevent
diff --git a/lisp/net/telnet.el b/lisp/net/telnet.el
index be4753caf56..8cdc2884bab 100644
--- a/lisp/net/telnet.el
+++ b/lisp/net/telnet.el
@@ -154,7 +154,10 @@ rejecting one login and prompting again for a username and password.")
 ;; 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