# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1011231589 0
# Node ID 2f56e7fc793a79867fcf700c7ab02b3bef1e9b16
# Parent  dfa4a29911786268877538e112e9e63f7729a959
(sql-escape-newlines-and-send)
(sql-query-placeholders-and-send): Fix previous change.

diff -r dfa4a2991178 -r 2f56e7fc793a lisp/progmodes/sql.el
--- a/lisp/progmodes/sql.el	Thu Jan 17 00:47:16 2002 +0000
+++ b/lisp/progmodes/sql.el	Thu Jan 17 01:39:49 2002 +0000
@@ -1029,7 +1029,7 @@
 		  t t string)))
   (comint-send-string proc string)
   (if comint-input-sender-no-newline
-      (if (not (string-equal input ""))
+      (if (not (string-equal string ""))
 	  (process-send-eof))
     (comint-send-string proc "\n")))
 
@@ -1050,7 +1050,7 @@
     (setq result (concat result (substring string start)))
     (comint-send-string proc result)
     (if comint-input-sender-no-newline
-	(if (not (string-equal input ""))
+	(if (not (string-equal string ""))
 	    (process-send-eof))
       (comint-send-string proc "\n"))))