mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases 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
Show Stats 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"))))