diff options
Diffstat (limited to 'isa/isabelle-system.el')
| -rw-r--r-- | isa/isabelle-system.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/isa/isabelle-system.el b/isa/isabelle-system.el index bc2209ad..57cd4db6 100644 --- a/isa/isabelle-system.el +++ b/isa/isabelle-system.el @@ -182,6 +182,13 @@ Called with one argument: t to save database, nil otherwise." (isa-insert-ret "quit();")) (comint-send-eof)) +;;; Set proof-shell-pre-interrupt-hook for PolyML. +(if (and + (not proof-shell-pre-interrupt-hook) + (string-match "^polyml" (isa-getenv "ML_SYSTEM"))) + (add-hook + 'proof-shell-pre-interrupt-hook + (lambda () (proof-shell-insert "f" nil)))) ;;; ========== Utility functions ========== |