From 2b2dab487ffa46b7ddaf930071a0e6fa70b1bbc9 Mon Sep 17 00:00:00 2001
From: Makarius Wenzel
Date: Thu, 1 Sep 2005 14:18:09 +0000
Subject: tuned ML code for manipulating print_mode;
 isabelle-convert-idmarkup-to-subterm: proof-re-search-forward, tuned regexp;

---
 isa/isabelle-system.el | 9 ++++-----
 1 file 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)))
 
 
-- 
cgit v1.2.3