diff options
Diffstat (limited to 'lego/lego.el')
-rw-r--r-- | lego/lego.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 "*)") |