diff options
-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) |