cgit.sxemacs.org Git - packages/blob - xemacs-packages/ilisp/ilisp-menu.el

   1 ;;; -*- Mode: Emacs-Lisp -*-
   2
   3 ;;; ilisp-menu.el --
   4 ;;;
   5 ;;; This file is part of ILISP.
   6 ;;; Please refer to the file COPYING for copyrights and licensing
   7 ;;; information.
   8 ;;; Please refer to the file ACKNOWLEGDEMENTS for an (incomplete) list
   9 ;;; of present and past contributors.
  10 ;;;
  11 ;;; $Id: ilisp-menu.el,v 1.3 2001-07-02 09:40:47 youngs Exp $
  12
  13
  14 (cond ((or (string-match "XEmacs" emacs-version)
  15            (string-match "Lucid" emacs-version)))
  16       (t
  17
  18
  19        (require 'simple-menu)
  20        (setplist 'lisp-command-menu nil)
  21        (def-menu 'lisp-command-menu
  22            "Lisp"
  23          "These ILISP commands are available on the menu:"
  24          '(
  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)
  37            )
  38          )
  39
  40        (setplist 'documentation-lisp-command-menu nil)
  41        (def-menu 'documentation-lisp-command-menu
  42            "Lisp help"
  43          "These commands are available for examining Lisp structures:"
  44          '(
  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))
  51            )
  52          )))
  53
  54 (provide 'ilisp-menu)