From 41542208cdf5437bf7604d042779d5ac9d7684a8 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Wed, 9 Sep 2009 23:13:01 +0000 Subject: Support linear_undo. Add minimal font-lock for readability in *isabelle*. --- isar/isar-syntax.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'isar/isar-syntax.el') diff --git a/isar/isar-syntax.el b/isar/isar-syntax.el index 2e024eac..83d879a5 100644 --- a/isar/isar-syntax.el +++ b/isar/isar-syntax.el @@ -418,6 +418,9 @@ matches contents of quotes for quoted identifiers.") "Remove invisible output markup from STRING" (replace-regexp-in-string "\^A." "" string)) +(defconst isar-shell-font-lock-keywords + '(("\^A." (0 '(face nil invisible t))))) + (defvar isar-goals-font-lock-keywords (append (list @@ -459,8 +462,9 @@ matches contents of quotes for quoted identifiers.") (defun isar-remove (name) (concat "init_toplevel; kill_thy " name ";")) -(defun isar-undos (i) - (if (> i 0) (concat "undos_proof " (int-to-string i) ";") +(defun isar-undos (linearp i) + (if (> i 0) (concat (if linearp "linear_undo " "undos_proof ") + (int-to-string i) ";") nil)) ; was proof-no-command (defun isar-cannot-undo (cmd) -- cgit v1.2.3