diff options
author | 2004-06-03 13:54:50 +0000 | |
---|---|---|
committer | 2004-06-03 13:54:50 +0000 | |
commit | dccb0827e266a24dcfd0eabce94f61e0723582c8 (patch) | |
tree | 06525c15c8720891a2e0909fac6441d6df7dfdbf /generic | |
parent | fd7f7efec3ef589f7208a55fef060dd1b8fbe5bb (diff) |
proof-goto-end-of-locked: add push-mark; fix: goto end of locked even if
buffer switched.
Diffstat (limited to 'generic')
-rw-r--r-- | generic/proof-script.el | 9 |
1 files 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 () |