From b27acfc00264f2ca9265dda4c24005c9cd1ce708 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Tue, 15 Dec 1998 14:24:09 +0000
Subject: Fixes for FSF Emacs handling of processes, kill buffer hooks, and
 live/dead overlays.

---
 generic/proof-script.el | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

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

diff --git a/generic/proof-script.el b/generic/proof-script.el
index d9d5c686..13a441c4 100644
--- a/generic/proof-script.el
+++ b/generic/proof-script.el
@@ -1018,18 +1018,19 @@ a space or newline will be inserted automatically."
 
 
 (defun proof-done-retracting (span)
-  "Updates display after proof process has reset its state. See also
-the documentation for `proof-retract-until-point'. It optionally
-deletes the region corresponding to the proof sequence."
-  (let ((start (span-start span))
-        (end (span-end span))
-	(kill (span-property span 'delete-me)))
-    (unless (proof-locked-region-empty-p)
-      (proof-set-locked-end start)
-      (proof-set-queue-end start))
-    (delete-spans start end 'type)
-    (delete-span span)
-    (if kill (kill-region start end))))
+  "Update display after proof process has reset its state.
+See also the documentation for `proof-retract-until-point'.
+Optionally delete the region corresponding to the proof sequence."
+  (if (span-live-p span)
+      (let ((start (span-start span))
+	    (end (span-end span))
+	    (kill (span-property span 'delete-me)))
+	(unless (proof-locked-region-empty-p)
+	  (proof-set-locked-end start)
+	  (proof-set-queue-end start))
+	(delete-spans start end 'type)
+	(delete-span span)
+	(if kill (kill-region start end)))))
 
 (defun proof-setup-retract-action (start end proof-command delete-region)
   (let ((span (make-span start end)))
-- 
cgit v1.2.3