1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
;;; -*- Mode: Emacs-Lisp -*-
;;; ilisp-menu.el --
;;; This file is part of ILISP.
;;; Version: 5.8
;;;
;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
;;; 1993, 1994 Ivan Vasquez
;;; 1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
;;; 1996 Marco Antoniotti and Rick Campbell
;;;
;;; Other authors' names for which this Copyright notice also holds
;;; may appear later in this file.
;;;
;;; Send mail to 'ilisp-request@naggum.no' to be included in the
;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
;;; mailing list were bugs and improvements are discussed.
;;;
;;; ILISP is freely redistributable under the terms found in the file
;;; COPYING.
(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)
|
