Newsgroups: comp.lang.beta Path: news.daimi.aau.dk!news.uni-c.dk!sunic!pipex!howland.reston.ans.net!Germany.EU.net!EU.net!sun4nl!news.nic.surfnet.nl!tudelft.nl!dutllu4!nash From: nash@dutllu4.gmd.de (Naresh Sharma) Subject: Menu mode for xemacs Message-ID: Lines: 41 Sender: news@news.tudelft.nl (UseNet News System) Nntp-Posting-Host: dutllu4.lr.tudelft.nl Reply-To: Naresh.Sharma@LR.TUDelft.NL Organization: Faculty of Aerospace Engineering, T U Delft X-Newsreader: TIN [version 1.2 PL0] Date: Fri, 25 Nov 1994 07:00:05 GMT Hi Floks, Here is a small beta menu for the xemacs-19.** menubar. I hope that you like it. ------------------------------cut-----------------------cut----------------------- ;; --beta-xmenu.el-- ;; Menu-bar for beta-mode in xemacs 19.11 may work with earlier stuff ;; Copyright Naresh Sharma (c) 1994 ;; ;; Conditions of usage: GNU-GPL ;; No warranty whatsoever! (require 'beta-mode) (cond ((eq window-system 'x) (assoc "Beta" default-menubar) (add-menu-item '("Beta") "Beginning of Construct" 'beta-beginning-of-construct t) (add-menu-item '("Beta") "Close Construct" 'beta-close-pattern t) (add-menu-item '("Beta") "Open Pattern" 'beta-open-pattern t) (add-menu-item '("Beta") "Indent Line" 'beta-tab t) (add-menu-item '("Beta") "Indent Buffer" 'indent-buffer t) (add-menu-item '("Beta") "Remove Comment" 'beta-remove-comment t) (add-menu-item '("Beta") "Comment Out Region" 'beta-convert-region-to-comment t) (add-menu-item '("Beta") "Justify Comment" 'beta-comment-justify t) (add-menu-item '("Beta") "Prettyprint current buffer" 'beta-prettyprint t) (add-menu-item '("Beta") "Execute current buffer" 'beta-execute t) (add-menu-item '("Beta") "Check current buffer" 'beta-check t) (add-menu-item '("Beta") "Compile current buffer" 'beta-compile t) (add-menu-item '("Beta") "-------" 'nil nil) (add-menu-item '("Beta") "Delete Beta menu" '(delete-menu-item '("Beta")) t) )) (provide 'beta-xmenu) ------------------------------cut-----------------------cut----------------------- Naresh _______________________________________________________________________________ Naresh Sharma [N.Sharma@LR.TUDelft.NL] Herenpad 28 __|__ Faculty of Aerospace Engineering 2628 AG Delft \_______(_)_______/ T U Delft Optimists designed the aeroplane, ! ! ! Ph(Work) (+31)15-783992 pessimists designed the parachute! Ph(Home) (+31)15-569636 Plan:Design Airplanes on Linux the best OS on Earth! ------------------------------PGP-KEY-AVAILABLE--------------------------------