From 4b2801a521f7365f8a3833fa9805828792dac853 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Mon, 28 Sep 2009 08:40:57 +0000 Subject: Functions find-and-forget and count-undos now return lists of commands --- isar/isar.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'isar/isar.el') diff --git a/isar/isar.el b/isar/isar.el index 6c58e1eb..f75ff2a9 100644 --- a/isar/isar.el +++ b/isar/isar.el @@ -434,7 +434,7 @@ This is called when Proof General spots output matching (setq i (+ 1 i)))) (t nil)))) (setq span (next-span span 'type))) - (isar-undos isar-use-linear-undo ct))) + (list (isar-undos isar-use-linear-undo ct)))) ;; undo theory commands (defun isar-find-and-forget (span) @@ -474,8 +474,7 @@ This is called when Proof General spots output matching (setq ans isar-undo))) (if ans (setq answers (cons ans answers))) (if span (setq span (next-span span 'type)))) - (if (null answers) nil ; was proof-no-command - (apply 'concat answers)))) + answers)) (defun isar-goal-command-p (span) "Decide whether argument SPAN is a goal or not." -- cgit v1.2.3