1 ;;; -*- Mode: Emacs-Lisp -*-
5 ;;; This file is part of ILISP.
6 ;;; Please refer to the file COPYING for copyrights and licensing
8 ;;; Please refer to the file ACKNOWLEGDEMENTS for an (incomplete) list
9 ;;; of present and past contributors.
11 ;;; $Id: ilisp-menu.el,v 1.3 2001-07-02 09:40:47 youngs Exp $
14 (cond ((or (string-match "XEmacs" emacs-version)
15 (string-match "Lucid" emacs-version)))
19 (require 'simple-menu)
20 (setplist 'lisp-command-menu nil)
21 (def-menu 'lisp-command-menu
23 "These ILISP commands are available on the menu:"
25 ("Break Interupt current lisp."
26 (progn (switch-to-lisp t)
27 (interrupt-subjob-ilisp)))
28 ("Doc Menu of commands to get help on variables, etc."
29 documentation-lisp-command-menu)
30 ("Xpand macroexpand-lisp." macroexpand-lisp)
31 ("Eval Eval the surrounding defun." eval-defun-lisp)
32 ("1E&G Eval defun and goto Inferior LISP." eval-defun-and-go-lisp)
33 ("; Comment the region." comment-region-lisp)
34 (") find-unbalanced-lisp parens." find-unbalanced-lisp)
35 ("] close-all-lisp parens that are open." close-all-lisp)
36 ("Trace Traces the previous function symbol." trace-lisp)
40 (setplist 'documentation-lisp-command-menu nil)
41 (def-menu 'documentation-lisp-command-menu
43 "These commands are available for examining Lisp structures:"
45 ("UDoc Get user's documentation string." documentation-lisp)
46 ("Rglist Get the arglist for function." arglist-lisp)
47 ("Insp Inspect the current sexp." inspect-lisp)
48 ("1Insp Prompts for something to inspect." (inspect-lisp -4))
49 ("Descr Describe the current sexp." describe-lisp)
50 ("1Descr Prompts for something to describe." (describe-lisp -4))