From e1a327e5621d191fe408d12b331d05dda17b395c Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Fri, 27 Aug 2010 16:32:16 +0000 Subject: Replace proof-terminal-char with proof-terminal-string. --- lego/lego.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lego') diff --git a/lego/lego.el b/lego/lego.el index 46b2cb5c..e787d315 100644 --- a/lego/lego.el +++ b/lego/lego.el @@ -184,7 +184,7 @@ Given is the first SPAN which needs to be undone." ((eq (span-property span 'type) 'pbp) (setq i 0) (while (< i (length str)) - (if (= (aref str i) proof-terminal-char) (setq ct (+ 1 ct))) + (if (= (aref str i) ?\;) (setq ct (+ 1 ct))) (setq i (+ 1 i))))) (setq span (next-span span 'type))) (list (concat "Undo " (int-to-string ct) ";")))) @@ -288,7 +288,7 @@ Checks the width in the `proof-goals-buffer'" (defun lego-mode-config () - (setq proof-terminal-char ?\;) + (setq proof-terminal-string ";") (setq proof-script-comment-start "(*") (setq proof-script-comment-end "*)") -- cgit v1.2.3