diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2010-08-27 16:32:16 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2010-08-27 16:32:16 +0000 |
| commit | e1a327e5621d191fe408d12b331d05dda17b395c (patch) | |
| tree | c3bb2de9a1c4318b4243ddf1432ed84c3b2dfe1a /lego | |
| parent | 1e0d6e79c32b49ea82bf7b20bd4fbeeaffd3821a (diff) | |
Replace proof-terminal-char with proof-terminal-string.
Diffstat (limited to 'lego')
| -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 "*)") |