From 08599bb05f7ecb49f83d1e9932df012b1b5bcd06 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Fri, 7 Aug 2009 14:28:17 +0000
Subject: proof-colour-locked: complete implementation

---
 generic/proof-script.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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

diff --git a/generic/proof-script.el b/generic/proof-script.el
index 9890f2e6..3fd3ee89 100644
--- a/generic/proof-script.el
+++ b/generic/proof-script.el
@@ -321,9 +321,11 @@ Also clear list of script portions."
 ;;;###autoload
 (defun proof-colour-locked ()
   (interactive)
-  (if proof-colour-locked
-      (span-set-property proof-locked-span 'face 'proof-locked-face)
-    (span-set-property  proof-locked-span 'face nil)))
+  (proof-map-buffers (proof-buffers-in-mode proof-mode-for-script)
+   (and (span-live-p proof-locked-span)
+    (if proof-colour-locked
+  	   (span-set-property proof-locked-span 'face 'proof-locked-face)
+      (span-set-property  proof-locked-span 'face nil)))))
 
 ;; ** Restarting and clearing spans
 
-- 
cgit v1.2.3