From 1f01dac278d97b9c40f5f178f1b5fac4df8239ec Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Fri, 3 May 2002 13:06:56 +0000 Subject: Add support for proof-next-error. --- isar/isar.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'isar') diff --git a/isar/isar.el b/isar/isar.el index e26a7f91..bc4729a9 100644 --- a/isar/isar.el +++ b/isar/isar.el @@ -155,6 +155,7 @@ proof-state-preserving-p 'isar-state-preserving-p proof-shell-compute-new-files-list 'isar-shell-compute-new-files-list)) + (defun isar-shell-mode-config-set-variables () "Configure generic proof shell mode variables for Isabelle/Isar." (setq @@ -372,8 +373,12 @@ proof-shell-retract-files-regexp." (setq str (span-property span 'cmd)) (setq ans nil) (cond - ;; comment or diagnostic command: skip + ;; comment, diagnostic, nested proof command: skip + ;; (da: adding new span types may break this code, + ;; ought to test for type 'cmd before looking at + ;; str below) ((or (eq (span-property span 'type) 'comment) + (eq (span-property span 'type) 'proof); da: needed? (proof-string-match isar-undo-skip-regexp str) (proof-string-match isar-undo-ignore-regexp str))) ;; finished goal: undo -- cgit v1.2.3