diff options
author | 2005-09-01 14:18:09 +0000 | |
---|---|---|
committer | 2005-09-01 14:18:09 +0000 | |
commit | 2b2dab487ffa46b7ddaf930071a0e6fa70b1bbc9 (patch) | |
tree | 91cad8eb5b91154d1cce72cb5a4258a9faec0deb /isa/isabelle-system.el | |
parent | 677cd9da3adce2be73e8a6a02b414ffcff54d003 (diff) |
tuned ML code for manipulating print_mode;
isabelle-convert-idmarkup-to-subterm: proof-re-search-forward, tuned regexp;
Diffstat (limited to 'isa/isabelle-system.el')
-rw-r--r-- | isa/isabelle-system.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/isa/isabelle-system.el b/isa/isabelle-system.el index fcb8ac2c..58b09636 100644 --- a/isa/isabelle-system.el +++ b/isa/isabelle-system.el @@ -454,8 +454,8 @@ until Proof General is restarted." (defpacustom theorem-dependencies nil "Whether to track theorem dependencies within Proof General." :type 'boolean - :setting ("print_mode := ([\"thm_deps\"] @ ! print_mode);" . - "print_mode := (Library.gen_rems (op =) (! print_mode, [\"thm_deps\"]));"))) + :setting ("change print_mode (insert (op =) \"thm_deps\");" . + "change print_mode (remove (op =) \"thm_deps\");"))) (defpacustom goals-limit 10 "Setting for maximum number of goals printed in Isabelle." @@ -529,11 +529,10 @@ the function `pg-remove-specials' can be used instead)." ;; cause problems for subterm markup). ;; Future version of this should use PGML output in Isabelle2002. (goto-char (point-min)) - (while (re-search-forward - "\351\\|\352\\|\353\\|\354\\|\355\\|\356\\|\357" nil t) + (while (proof-re-search-forward "[\351-\357]" nil t) (replace-match "\372\200\373" nil t)) (goto-char (point-min)) - (while (re-search-forward "\350" nil t) + (while (proof-re-search-forward "\350" nil t) (replace-match "\374" nil t))) |