diff options
| -rw-r--r-- | isa/interface-setup.el | 5 | ||||
| -rw-r--r-- | isar/interface-setup.el | 5 |
2 files changed, 10 insertions, 0 deletions
diff --git a/isa/interface-setup.el b/isa/interface-setup.el index fce64173..f5ee2c51 100644 --- a/isa/interface-setup.el +++ b/isa/interface-setup.el @@ -5,3 +5,8 @@ (customize-set-variable 'isabelle-prog-name (concat (getenv "ISABELLE") " " (getenv "PROOFGENERAL_LOGIC"))) + +(if (string-match "^polyml" (getenv "ML_SYSTEM")) + (customize-set-variable + 'proof-shell-pre-interrupt-hook + (lambda () (proof-shell-insert "f" nil)))) diff --git a/isar/interface-setup.el b/isar/interface-setup.el index 3cf70b39..736cda57 100644 --- a/isar/interface-setup.el +++ b/isar/interface-setup.el @@ -5,3 +5,8 @@ (customize-set-variable 'isabelle-isar-prog-name (concat (getenv "ISABELLE") " " (getenv "PROOFGENERAL_LOGIC"))) + +(if (string-match "^polyml" (getenv "ML_SYSTEM")) + (customize-set-variable + 'proof-shell-pre-interrupt-hook + (lambda () (proof-shell-insert (isar-verbatim "f") nil)))) |