procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* progmodes/sql.el (sql-output-to-send): Remove, unused.

Browse source 
(sql-interactive-remove-continuation-prompt):
(sql-send-magic-terminator, sql-interactive-mode): Remove references.
This commit is contained in:
Michael Mauger 2013-01-14 21:35:45 -05:00
parent 982c5d68ff
commit 9d55215c18
2 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2013-01-15 Michael R. Mauger <mmaug@yahoo.com>
* progmodes/sql.el (sql-output-to-send): Remove, unused.
(sql-interactive-remove-continuation-prompt):
(sql-send-magic-terminator, sql-interactive-mode): Remove
references.
2013-01-14 Leo Liu <sdl.web@gmail.com>
* calendar/calendar.el (calendar-redraw): Sync window-point and point.

10
lisp/progmodes/sql.el
View file

@ -3219,9 +3219,6 @@ Every newline in STRING will be preceded with a space and a backslash."
Allows the suppression of continuation prompts.")
(defvar sql-output-by-send nil
"Non-nil if the command in the input was generated by `sql-send-string'.")
(defun sql-input-sender (proc string)
"Send STRING to PROC after applying filters."
@ -3288,8 +3285,7 @@ to avoid deleting non-prompt output."
(if (= sql-output-newline-count 0)
(setq sql-output-newline-count nil
oline (concat "\n" oline)
sql-output-by-send nil)
oline (concat "\n" oline))
(setq sql-preoutput-hold oline
oline ""))
@ -3383,8 +3379,7 @@ to avoid deleting non-prompt output."
(setq sql-output-newline-count
(if sql-output-newline-count
(1+ sql-output-newline-count)
1)))
(setq sql-output-by-send t)))
1)))))
(defun sql-remove-tabs-filter (str)
"Replace tab characters with spaces."
@ -3857,7 +3852,6 @@ you entered, right above the output it created.
(sql-get-product-feature sql-product :prompt-cont-regexp))
(make-local-variable 'sql-output-newline-count)
(make-local-variable 'sql-preoutput-hold)
(make-local-variable 'sql-output-by-send)
(add-hook 'comint-preoutput-filter-functions
'sql-interactive-remove-continuation-prompt nil t)
(make-local-variable 'sql-input-ring-separator)