From f6467fad6cf66baaf0fb5d3b60acaf755acb7c2a Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Sun, 19 Aug 2007 11:25:15 +0000 Subject: proof-active-area-face: highlighting face for active area --- generic/pg-goals.el | 11 +++++++---- generic/proof-config.el | 7 +++++++ 2 files changed, 14 insertions(+), 4 deletions(-) (limited to 'generic') diff --git a/generic/pg-goals.el b/generic/pg-goals.el index 7602df1f..60420b19 100644 --- a/generic/pg-goals.el +++ b/generic/pg-goals.el @@ -101,7 +101,7 @@ and properly fontifies STRING using proof-fontify-region." ;; Response buffer may be out of date. It may contain (error) ;; messages relating to earlier proof states - ;; FIXME da: this isn't always the case. In Isabelle + ;; NB: this isn't always the case. In Isabelle ;; we get output, ;; or . Both times ;; would be relevant. @@ -117,8 +117,8 @@ and properly fontifies STRING using proof-fontify-region." (unless (eq 0 (buffer-size)) (bufhist-checkpoint-and-erase)) - ;; Only bother processing and displaying, etc, if string is - ;; non-empty. + + ;; Only display if string is non-empty. (unless (string-equal string "") (insert string) @@ -126,6 +126,8 @@ and properly fontifies STRING using proof-fontify-region." ;; With special chars for fontification, do that first, ;; but keep specials in case also used for subterm markup. (proof-fontify-region (point-min) (point-max) 'keepspecials)) + + ;; Markup for PBP-style interaction (pg-goals-analyse-structure (point-min) (point-max)) (unless pg-use-specials-for-fontify @@ -136,7 +138,7 @@ and properly fontifies STRING using proof-fontify-region." ;; Record a cleaned up version of output string (setq proof-shell-last-output (buffer-substring (point-min) (point-max))) - + (set-buffer-modified-p nil) ; nicety ;; Keep point at the start of the buffer. @@ -297,6 +299,7 @@ commands which can be sent to the prover." (backward-char)) (setq span (make-span start (point))) (set-span-property span 'mouse-face 'highlight) + (set-span-property span 'face 'proof-active-area-face) (set-span-property span 'proof-top-element typname))) diff --git a/generic/proof-config.el b/generic/proof-config.el index 1db9569f..7709e279 100644 --- a/generic/proof-config.el +++ b/generic/proof-config.el @@ -592,6 +592,13 @@ Warning messages can come from proof assistant or from Proof General itself." "*Face for showing (forwards) dependencies." :group 'proof-faces) +(defface proof-active-area-face + (proof-face-specs + (:underlined t) + (:underlined t) + (:underlined t)) + "*Face for showing active areas (clickable regions), outside of subterm markup." + :group 'proof-faces) -- cgit v1.2.3