From e9026266e312e42f9333fd112e215406027d95e2 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Mon, 14 Sep 2009 07:31:30 +0000
Subject: Propertize Scripting modeline indicator.  Support error spans.

---
 generic/proof-shell.el | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/generic/proof-shell.el b/generic/proof-shell.el
index 4fb9dfc6..fb3b7c74 100644
--- a/generic/proof-shell.el
+++ b/generic/proof-shell.el
@@ -84,7 +84,7 @@ The previous output is held back for processing at end of queue.")
 ;;
 
 (defcustom proof-shell-active-scripting-indicator
-  " Scripting"
+  (propertize " Scripting " 'face 'proof-queue-face)
   "Modeline indicator for active scripting buffer.
 If first component is extent it will automatically follow the colour
 of the queue region."
@@ -625,17 +625,9 @@ non-empty flags) will not invoke any of this action."  ; PG4.0 change
   (save-excursion
     (unless proof-shell-quiet-errors
       (beep))
-    ;; TODO: add temp span in script (wigglies) for error
-    ;; (if proof-action-list
-    ;; 	(let* ((item (car proof-action-list))
-    ;; 	       (span (car item)))
-    ;; 	  (if span
-    ;; 	      (if proof-script-buffer
-    ;; 		  (with-current-buffer proof-script-buffer
-    ;; 		    (pg-set-span-helphighlights span 
-    ;; 						'proof-script-error-face))))))
-    (proof-script-clear-queue-spans)
-    
+    (proof-with-current-buffer-if-exists proof-script-buffer
+      (proof-script-clear-queue-spans-on-error 
+       (car-safe (car-safe proof-action-list))))
     (setq proof-action-list nil)
     (proof-release-lock)
     ;; Give a hint about C-c C-`.  (NB: approximate test)
-- 
cgit v1.2.3