diff options
-rw-r--r-- | isar/isar-syntax.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/isar/isar-syntax.el b/isar/isar-syntax.el index 7bd45aa9..1f7d3ea6 100644 --- a/isar/isar-syntax.el +++ b/isar/isar-syntax.el @@ -1,5 +1,5 @@ ;; isar-syntax.el Syntax expressions for Isabelle/Isar -;; Copyright (C) 1994-2004 LFCS Edinburgh. +;; Copyright (C) 1994-2004, 2009 LFCS Edinburgh. ;; License: GPL (GNU GENERAL PUBLIC LICENSE) ;; ;; Authors: David Aspinall <David.Aspinall@ed.ac.uk> @@ -479,7 +479,8 @@ matches contents of quotes for quoted identifiers.") (defun isar-undos (linearp i) (if (> i 0) (concat (if linearp "linear_undo " "undos_proof ") - (int-to-string i) ";") + (int-to-string i) ";" + (if linearp " pr; ")) ; See Trac #292 nil)) ; was proof-no-command (defun isar-cannot-undo (cmd) |