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. --- isar/isar.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'isar') 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)))) -- cgit v1.2.3