(sql-query-placeholders-and-send): Handle

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

1 files changed, 8 insertions, 2 deletions

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