From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 13 Jan 2002 04:44:22 +0000 (+0000)
Subject: (sql-query-placeholders-and-send): Handle
X-Git-Tag: ttn-vms-21-2-B4~17189
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/60a193e2820bd35e81e984d008e314e0f558fb4d

(sql-query-placeholders-and-send): Handle
comint-input-sender-no-newline like comint-simple-send.
(sql-escape-newlines-and-send): Likewise.
---

diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index ace512ea07..990576667a 100644
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -1028,7 +1028,10 @@ This function is used for `comint-input-sender' if using `sql-oracle' on NT."
 		   nil nil nil sql-placeholder-history)
 		  t t string)))
   (comint-send-string proc string)
-  (comint-send-string proc "\n"))
+  (if comint-input-sender-no-newline
+      (if (not (string-equal input ""))
+	  (process-send-eof))
+    (comint-send-string proc "\n")))
 
 ;; Using DB2 interactively, newlines must be escaped with " \".
 ;; The space before the backslash is relevant.
@@ -1046,7 +1049,10 @@ Every newline in STRING will be preceded with a space and a backslash."
       (setq start me))
     (setq result (concat result (substring string start)))
     (comint-send-string proc result)
-    (comint-send-string proc "\n")))
+    (if comint-input-sender-no-newline
+	(if (not (string-equal input ""))
+	    (process-send-eof))
+      (comint-send-string proc "\n"))))