diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2002-08-29 00:10:00 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2002-08-29 00:10:00 +0000 |
| commit | 63a3cd72fb7c285fcc110981dfa5a77b808ff01d (patch) | |
| tree | 4ad225e943ccf2a2f873e8512a8247239962d0ce /plastic | |
| parent | adb409cc2fb915008cbd989017153c4f3965fdc7 (diff) | |
Fix calls on proof-defshortcut
Diffstat (limited to 'plastic')
| -rw-r--r-- | plastic/plastic.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/plastic/plastic.el b/plastic/plastic.el index 6ceb3975..5b033daf 100644 --- a/plastic/plastic.el +++ b/plastic/plastic.el @@ -290,12 +290,14 @@ Given is the first SPAN which needs to be undone." ;; Commands specific to plastic ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(proof-defshortcut plastic-Intros - (concat plastic-lit-string "Intros ") ?i) -(proof-defshortcut plastic-Refine - (concat plastic-lit-string "Refine ") ?r) -(proof-defshortcut plastic-ReturnAll - (concat plastic-lit-string "ReturnAll ") ?u) +;; da: FIXME added quoting/eval here because of macros. Probably better +;; to turn proof-defshortcut and co into functions. +`(proof-defshortcut plastic-Intros + ,(concat plastic-lit-string "Intros ") ?i) +`(proof-defshortcut plastic-Refine + ,(concat plastic-lit-string "Refine ") ?r) +`(proof-defshortcut plastic-ReturnAll + ,(concat plastic-lit-string "ReturnAll ") ?u) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |