diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2000-05-01 18:28:46 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2000-05-01 18:28:46 +0000 |
| commit | 6eade6d25c1cfba2be191f01aed62495ef2eb082 (patch) | |
| tree | fc2ba19c86ff685a0fdaabbaf84b945e797dc0d7 /lego/lego.el | |
| parent | 6ed871166b532aaf2c1cfc1f321b746fb4a7ea19 (diff) | |
Added specific menu for LEGO.
Diffstat (limited to 'lego/lego.el')
| -rw-r--r-- | lego/lego.el | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/lego/lego.el b/lego/lego.el index 2f0dfd5b..24e1a63e 100644 --- a/lego/lego.el +++ b/lego/lego.el @@ -47,6 +47,13 @@ See the documentation of `easy-menu-define' " :type '(repeat sexp) :group 'lego) +(defcustom lego-menu-entries + '(["intros" lego-intros] + ["Intros" lego-Intros] + ["Refine" lego-Refine]) + "Entries for LEGO menu.") + + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Configuration of Generic Proof Package ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -276,12 +283,12 @@ Given is the first SPAN which needs to be undone." (insert "intros ")) (defun lego-Intros () - "List proof state." + "insert Intros." (interactive) (insert "Intros ")) (defun lego-Refine () - "List proof state." + "Insert Refine." (interactive) (insert "Refine ")) @@ -349,6 +356,8 @@ Checks the width in the `proof-goals-buffer'" (setq proof-comment-end "*)") (setq proof-assistant-home-page lego-www-home-page) + + (setq proof-assistant-menu-entries lego-menu-entries) (setq proof-mode-for-script 'lego-mode) |