Path: news.daimi.aau.dk!datpete From: datpete-nospam@daimi.aau.dk (Peter Andersen) Newsgroups: comp.lang.beta Subject: ANNOUNCE: Emacs 19 menu for BETA mode Date: 31 Oct 1994 08:55:20 GMT Organization: DAIMI, Computer Science Dept. at Aarhus University Lines: 71 Message-ID: <392bdo$ckh@belfort.daimi.aau.dk> Reply-To: datpete@mjolner.dk (Peter Andersen) NNTP-Posting-Host: janine.daimi.aau.dk Below follows an Emacs-19 menu setup for beta-mode (that I just posted). It is our plan to integrate it to beta-mode in time, but it should be done so that beta-mode can be used for any version of Emacs, and we have not have time to do that yet. Sincerely, Peter Andersen, Mjolner Informatics ---- beta-menu19.el ---- ;; Menu for beta-mode in emacs 19 ;; This code is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY. No author or distributor ;; accepts responsibility to anyone for the consequences of using it ;; or for whether it serves any particular purpose or works at all, ;; unless he says so in writing. Refer to the GNU Emacs General Public ;; License for full details. ;; Everyone is granted permission to copy, modify and redistribute ;; this code, but only under the conditions described in the ;; GNU Emacs General Public License. A copy of this license is ;; supposed to have been given to you along with GNU Emacs so you ;; can know your rights and responsibilities. It should be in a ;; file named COPYING. Among other things, the copyright notice ;; and this notice must be preserved on all copies. (cond (window-system (require 'beta-mode) (define-key beta-mode-map [menu-bar] (make-sparse-keymap)) (define-key beta-mode-map [menu-bar beta] (cons "BETA" (make-sparse-keymap "BETA"))) (define-key beta-mode-map [menu-bar beta beta-beginning-of-construct] '("Beginning of Construct" . beta-beginning-of-construct)) (define-key beta-mode-map [menu-bar beta beta-close-pattern] '("Close Construct" . beta-close-pattern)) (define-key beta-mode-map [menu-bar beta beta-open-pattern] '("Open Pattern" . beta-open-pattern)) (define-key beta-mode-map [menu-bar beta beta-tab] '("Indent Line" . beta-tab)) (define-key beta-mode-map [menu-bar beta indent-buffer] '("Indent Buffer" . indent-buffer)) (define-key beta-mode-map [menu-bar beta beta-remove-comment] '("Remove Comment" . beta-remove-comment)) (define-key beta-mode-map [menu-bar beta beta-convert-region-to-comment] '("Comment Out Region" . beta-convert-region-to-comment)) (define-key beta-mode-map [menu-bar beta beta-comment-justify] '("Justify Comment" . beta-comment-justify)) (define-key beta-mode-map [menu-bar beta beta-prettyprint] '("Prettyprint current buffer" . beta-prettyprint)) (define-key beta-mode-map [menu-bar beta beta-execute] '("Execute current buffer" . beta-execute)) (define-key beta-mode-map [menu-bar beta beta-check] '("Check current buffer" . beta-check)) (define-key beta-mode-map [menu-bar beta beta-compile] '("Compile current buffer" . beta-compile)) )) (provide 'beta-menu19)