From b8d394edd40a5d219c7d29f4dff3763c73c41b28 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Wed, 9 Sep 1998 15:40:04 +0000
Subject: Made proof-assert-next-command move forward by default.

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

(limited to 'generic')

diff --git a/generic/proof.el b/generic/proof.el
index f2c5e2e4..c08c4b42 100644
--- a/generic/proof.el
+++ b/generic/proof.el
@@ -1428,10 +1428,10 @@ function) to a set of vanilla extents."
 ;; By missing out the re-search-backward above, we can assert the next
 ;; command from within the locked region, to experiment with changing
 ;; steps in a proof.
-(defun proof-assert-next-command (&optional move-forward)
+(defun proof-assert-next-command (&optional dont-move-forward)
   "Experimental variant of proof-assert-until-point.
-Works in locked region and at start of commands.  Leaves point
-where it is unless optional arg MOVE-FORWARD is true."
+Works in locked region and at start of commands.  Moves point
+forward unless optional arg DONT-MOVE-FORWARD is true."
   (interactive "p")
   (let ((pt (point))
 	(crowbar (proof-steal-process))
@@ -1452,9 +1452,8 @@ where it is unless optional arg MOVE-FORWARD is true."
       (if crowbar (setq vanillas (cons crowbar vanillas)))
       (proof-start-queue (proof-locked-end) (point) vanillas))
     ;; FIXME: why is move-forward non-nil when called from keymap???
-;    (or move-forward
-;	(goto-char pt))))
-    (goto-char pt)))
+    (and dont-move-forward
+	(goto-char pt))))
 
 ;;         insert-pbp-command - an advancing command, for use when  ;;
 ;;         PbpHyp or Pbp has executed in LEGO, and returned a       ;;
-- 
cgit v1.2.3