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 /isar | |
| parent | 1e0d6e79c32b49ea82bf7b20bd4fbeeaffd3821a (diff) | |
Replace proof-terminal-char with proof-terminal-string.
Diffstat (limited to 'isar')
| -rw-r--r-- | isar/isar.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/isar/isar.el b/isar/isar.el index e656c874..1afbc66e 100644 --- a/isar/isar.el +++ b/isar/isar.el @@ -94,7 +94,7 @@ See -k option for Isabelle interface script." proof-prog-name-guess t ;; proof script syntax - proof-terminal-char ?\; ; forcibly ends a command + proof-terminal-string ";" ; forcibly ends a command proof-electric-terminator-noterminator t ; don't insert it proof-script-command-start-regexp isar-any-command-regexp @@ -425,7 +425,7 @@ This is called when Proof General spots output matching ;; If we find a semicolon, assume several commands, ;; and increment the undo count. (while (< i (length str)) - (if (= (aref str i) proof-terminal-char) + (if (= (aref str i) ?\;) (setq ct (+ 1 ct))) (setq i (+ 1 i)))) (t nil)))) |