From eb8bee3157b4300174da08054e50884c8b32ed08 Mon Sep 17 00:00:00 2001 From: Pierre Courtieu Date: Thu, 18 Dec 2014 15:31:20 +0000 Subject: Fixed response display spurious newlines for coq. Added an option about that in proof-config. To check: I adapted proof-treee regrexp accordingly. --- generic/pg-response.el | 5 +++-- generic/proof-config.el | 5 +++++ 2 files changed, 8 insertions(+), 2 deletions(-) (limited to 'generic') 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. -- cgit v1.2.3