diff options
| author |  Makarius Wenzel <makarius@sketis.net> | 2000-07-19 15:04:49 +0000 |
|---|---|---|
| committer | Makarius Wenzel <makarius@sketis.net> | 2000-07-19 15:04:49 +0000 |
| commit | d5b15c0fb62aa93bcb03b3a73f203f087494823a (patch) | |
| tree | 35eff7eebaa96397c4303016a6080e7f9e7a9936 | |
| parent | d4adaf501e6d1d48088f8d8320f3e34775e0e75f (diff) | |
use ML_command to avoid unwanted output;
| -rw-r--r-- | isar/isar.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/isar/isar.el b/isar/isar.el index 647fd320..90e2250b 100644 --- a/isar/isar.el +++ b/isar/isar.el @@ -211,7 +211,7 @@ proof-shell-prompt-pattern "^\\w*[>#] " ;; for issuing command, not used to track cwd in any way. - proof-shell-cd-cmd "ML {* Library.cd \"%s\" *}" + proof-shell-cd-cmd "ML_command {* Library.cd \"%s\" *}" ;; Escapes for filenames inside ML strings. ;; We also make a hack for a bug in Isabelle, by switching from @@ -501,7 +501,7 @@ proof-shell-retract-files-regexp." ;; proof-segment-upto-cmdstart (which becomes even more ;; Isar specific, then...) ;; (if (string-match "\\.ML$" (buffer-name proof-script-buffer)) - ;; (format "ML_setup {* %s *};" string) + ;; (format "ML_command {* %s *};" string) ;; string) string "\\<^sync>;")))) |