(sql-escape-newlines-and-send)

(sql-query-placeholders-and-send): Fix previous change.

diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index 990576667ad087356b96c2503ac33443c2ba3573..fb33db00681d56e66aea68ecc53b8c35f3bae749 100644 (file)
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -1029,7 +1029,7 @@ This function is used for `comint-input-sender' if using `sql-oracle' on NT."
                  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 @@ Every newline in STRING will be preceded with a space and a backslash."
     (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"))))