Mercurial > hg > xemacs-beta

comparison lisp/ilisp/ilisp-menu.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents 376386a54a3c
children
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
1 ;;; -*- Mode: Emacs-Lisp -*- 1 ;;; -*- Mode: Emacs-Lisp -*-
2 2
3 ;;; ilisp-menu.el -- 3 ;;; ilisp-menu.el --
4 4
5 ;;; This file is part of ILISP. 5 ;;; This file is part of ILISP.
6 ;;; Version: 5.7 6 ;;; Version: 5.8
7 ;;; 7 ;;;
8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell 8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
9 ;;; 1993, 1994 Ivan Vasquez 9 ;;; 1993, 1994 Ivan Vasquez
10 ;;; 1994, 1995 Marco Antoniotti and Rick Busdiecker 10 ;;; 1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
11 ;;; 1996 Marco Antoniotti and Rick Campbell
11 ;;; 12 ;;;
12 ;;; Other authors' names for which this Copyright notice also holds 13 ;;; Other authors' names for which this Copyright notice also holds
13 ;;; may appear later in this file. 14 ;;; may appear later in this file.
14 ;;; 15 ;;;
15 ;;; Send mail to 'ilisp-request@lehman.com' to be included in the 16 ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
16 ;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP 17 ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
17 ;;; mailing list were bugs and improvements are discussed. 18 ;;; mailing list were bugs and improvements are discussed.
18 ;;; 19 ;;;
19 ;;; ILISP is freely redistributable under the terms found in the file 20 ;;; ILISP is freely redistributable under the terms found in the file
20 ;;; COPYING. 21 ;;; COPYING.
21 22
22 23
23 24
24 (require 'simple-menu) 25 (cond ((or (string-match "XEmacs" emacs-version)
25 (setplist 'lisp-command-menu nil) 26 (string-match "Lucid" emacs-version)))
26 (def-menu 'lisp-command-menu 27 (t
27 "Lisp"
28 "These ILISP commands are available on the menu:"
29 '(
30 ("Break Interupt current lisp."
31 (progn (switch-to-lisp t)
32 (interrupt-subjob-ilisp)))
33 ("Doc Menu of commands to get help on variables, etc."
34 documentation-lisp-command-menu)
35 ("Xpand macroexpand-lisp." macroexpand-lisp)
36 ("Eval Eval the surrounding defun." eval-defun-lisp)
37 ("1E&G Eval defun and goto Inferior LISP." eval-defun-and-go-lisp)
38 ("; Comment the region." comment-region-lisp)
39 (") find-unbalanced-lisp parens." find-unbalanced-lisp)
40 ("] close-all-lisp parens that are open." close-all-lisp)
41 ("Trace Traces the previous function symbol." trace-lisp)
42 )
43 )
44 28
45 (setplist 'documentation-lisp-command-menu nil) 29
46 (def-menu 'documentation-lisp-command-menu 30 (require 'simple-menu)
47 "Lisp help" 31 (setplist 'lisp-command-menu nil)
48 "These commands are available for examining Lisp structures:" 32 (def-menu 'lisp-command-menu
49 '( 33 "Lisp"
50 ("UDoc Get user's documentation string." documentation-lisp) 34 "These ILISP commands are available on the menu:"
51 ("Rglist Get the arglist for function." arglist-lisp) 35 '(
52 ("Insp Inspect the current sexp." inspect-lisp) 36 ("Break Interupt current lisp."
53 ("1Insp Prompts for something to inspect." (inspect-lisp -4)) 37 (progn (switch-to-lisp t)
54 ("Descr Describe the current sexp." describe-lisp) 38 (interrupt-subjob-ilisp)))
55 ("1Descr Prompts for something to describe." (describe-lisp -4)) 39 ("Doc Menu of commands to get help on variables, etc."
56 ) 40 documentation-lisp-command-menu)
57 ) 41 ("Xpand macroexpand-lisp." macroexpand-lisp)
42 ("Eval Eval the surrounding defun." eval-defun-lisp)
43 ("1E&G Eval defun and goto Inferior LISP." eval-defun-and-go-lisp)
44 ("; Comment the region." comment-region-lisp)
45 (") find-unbalanced-lisp parens." find-unbalanced-lisp)
46 ("] close-all-lisp parens that are open." close-all-lisp)
47 ("Trace Traces the previous function symbol." trace-lisp)
48 )
49 )
50
51 (setplist 'documentation-lisp-command-menu nil)
52 (def-menu 'documentation-lisp-command-menu
53 "Lisp help"
54 "These commands are available for examining Lisp structures:"
55 '(
56 ("UDoc Get user's documentation string." documentation-lisp)
57 ("Rglist Get the arglist for function." arglist-lisp)
58 ("Insp Inspect the current sexp." inspect-lisp)
59 ("1Insp Prompts for something to inspect." (inspect-lisp -4))
60 ("Descr Describe the current sexp." describe-lisp)
61 ("1Descr Prompts for something to describe." (describe-lisp -4))
62 )
63 )))
58 64
59 (provide 'ilisp-menu) 65 (provide 'ilisp-menu)