From dccb0827e266a24dcfd0eabce94f61e0723582c8 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Thu, 3 Jun 2004 13:54:50 +0000
Subject: proof-goto-end-of-locked: add push-mark; fix: goto end of locked even
 if buffer switched.

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

diff --git a/generic/proof-script.el b/generic/proof-script.el
index 86e44346..58df1fae 100644
--- a/generic/proof-script.el
+++ b/generic/proof-script.el
@@ -444,16 +444,19 @@ If non-nil, point is left where it was."
 
 (defun proof-goto-end-of-locked (&optional switch)
   "Jump to the end of the locked region, maybe switching to script buffer.
-If interactive or SWITCH is non-nil, switch to script buffer first."
+If called interactively or SWITCH is non-nil, switch to script buffer.
+If called interactively, a mark is set at the current location with `push-mark'"
   (interactive)
+  (if (and proof-script-buffer (interactive-p))
+      (push-mark))
   (proof-with-script-buffer
    (if ;; there is an active scripting buffer and it's not displayed
        (and proof-script-buffer
 	    (not (get-buffer-window proof-script-buffer))
 	    (or switch (interactive-p)))
        ;; display it
-       (switch-to-buffer proof-script-buffer)
-     (goto-char (proof-unprocessed-begin)))))
+       (switch-to-buffer proof-script-buffer))
+   (goto-char (proof-unprocessed-begin))))
 
 ;; Careful: movement can happen when the user is typing, not very nice!
 (defun proof-goto-end-of-locked-if-pos-not-visible-in-window ()
-- 
cgit v1.2.3