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 --- lego/lego.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'lego') diff --git a/lego/lego.el b/lego/lego.el index 92ef462a..2234bb12 100644 --- a/lego/lego.el +++ b/lego/lego.el @@ -187,8 +187,7 @@ Given is the first SPAN which needs to be undone." (if (= (aref str i) proof-terminal-char) (setq ct (+ 1 ct))) (setq i (+ 1 i))))) (setq span (next-span span 'type))) - ;; FIXME: make this stuff generic. This should be undo-n-times-cmd - (concat "Undo " (int-to-string ct) ";"))) + (list (concat "Undo " (int-to-string ct) ";")))) (defun lego-goal-command-p (span) "Decide whether argument is a goal or not" @@ -231,7 +230,7 @@ Given is the first SPAN which needs to be undone." ;; Carry on searching forward for something to forget ;; (The first thing to be forget will forget everything following) (setq span (next-span span 'type))) - ans)); was (or ans proof-no-command) + (when ans (list ans)))); was (or ans proof-no-command) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Other stuff which is required to customise script management ;; -- cgit v1.2.3