From fd6ec073875a92aa2687cb8ca697f87ec358e9dc Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Mon, 24 Jun 2002 09:24:09 +0000
Subject: use-old-parser setting replaces use-new-parser setting [WARNING: big
 change]

---
 generic/proof-config.el |  9 ------
 generic/proof-script.el | 75 +++++++++++++++++++++++++------------------------
 2 files changed, 38 insertions(+), 46 deletions(-)

diff --git a/generic/proof-config.el b/generic/proof-config.el
index e35ef0a9..c8dac4ac 100644
--- a/generic/proof-config.el
+++ b/generic/proof-config.el
@@ -844,15 +844,6 @@ or `proof-script-parse-function'."
   :group 'prover-config)
 
 
-(defcustom proof-script-use-new-parser nil
-  "Whether to use the new parsing mechanism, based on `proof-script-parse-function'.
-This is a stop-gap option in Proof General 3.2 added because
-the parsing functions went through several iterations and the final
-(but best) iteration was little tested."
-  :type 'boolean
-  :group 'prover-config)
-
-
 (defcustom proof-script-integral-proofs nil
   "Whether the complete text after a goal confines the actual proof.
 
diff --git a/generic/proof-script.el b/generic/proof-script.el
index 38408e6b..a527ed3d 100644
--- a/generic/proof-script.el
+++ b/generic/proof-script.el
@@ -2649,43 +2649,44 @@ finish setup which depends on specific proof assistant configuration."
   ;; Choose parsing mechanism according to different kinds of script syntax.  
   ;; Choice of function depends on configuration setting.
   (unless (fboundp 'proof-segment-up-to)
-    (if (or proof-script-use-new-parser
-	    proof-script-sexp-commands)
-	;; 3.3 and later mechanism here
-	(progn
-	  (defalias 'proof-segment-up-to 'proof-segment-up-to-parser)
-	  (cond   
-	   (proof-script-parse-function
-	    ;; already set, nothing to do
-	    )
-	   (proof-script-sexp-commands
-	    (setq proof-script-parse-function 'proof-script-generic-parse-sexp))
-	   (proof-script-command-start-regexp
-	    (setq proof-script-parse-function 'proof-script-generic-parse-cmdstart))
-	   ((or proof-script-command-end-regexp proof-terminal-char)
-	    (setq  proof-script-parse-function 'proof-script-generic-parse-cmdend)
-	    (unless proof-script-command-end-regexp
-	      (proof-warn-if-unset "proof-config-done" 'proof-terminal-char)
-	      (setq proof-script-command-end-regexp
-		    (if proof-terminal-char
-			(regexp-quote (char-to-string proof-terminal-char))
-		      "$"))))
-	   (t
-	    (error "Configuration error: must set `proof-terminal-char' or one of its friends."))))
-      (cond
-       (proof-script-parse-function	;; still allowed to override in 3.2
-	(defalias 'proof-segment-up-to 'proof-segment-up-to-parser))
-       ;; 3.2 mechanism here
-       (proof-script-command-start-regexp
-	(defalias 'proof-segment-up-to 'proof-segment-up-to-cmdstart))
-       (t
-	(defalias 'proof-segment-up-to 'proof-segment-up-to-cmdend)
-	(unless proof-script-command-end-regexp
-	  (proof-warn-if-unset "proof-config-done" 'proof-terminal-char)
-	  (setq proof-script-command-end-regexp
-		(if proof-terminal-char
-		    (regexp-quote (char-to-string proof-terminal-char))
-		  "$"))))))) ;  default if nothing set is EOL.
+    (if proof-script-use-old-parser
+	;; Configuration for using old parsing mechanism.
+	(cond
+	 (proof-script-parse-function	;; still allowed to override in 3.2
+	  (defalias 'proof-segment-up-to 'proof-segment-up-to-parser))
+	 ;; 3.2 mechanism here
+	 (proof-script-command-start-regexp
+	  (defalias 'proof-segment-up-to 'proof-segment-up-to-cmdstart))
+	 (t
+	  (defalias 'proof-segment-up-to 'proof-segment-up-to-cmdend)
+	  (unless proof-script-command-end-regexp
+	    (proof-warn-if-unset "proof-config-done" 'proof-terminal-char)
+	    (setq proof-script-command-end-regexp
+		  (if proof-terminal-char
+		      (regexp-quote (char-to-string proof-terminal-char))
+		    "$")))))
+      ;; Configuration for using new parsing (3.3 and later)
+      (progn
+	(defalias 'proof-segment-up-to 'proof-segment-up-to-parser)
+	(cond   
+	 (proof-script-parse-function
+	  ;; already set, nothing to do
+	  )
+	 (proof-script-sexp-commands
+	  (setq proof-script-parse-function 'proof-script-generic-parse-sexp))
+	 (proof-script-command-start-regexp
+	  (setq proof-script-parse-function 'proof-script-generic-parse-cmdstart))
+	 ((or proof-script-command-end-regexp proof-terminal-char)
+	  (setq  proof-script-parse-function 'proof-script-generic-parse-cmdend)
+	  (unless proof-script-command-end-regexp
+	    (proof-warn-if-unset "probof-config-done" 'proof-terminal-char)
+	    (setq proof-script-command-end-regexp
+		  (if proof-terminal-char
+		      (regexp-quote (char-to-string proof-terminal-char))
+		    "$"))))
+	 (t
+	  (error "Configuration error: must set `proof-terminal-char' or one of its friends."))))
+      )) ;  default if nothing set is EOL.
 
   ;; Make sure func menu is configured.  (NB: Ideal place for this and
   ;; similar stuff would be in something evaluated at top level after
-- 
cgit v1.2.3