diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2002-08-28 23:06:56 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2002-08-28 23:06:56 +0000 |
commit | 78bd1cffbc75c8e56fa3d53eb8bf5751cb38e63c (patch) | |
tree | 774243b586a7db219662b7d4b89d3006b9e13574 /generic/proof-shell.el | |
parent | 1cfaaa8c4e92ccc97234b44372eb3d8c365897fc (diff) |
Change proof-shell-theorem-dependency-regexp to use two pieces: names and dependencies
Diffstat (limited to 'generic/proof-shell.el')
-rw-r--r-- | generic/proof-shell.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/generic/proof-shell.el b/generic/proof-shell.el index 03c6f29d..ca4e33d7 100644 --- a/generic/proof-shell.el +++ b/generic/proof-shell.el @@ -1231,9 +1231,14 @@ proof-shell-eager-annotation-start, proof-shell-eager-annotation-end." ;; CASE theorem dependency: prover lists thms used in last proof ((and proof-shell-theorem-dependency-list-regexp (string-match proof-shell-theorem-dependency-list-regexp message)) - (setq proof-last-theorem-dependencies - (split-string (match-string 1 message) - proof-shell-theorem-dependency-list-split))) + (let ((names (match-string 1 message)) + (deps (match-string 2 message))) + (setq proof-last-theorem-dependencies + (cons + (split-string names + proof-shell-theorem-dependency-list-split) + (split-string deps + proof-shell-theorem-dependency-list-split))))) ;; CASE tracing output: output in the tracing buffer instead ;; of the response buffer |