diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2007-08-19 11:25:15 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2007-08-19 11:25:15 +0000 |
commit | f6467fad6cf66baaf0fb5d3b60acaf755acb7c2a (patch) | |
tree | 7811fca56b62aac29212f1b757dca46739d64b97 | |
parent | 009b2f163964fd95691913163fd15fb43c84fdc0 (diff) |
proof-active-area-face: highlighting face for active area
-rw-r--r-- | generic/pg-goals.el | 11 | ||||
-rw-r--r-- | generic/proof-config.el | 7 |
2 files changed, 14 insertions, 4 deletions
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 <WARNING MESSAGE> <CURRENT GOALS> output, ;; or <WARNING MESSAGE> <ORDINARY MESSAGE>. Both times ;; <WARNING MESSAGE> 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) |