diff options
| author | Pierre Courtieu | 2020-05-27 19:53:05 +0200 |
|---|---|---|
| committer | Pierre Courtieu | 2020-06-04 14:33:10 +0200 |
| commit | 5c3ebac1e8d67f2124d4cbae86134d2a68e2900e (patch) | |
| tree | 8c457ce9ead935f2addcd1c897c994ea83748584 /generic/proof-shell.el | |
| parent | 5ba7aee8a8996b8219a6e9dbde645e53684afbca (diff) | |
New hook for early prompt/output analyzis.
proof-state-change-pre-hook happens earlier than
proof-state-change-hook, i.e. before proof-done-advancing. This should
be used to register information in the currently processed span before
proof-done-advancing classifies it.
Historically PG design was to gather these information during
proof-done-advancing (or in its hook called at the end) by just
looking at the command statement. But it is often useful to look at
the output (messages and/or prompt) to gather more accurate
information. Some of this information may be needed DURING
proof-done-advancing. Hence this early hook.
Diffstat (limited to 'generic/proof-shell.el')
| -rw-r--r-- | generic/proof-shell.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/proof-shell.el b/generic/proof-shell.el index b9ac2b3c..78b36ee7 100644 --- a/generic/proof-shell.el +++ b/generic/proof-shell.el @@ -243,6 +243,7 @@ If QUEUEMODE is supplied, set the lock to that value." (setq proof-shell-interrupt-pending nil proof-shell-busy (or queuemode t) proof-shell-last-queuemode proof-shell-busy) + (run-hooks 'proof-state-change-pre-hook) (run-hooks 'proof-state-change-hook)) (defun proof-release-lock () @@ -1836,6 +1837,7 @@ If TIMEOUTSECS is a number, time out after that many seconds." (defun proof-done-invisible (span) "Callback for ‘proof-shell-invisible-command’. Call ‘proof-state-change-hook’." + (run-hooks 'proof-state-change-pre-hook) (run-hooks 'proof-state-change-hook)) ;;;###autoload |