mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(sql-escape-newlines-and-send)

Browse source 
(sql-query-placeholders-and-send): Fix previous change.
This commit is contained in:
Richard M. Stallman 2002-01-17 01:39:49 +00:00
parent 3ddff13835
commit 754dfe82dc
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/sql.el
View file

@ -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"))))