From cb88c7236bf1d2aa276a62b7dfe0ef61a769f787 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Wed, 13 Apr 2011 11:12:49 +0000
Subject: Add proof-output-tooltips option to turn off output highlighting for
 people who read or edit by waving mouse at text

---
 generic/proof-script.el | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

(limited to 'generic/proof-script.el')

diff --git a/generic/proof-script.el b/generic/proof-script.el
index ec1f05bf..b189e02c 100644
--- a/generic/proof-script.el
+++ b/generic/proof-script.el
@@ -727,7 +727,10 @@ also as the 'response property on the span.
 
 Optional argument MOUSEFACE means use the given face as a mouse highlight
 face, if it is a face, otherwise, if it is non-nil but not a face,
-do not add a mouse highlight.
+do not add a mouse highlight.  
+
+In any case, a mouse highlight and tooltip are only set if
+`proof-output-tooltips' is non-nil.
 
 Argument FACE means add 'face property FACE to the span."
   (let* ((output     (pg-last-output-displayform))
@@ -746,10 +749,11 @@ Argument FACE means add 'face property FACE to the span."
     (span-set-property newspan 'pghelp t)
     (span-set-property newspan 'response output)
 
-    (span-set-property newspan 'help-echo
-	(if (<= (length output) 2)
-	      (pg-span-name span)
-	    output))
+    (when proof-output-tooltips
+      (span-set-property newspan 'help-echo
+			 (if (<= (length output) 2)
+			     (pg-span-name span)
+			   output)))
 
     ;; Here's the message we used to show in minibuffer
     ;; when pg-show-hints was on:
@@ -765,7 +769,8 @@ Argument FACE means add 'face property FACE to the span."
     (if (or (facep mouseface)
 	    (setq mouseface
 		  (unless mouseface 'proof-mouse-highlight-face)))
-	(span-set-property newspan 'mouse-face mouseface))
+	(when proof-output-tooltips
+	  (span-set-property newspan 'mouse-face mouseface)))
     (if face
 	(span-set-property newspan 'face face))
     (span-set-property newspan 'priority 50)))
-- 
cgit v1.2.3