Commit d76fea29 authored by Michael R. Mauger's avatar Michael R. Mauger

* lisp/progmodes/sql.el Bug#24483

(sql-interactive-remove-continuation-prompt): Properly protect `sql-prompt-cont-regexp'.
(sql-interactive-mode): Same.
parent 23d8cfb9
Pipeline #1384 passed with stage
in 60 minutes and 20 seconds
......@@ -3746,7 +3746,8 @@ to avoid deleting non-prompt output."
(or (> (length (or sql-preoutput-hold "")) 0)
(> (or sql-output-newline-count 0) 0)
(not (or (string-match sql-prompt-regexp oline)
(string-match sql-prompt-cont-regexp oline)))))
(and sql-prompt-cont-regexp
(string-match sql-prompt-cont-regexp oline))))))
(let (prompt-found last-nl)
......@@ -4394,12 +4395,12 @@ you entered, right above the output it created.
;; Set comint based on user overrides.
(setq comint-prompt-regexp
(if sql-prompt-cont-regexp
(concat "\\(" sql-prompt-regexp
"\\|" sql-prompt-cont-regexp "\\)")
(concat "\\(?:\\(?:" sql-prompt-regexp "\\)"
"\\|\\(?:" sql-prompt-cont-regexp "\\)\\)")
(setq left-margin (or sql-prompt-length 0))
;; Install input sender
(set (make-local-variable 'comint-input-sender) 'sql-input-sender)
(set (make-local-variable 'comint-input-sender) #'sql-input-sender)
;; People wanting a different history file for each
;; buffer/process/client/whatever can change separator and file-name
;; on the sql-interactive-mode-hook.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment