;;; -*- Mode: Emacs-Lisp -*-
;;; ilisp-menu.el --
;;;
;;; This file is part of ILISP.
;;; Please refer to the file COPYING for copyrights and licensing
;;; information.
;;; Please refer to the file ACKNOWLEGDEMENTS for an (incomplete) list
;;; of present and past contributors.
;;;
;;; $Id: ilisp-menu.el,v 1.2 2001/05/12 22:10:53 marcoxa Exp $
(cond ((or (string-match "XEmacs" emacs-version)
(string-match "Lucid" emacs-version)))
(t
(require 'simple-menu)
(setplist 'lisp-command-menu nil)
(def-menu 'lisp-command-menu
"Lisp"
"These ILISP commands are available on the menu:"
'(
("Break Interupt current lisp."
(progn (switch-to-lisp t)
(interrupt-subjob-ilisp)))
("Doc Menu of commands to get help on variables, etc."
documentation-lisp-command-menu)
("Xpand macroexpand-lisp." macroexpand-lisp)
("Eval Eval the surrounding defun." eval-defun-lisp)
("1E&G Eval defun and goto Inferior LISP." eval-defun-and-go-lisp)
("; Comment the region." comment-region-lisp)
(") find-unbalanced-lisp parens." find-unbalanced-lisp)
("] close-all-lisp parens that are open." close-all-lisp)
("Trace Traces the previous function symbol." trace-lisp)
)
)
(setplist 'documentation-lisp-command-menu nil)
(def-menu 'documentation-lisp-command-menu
"Lisp help"
"These commands are available for examining Lisp structures:"
'(
("UDoc Get user's documentation string." documentation-lisp)
("Rglist Get the arglist for function." arglist-lisp)
("Insp Inspect the current sexp." inspect-lisp)
("1Insp Prompts for something to inspect." (inspect-lisp -4))
("Descr Describe the current sexp." describe-lisp)
("1Descr Prompts for something to describe." (describe-lisp -4))
)
)))
(provide 'ilisp-menu)