From aa9bd33b1850e8743d57e12e006297eda3d66100 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Mon, 23 Nov 2009 23:25:11 +0000 Subject: Use ProofGeneral.pr if available. See Trac #292. --- isar/isar-syntax.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'isar/isar-syntax.el') diff --git a/isar/isar-syntax.el b/isar/isar-syntax.el index 958f4558..408b910e 100644 --- a/isar/isar-syntax.el +++ b/isar/isar-syntax.el @@ -447,13 +447,24 @@ matches contents of quotes for quoted identifiers.") (defconst isar-undo "ProofGeneral.undo;") +(defun isar-pr () + (if (member "ProofGeneral\\.pr" + isar-keywords-major) + "ProofGeneral.pr" ; does right thing + "pr" ; See Trac #292 + )) + (defun isar-remove (name) (concat "init_toplevel; kill_thy " name ";")) (defun isar-undos (linearp i) (if (> i 0) (concat (if linearp "linear_undo " "undos_proof ") (int-to-string i) ";" - (if linearp " pr; ")) ; See Trac #292 + (if linearp + (concat " " + (isar-pr) + ";")) + ) nil)) ; was proof-no-command (defun isar-cannot-undo (cmd) -- cgit v1.2.3