diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2000-05-02 12:05:41 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2000-05-02 12:05:41 +0000 |
| commit | e6d5b8b8b19ae60f76f34563b0a8eca4fb89e6e2 (patch) | |
| tree | c067a35ef2d1b8d5f57162e9f621fbd40a3fbfd7 /plastic | |
| parent | dc7af5fb2c02eb960815e01741b9d2cb59c3844e (diff) | |
Added proof-assistant-keymap and commands for defining insert keys.
Diffstat (limited to 'plastic')
| -rw-r--r-- | plastic/plastic.el | 33 |
1 files changed, 13 insertions, 20 deletions
diff --git a/plastic/plastic.el b/plastic/plastic.el index 4d15bf05..6ffcd217 100644 --- a/plastic/plastic.el +++ b/plastic/plastic.el @@ -297,20 +297,13 @@ Given is the first SPAN which needs to be undone." ;; Commands specific to plastic ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defun plastic-intros () - "intros." - (interactive) - (insert (concat plastic-lit-string " intros "))) +(proof-defshortcut plastic-Intros + (concat plastic-lit-string " Intros ") ?I) +(proof-defshortcut plastic-intros + (concat plastic-lit-string " intros ") ?i) +(proof-defshortcut plastic-Refine + (concat plastic-lit-string " Refine ") ?i) -(defun plastic-Intros () - "List proof state." - (interactive) - (insert (concat plastic-lit-string " Intros "))) - -(defun plastic-Refine () - "List proof state." - (interactive) - (insert (concat plastic-lit-string " Refine "))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Plastic Indentation ;; @@ -436,20 +429,20 @@ Given is the first SPAN which needs to be undone." (proof-config-done) - (define-key (current-local-map) [(control c) ?i] 'plastic-intros) - (define-key (current-local-map) [(control c) ?I] 'plastic-Intros) - (define-key (current-local-map) [(control c) ?r] 'plastic-Refine) - ;; pcc macros etc - (define-key (current-local-map) [(control c) ?s] 'plastic-small-bar) - (define-key (current-local-map) [(control c) ?l] 'plastic-large-bar) - (define-key (current-local-map) [(control c) ?a] 'plastic-all-ctxt) + ;; da: I've changed this to use the new proof assitant specific keymap. + ;; (You can put these define keys at top level now) + (define-key proof-assistant-keymap ?s 'plastic-small-bar) + (define-key proof-assistant-keymap ?l 'plastic-large-bar) + (define-key proof-assistant-keymap ?a 'plastic-all-ctxt) ;; pcc over-ride the try-cmd fn (define-key (current-local-map) [(control c) (control t)] 'plastic-try-cmd) (define-key (current-local-map) [(control c) (control v)] 'plastic-minibuf) + + ;; FIXME da: these should probably be on the specific keymap too? (define-key (current-local-map) [(control c) (control o)] 'plastic-synchro) (define-key (current-local-map) [(control c) (control s)] 'plastic-show-shell) |