From 1d41c893d257b67211cbb99b7c1d2756141d464a Mon Sep 17 00:00:00 2001 From: Pierre Courtieu Date: Wed, 4 Feb 2015 10:42:14 +0000 Subject: cleaned previous commits (generic variable to disable error coloring). --- generic/proof-config.el | 5 +++++ generic/proof-shell.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) (limited to 'generic') diff --git a/generic/proof-config.el b/generic/proof-config.el index 9f4494d2..033938c3 100644 --- a/generic/proof-config.el +++ b/generic/proof-config.el @@ -757,6 +757,11 @@ Elisp errors will be trapped when evaluating; set :type 'boolean :group 'proof-script) +(defcustom proof-script-color-error-messages t + "if non-nil error messages will be globally colored with corresponding face. +If prover mode has a better coloring mechanism for errors, set this to nil." + :type 'boolean + :group 'proof-script) (defcustom proof-script-font-lock-keywords nil "Value of `font-lock-keywords' used to fontify proof scripts. diff --git a/generic/proof-shell.el b/generic/proof-shell.el index a8e79fcd..b0ae9684 100644 --- a/generic/proof-shell.el +++ b/generic/proof-shell.el @@ -619,7 +619,11 @@ This is a subroutine of `proof-shell-handle-error'." ;; Erase if need be, and erase next time round too. (pg-response-maybe-erase t nil) - (pg-response-display-with-face string append-face))) + ;; Coloring the whole message may be ugly ad hide better + ;; coloring mechanism. + (if proof-script-color-error-messages + (pg-response-display-with-face string append-face) + (pg-response-display-with-face string)))) -- cgit v1.2.3