From 754dfe82dc8764393872a33982e2efe9c70211ab Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 17 Jan 2002 01:39:49 +0000 Subject: [PATCH] (sql-escape-newlines-and-send) (sql-query-placeholders-and-send): Fix previous change. --- lisp/progmodes/sql.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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")))) -- 2.39.5