From 1610033c72b11c1e13bc5daef0434832f0605dfa Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Wed, 18 Nov 1998 13:41:43 +0000
Subject: Bug fix: proof-undo-last-successful-command has silent failure for
 empty locked region.

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

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

diff --git a/generic/proof-script.el b/generic/proof-script.el
index 60d32187..364059c3 100644
--- a/generic/proof-script.el
+++ b/generic/proof-script.el
@@ -373,6 +373,8 @@ Should be called from a proof script buffer."
     (skip-chars-backward " \t\n")
     (>= (proof-unprocessed-begin) (point))))
 
+;; FIXME: doesn't need to be called from proof script buffer now
+;; proof-unprocessed-begin is generalised.
 (defun proof-locked-region-empty-p ()
   "Non-nil if the locked region is empty.
 Should be called from a proof script buffer."
@@ -1075,12 +1077,13 @@ unclosed-comment-fun."
 Unless optional NO-DELETE is set, the text is also deleted from
 the proof script."
   (interactive "p")
-  (let ((lastspan (span-at-before (proof-locked-end) 'type)))
-    (if lastspan
-	(progn
-	  (goto-char (span-start lastspan))
-	  (proof-retract-until-point (not no-delete)))
-      (error "Nothing to undo!"))))
+  (unless (proof-locked-region-empty-p)
+    (let ((lastspan (span-at-before (proof-locked-end) 'type)))
+      (if lastspan
+	  (progn
+	    (goto-char (span-start lastspan))
+	    (proof-retract-until-point (not no-delete)))
+	(error "Nothing to undo!")))))
 
 (defun proof-interrupt-process ()
   "Interrupt the proof assistant.  WARNING! This may confuse Proof General."
-- 
cgit v1.2.3