From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 17 Jan 2002 01:39:49 +0000 (+0000)
Subject: (sql-escape-newlines-and-send)
X-Git-Tag: ttn-vms-21-2-B4~17106
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=754dfe82dc8764393872a33982e2efe9c70211ab;p=emacs.git

(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 990576667ad..fb33db00681 100644
--- 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"))))