diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2000-12-20 10:29:51 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2000-12-20 10:29:51 +0000 |
commit | 028397926a396c428fdf3ee1b608e5ffea2af6c7 (patch) | |
tree | 215631a5614ba1a023dba9bd57daf2fbcca066aa | |
parent | 79678e21125fb4a528f86e4d1af759aaeb7cb79a (diff) |
goalsave -> proof
-rw-r--r-- | generic/pg-user.el | 2 | ||||
-rw-r--r-- | isar/isar.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/generic/pg-user.el b/generic/pg-user.el index 9aba625f..0666b7b9 100644 --- a/generic/pg-user.el +++ b/generic/pg-user.el @@ -114,7 +114,7 @@ the proof script." (proof-maybe-save-point (let ((span (proof-last-goal-or-goalsave))) - (if (and span (not (eq (span-property span 'type) 'goalsave)) + (if (and span (not (eq (span-property span 'type) 'proof)) (< (span-end span) (proof-unprocessed-begin))) (progn (goto-char (span-start span)) diff --git a/isar/isar.el b/isar/isar.el index fb7f33f0..d9e7e7a2 100644 --- a/isar/isar.el +++ b/isar/isar.el @@ -367,7 +367,7 @@ proof-shell-retract-files-regexp." ((or (eq (span-property span 'type) 'comment) (proof-string-match isar-undo-skip-regexp str))) ;; finished goal: undo - ((eq (span-property span 'type) 'goalsave) + ((eq (span-property span 'type) 'proof) (setq ans isar-undo)) ;; open goal: skip and exit ((proof-string-match isar-goal-command-regexp str) |