Mercurial > emacs

changeset 42694:4664fcfde396

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sql-query-placeholders-and-send): Handle comint-input-sender-no-newline like comint-simple-send. (sql-escape-newlines-and-send): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Sun, 13 Jan 2002 04:44:22 +0000
parents 13a21b2786c0
children b3d6f84a8724
files lisp/progmodes/sql.el
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/sql.el	Sun Jan 13 04:43:12 2002 +0000
+++ b/lisp/progmodes/sql.el	Sun Jan 13 04:44:22 2002 +0000
@@ -1028,7 +1028,10 @@
 		   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 @@
       (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"))))