aboutsummaryrefslogtreecommitdiffhomepage
path: root/generic/proof-script.el
diff options
context:
space:
mode:
Diffstat (limited to 'generic/proof-script.el')
-rw-r--r--generic/proof-script.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/proof-script.el b/generic/proof-script.el
index 338318e7..e65d2fc9 100644
--- a/generic/proof-script.el
+++ b/generic/proof-script.el
@@ -2238,7 +2238,9 @@ query saves here."
(backward-char)
(setq span (span-at (point) 'type)))
(if span
- (proof-retract-target span undo-action displayflags)
+ (progn
+ (run-hooks 'proof-retract-command-hook) ;; sneak commands (real ones with a prompt)
+ (proof-retract-target span undo-action displayflags))
;; something wrong
(proof-debug
"proof-retract-until-point: couldn't find a span!"))))))