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
|
;;; -*- 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.3 2001-07-02 09:40:47 youngs 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)
|
