diff options
author | 2006-12-07 19:51:33 +0000 | |
---|---|---|
committer | 2006-12-07 19:51:33 +0000 | |
commit | a4b24e4e30d10a79f3d8fc90d1acd69b80b4c2ab (patch) | |
tree | 145672aed12d42374153122d2dafff4b39ef652b | |
parent | 07559fb1fa3cad5e3fdd2fd5b14313e7ad455c9b (diff) |
proof-shell-pre-interrupt-hook: removed obsolete Poly/ML 3 setup, which breaks Poly/MK 5;
-rw-r--r-- | generic/proof-config.el | 8 | ||||
-rw-r--r-- | isar/isabelle-system.el | 9 |
2 files changed, 3 insertions, 14 deletions
diff --git a/generic/proof-config.el b/generic/proof-config.el index 0ca0155a..d8261e79 100644 --- a/generic/proof-config.el +++ b/generic/proof-config.el @@ -2334,11 +2334,9 @@ something in scripting buffer, `save-excursion' and/or `set-buffer'." (defcustom proof-shell-pre-interrupt-hook nil - "Run immediately after `comint-interrupt-subjob' is called. -This hook is added to allow customization for Poly/ML and other -systems where the system queries the user before returning to -the top level. For Poly/ML it can be used to send the string \"f\", -for example." + "Run immediately after `comint-interrupt-subjob' is called. This +hook is added to allow customization for systems that query the user +before returning to the top level." :type '(repeat function) :group 'proof-shell) diff --git a/isar/isabelle-system.el b/isar/isabelle-system.el index 7e105bda..25abf308 100644 --- a/isar/isabelle-system.el +++ b/isar/isabelle-system.el @@ -250,15 +250,6 @@ Called with one argument: t to save database, nil otherwise." "Mark internal command for verbatim output" (concat "\^VERBATIM: " str)) -;;; Set proof-shell-pre-interrupt-hook for PolyML 3. -(if (and - (not proof-shell-pre-interrupt-hook) - ;; (Older versions of Isabelle reported PolyML for PolyML 3). - (proof-string-match-safe "\\`polyml" (isa-getenv "ML_SYSTEM")) - (not (proof-string-match-safe "\\`polyml-4" (isa-getenv "ML_SYSTEM")))) - (add-hook - 'proof-shell-pre-interrupt-hook - (lambda () (proof-shell-insert (isabelle-verbatim "f") nil)))) ;;; ========== Utility functions ========== |