aboutsummaryrefslogtreecommitdiffhomepage
path: root/generic/proof-shell.el
diff options
context:
space:
mode:
Diffstat (limited to 'generic/proof-shell.el')
-rw-r--r--generic/proof-shell.el6
1 files changed, 5 insertions, 1 deletions
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))))