From 6eade6d25c1cfba2be191f01aed62495ef2eb082 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Mon, 1 May 2000 18:28:46 +0000 Subject: Added specific menu for LEGO. --- lego/lego.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) (limited to 'lego') 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) -- cgit v1.2.3