diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/pg-response.el | 5 | ||||
| -rw-r--r-- | generic/proof-config.el | 5 |
2 files changed, 8 insertions, 2 deletions
diff --git a/generic/pg-response.el b/generic/pg-response.el index 89c35e9d..7afa77a5 100644 --- a/generic/pg-response.el +++ b/generic/pg-response.el @@ -357,8 +357,9 @@ Returns non-nil if response buffer was cleared." ;; with warnings after delayed output (non newline terminated). (goto-char (point-max)) ;; insert a newline before the new message unless the - ;; buffer is empty - (unless (eq (point-min) (point-max)) + ;; buffer is empty or proof-script-insert-newlines is nil + (unless (or (not proof-script-insert-newlines) + (eq (point-min) (point-max))) (newline)) (setq start (point)) (insert str) diff --git a/generic/proof-config.el b/generic/proof-config.el index 280b98cf..9f4494d2 100644 --- a/generic/proof-config.el +++ b/generic/proof-config.el @@ -752,6 +752,11 @@ Elisp errors will be trapped when evaluating; set :type 'string :group 'proof-script) +(defcustom proof-script-insert-newlines t + "if non-nil inserts a newline between each message in response buffer." + :type 'boolean + :group 'proof-script) + (defcustom proof-script-font-lock-keywords nil "Value of `font-lock-keywords' used to fontify proof scripts. |