diff options
| author |  Pierre Courtieu <courtieu@lri.fr> | 2014-12-18 15:31:20 +0000 |
|---|---|---|
| committer | Pierre Courtieu <courtieu@lri.fr> | 2014-12-18 15:31:20 +0000 |
| commit | eb8bee3157b4300174da08054e50884c8b32ed08 (patch) | |
| tree | 681d2306180d99ddc4196a242352108a7eaea6a5 /generic | |
| parent | 1a150926b3de7ec0f09caf152b4c9e0e7020af31 (diff) | |
Fixed response display spurious newlines for coq.
Added an option about that in proof-config.
To check: I adapted proof-treee regrexp accordingly.
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. |