From 54bf12bbf49e62d3afb92b67b1ec4f7a4f682666 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Wed, 12 Jun 2002 10:32:19 +0000 Subject: New files. --- isar/test.el | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 isar/test.el diff --git a/isar/test.el b/isar/test.el new file mode 100644 index 00000000..ee530cab --- /dev/null +++ b/isar/test.el @@ -0,0 +1,25 @@ +;; +;; Temporary test for new code in proof-done-advancing, following +;; Markus's suggestions in proof-config +;; [see doc of proof-really-save-command-p] +;; +;; Not integrated yet for fear of destruction of finely tuned +;; PG/Isar instance. +;; +;; -da June 02. +;; +;; FIXME: the handling of nesting depth counter doesn't yet work +;; smoothly in the generic code, especially across undos/forget. +;; Need to fix when nesting depth is changed, how it is changed, +;; and choice of kill_proof vs undos for Isar. + +(setq proof-nested-goals-p t) +(setq proof-goal-command-regexp + (concat isar-goal-command-regexp "\\|" isar-local-goal-command-regexp)) + +(defun isar-goal-command-p (str) + "Decide whether argument is a goal or not" + (proof-string-match proof-goal-command-regexp str)) + +;; Reset this to default value +(setq proof-really-save-command-p (lambda (span cmd) t)) -- cgit v1.2.3