|
0
|
1 ;;; -*- Mode: Emacs-Lisp -*-
|
|
|
2
|
|
|
3 ;;; ilisp-key.el --
|
|
|
4
|
|
|
5 ;;; This file is part of ILISP.
|
|
4
|
6 ;;; Version: 5.8
|
|
0
|
7 ;;;
|
|
|
8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
|
|
|
9 ;;; 1993, 1994 Ivan Vasquez
|
|
4
|
10 ;;; 1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
|
|
|
11 ;;; 1996 Marco Antoniotti and Rick Campbell
|
|
0
|
12 ;;;
|
|
|
13 ;;; Other authors' names for which this Copyright notice also holds
|
|
|
14 ;;; may appear later in this file.
|
|
|
15 ;;;
|
|
4
|
16 ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
|
|
|
17 ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
|
|
0
|
18 ;;; mailing list were bugs and improvements are discussed.
|
|
|
19 ;;;
|
|
|
20 ;;; ILISP is freely redistributable under the terms found in the file
|
|
|
21 ;;; COPYING.
|
|
|
22
|
|
|
23
|
|
|
24
|
|
|
25 ;;;
|
|
|
26 ;;; ILISP keybinding definitions.
|
|
|
27 ;;;
|
|
|
28
|
|
|
29
|
|
|
30 ;;; ilisp-where-is --
|
|
|
31 ;;; New version provided by yusuf@SPD-13.ils.nwu.edu (Yusuf Pisan)
|
|
|
32 ;;; Note: this used to be in 'ilisp-cpat'. Its definition did not make
|
|
|
33 ;;; much sense. Yusuf noted this and I decided to move it in
|
|
|
34 ;;; this file (where I think is more approriate).
|
|
|
35 ;;; 11/24/94: Marco Antoniotti
|
|
|
36
|
|
|
37 (defun ilisp-where-is (command)
|
|
|
38 (let ((cmd (where-is-internal command nil t)))
|
|
|
39 (if cmd (key-description cmd))))
|
|
|
40
|
|
|
41
|
|
|
42 ;;;
|
|
|
43 ;;;%Bindings
|
|
|
44 (defun ilisp-defkey (keymap key command)
|
|
|
45 "Define KEYMAP ilisp-prefix+KEY as command."
|
|
|
46 (let ((prefix-map (lookup-key keymap ilisp-prefix)))
|
|
|
47 (if (not (keymapp prefix-map))
|
|
|
48 (setq prefix-map
|
|
|
49 (define-key keymap ilisp-prefix (make-sparse-keymap))))
|
|
|
50 (define-key prefix-map key command)))
|
|
|
51
|
|
|
52 (defun defkey-ilisp (key command)
|
|
|
53 "Define KEY as COMMAND in ilisp-mode-map and lisp-mode-map"
|
|
|
54 (if (not ilisp-mode-map) (ilisp-bindings))
|
|
|
55 (define-key ilisp-mode-map key command)
|
|
|
56 (define-key lisp-mode-map key command))
|
|
|
57
|
|
|
58 ;;;
|
|
|
59 (defun lisp-bindings (keymap &optional inferior-p)
|
|
|
60 "Set up the bindings for interacting with an inferior LISP in
|
|
|
61 KEYMAP."
|
|
|
62 (if inferior-p
|
|
|
63 (progn (define-key keymap "\C-m" 'return-ilisp)
|
|
|
64 (define-key keymap "\C-a" 'bol-ilisp)
|
|
|
65 (define-key keymap "\C-c\C-c" 'interrupt-subjob-ilisp)
|
|
|
66 (define-key keymap "\C-d" 'delete-char-or-pop-ilisp)
|
|
|
67 (ilisp-defkey keymap "#" 'raw-keys-ilisp))
|
|
|
68 (ilisp-defkey keymap "\C-c" 'compile-defun-and-go-lisp)
|
|
|
69 (define-key keymap "\C-m" 'newline-and-indent-lisp))
|
|
|
70
|
|
|
71 (define-key keymap "]" 'close-all-lisp)
|
|
|
72 (define-key keymap "\M-q" 'reindent-lisp)
|
|
|
73 (define-key keymap "\C-]" 'close-and-send-lisp)
|
|
|
74 (define-key keymap "\t" 'indent-line-ilisp)
|
|
|
75 (define-key keymap "\n" 'newline-and-indent-lisp)
|
|
|
76 (define-key keymap "\M-\C-q" 'indent-sexp-ilisp)
|
|
|
77 (ilisp-defkey keymap ";" 'comment-region-lisp)
|
|
|
78 (ilisp-defkey keymap ")" 'find-unbalanced-lisp)
|
|
|
79 (define-key keymap "\M-\C-a" 'beginning-of-defun-lisp)
|
|
|
80 (define-key keymap "\M-\C-e" 'end-of-defun-lisp)
|
|
|
81 (define-key keymap "\C-\M-r" 'reposition-window-lisp)
|
|
|
82 (ilisp-defkey keymap "i" 'describe-lisp)
|
|
|
83 (ilisp-defkey keymap "I" 'inspect-lisp)
|
|
|
84 (ilisp-defkey keymap "a" 'arglist-lisp)
|
|
|
85 (ilisp-defkey keymap "d" 'documentation-lisp)
|
|
|
86 (ilisp-defkey keymap "m" 'macroexpand-1-lisp)
|
|
|
87 (ilisp-defkey keymap "M" 'macroexpand-lisp)
|
|
|
88 (define-key keymap "\M-," 'next-definition-lisp)
|
|
|
89 (define-key keymap "\M-." 'edit-definitions-lisp)
|
|
|
90 (define-key keymap "\M-?" 'search-lisp)
|
|
|
91 (define-key keymap "\M-\"" 'replace-lisp)
|
|
|
92 (ilisp-defkey keymap "^" 'edit-callers-lisp)
|
|
|
93 (define-key keymap "\M-`" 'next-caller-lisp)
|
|
|
94 (define-key keymap "\M-\t" 'complete-lisp)
|
|
|
95 (define-key keymap "\M-\C-m" 'complete)
|
|
|
96 (ilisp-defkey keymap "r" 'eval-region-lisp)
|
|
|
97 (define-key keymap "\M-\C-x" 'eval-defun-lisp) ; Gnu convention
|
|
|
98 (ilisp-defkey keymap "e" 'eval-defun-lisp)
|
|
|
99 (ilisp-defkey keymap "n" 'eval-next-sexp-lisp)
|
|
|
100 (ilisp-defkey keymap "p" 'package-lisp)
|
|
|
101 (ilisp-defkey keymap "P" 'set-package-lisp)
|
|
|
102 (ilisp-defkey keymap "w" 'compile-region-lisp)
|
|
|
103 (ilisp-defkey keymap "c" 'compile-defun-lisp)
|
|
|
104 (ilisp-defkey keymap "\C-r" 'eval-region-and-go-lisp)
|
|
|
105 (ilisp-defkey keymap "\C-e" 'eval-defun-and-go-lisp)
|
|
|
106 (ilisp-defkey keymap "\C-n" 'eval-next-sexp-and-go-lisp)
|
|
|
107 (ilisp-defkey keymap "\C-w" 'compile-region-and-go-lisp)
|
|
|
108 (ilisp-defkey keymap "t" 'trace-defun-lisp)
|
|
|
109 (ilisp-defkey keymap "!" 'default-directory-lisp)
|
|
|
110 (ilisp-defkey keymap " " 'mark-change-lisp)
|
|
|
111 (let ((ilisp-prefix (concat ilisp-prefix "*")))
|
|
|
112 (ilisp-defkey keymap "l" 'list-changes-lisp)
|
|
|
113 (ilisp-defkey keymap "e" 'eval-changes-lisp)
|
|
|
114 (ilisp-defkey keymap "c" 'compile-changes-lisp)
|
|
|
115 (ilisp-defkey keymap "0" 'clear-changes-lisp))
|
|
|
116 (ilisp-defkey keymap "b" 'switch-to-lisp)
|
|
|
117 (ilisp-defkey keymap "y" 'call-defun-lisp)
|
|
|
118 (ilisp-defkey keymap "z" 'reset-ilisp)
|
|
|
119 (ilisp-defkey keymap "g" 'abort-commands-lisp)
|
|
|
120 (ilisp-defkey keymap "s" 'status-lisp)
|
|
|
121 (ilisp-defkey keymap "S" 'select-ilisp)
|
|
|
122 (define-key keymap "\C-x\C-f" 'find-file-lisp)
|
|
|
123 (ilisp-defkey keymap "l" 'load-file-lisp)
|
|
|
124 (ilisp-defkey keymap "k" 'compile-file-lisp)
|
|
|
125 (ilisp-defkey keymap "A" 'fi:clman-apropos)
|
|
|
126 (ilisp-defkey keymap "D" 'fi:clman))
|
|
|
127
|
|
|
128
|
|
|
129
|
|
|
130 ;;
|
|
|
131 (defun ilisp-lispm-bindings ()
|
|
|
132 "Setup additional Lisp Machine-like bindings for some ilisp commands"
|
|
|
133 (interactive)
|
|
|
134 ;; Note: Changed the 'ilisp-emacs-version-id' to
|
|
|
135 ;; '+ilisp-emacs-version-id+' and the 'gnu-*' to 'fsf-*'.
|
|
|
136 ;; 25/11/94 Marco Antoniotti
|
|
|
137 (cond ((eq +ilisp-emacs-version-id+ 'fsf-18))
|
|
|
138 ((eq +ilisp-emacs-version-id+ 'fsf-19)
|
|
|
139 (defkey-ilisp (read "[?\\S-\\C-a]") 'arglist-lisp)
|
|
|
140 (defkey-ilisp (read "[?\\S-\\C-c]") 'compile-defun-lisp)
|
|
|
141 (defkey-ilisp (read "[?\\S-\\C-d]") 'documentation-lisp)
|
|
|
142 (defkey-ilisp (read "[?\\S-\\C-e]") 'eval-defun-lisp)
|
|
|
143 (defkey-ilisp (read "[?\\S-\\C-m]") 'macroexpand-1-lisp)
|
|
|
144 (defkey-ilisp (read "[?\\M-M]") 'macroexpand-lisp))
|
|
|
145 (t
|
|
|
146 (defkey-ilisp '(control A) 'arglist-lisp)
|
|
|
147 (defkey-ilisp '(control C) 'compile-defun-lisp)
|
|
|
148 (defkey-ilisp '(control D) 'documentation-lisp)
|
|
|
149 (defkey-ilisp '(control E) 'eval-defun-lisp)
|
|
|
150 (defkey-ilisp '(control M) 'macroexpand-1-lisp)
|
|
|
151 (defkey-ilisp '(meta M) 'macroexpand-lisp))))
|
|
|
152
|
|
|
153 ;; Unfortunately, the read kludges are needed for this function to work
|
|
|
154 ;; for GNU emacs 19 when it was compiled by Lucid.
|
|
|
155
|
|
|
156
|
|
|
157
|
|
|
158
|
|
|
159 ;;;
|
|
|
160 (defun ilisp-bindings ()
|
|
|
161 "Set up the key bindings for LISP and ILISP buffers."
|
|
|
162 (if (fboundp 'set-keymap-parent)
|
|
|
163 (progn
|
|
|
164 (setq ilisp-mode-map (make-sparse-keymap))
|
|
|
165 (set-keymap-parent ilisp-mode-map comint-mode-map))
|
|
|
166 (setq ilisp-mode-map (copy-keymap comint-mode-map)))
|
|
|
167
|
|
|
168 ;; Remove stop and quit subjob from comint
|
|
|
169 (define-key ilisp-mode-map "\C-c\C-z" nil)
|
|
|
170 (define-key ilisp-mode-map "\C-c\C-\\" nil)
|
|
|
171 (if (fboundp 'lisp-mode-commands)
|
|
|
172 (lisp-mode-commands ilisp-mode-map))
|
|
|
173 (lisp-bindings ilisp-mode-map t)
|
|
|
174 (if (boundp 'lisp-mode-map)
|
|
|
175 (lisp-bindings lisp-mode-map))
|
|
|
176 (if (boundp 'scheme-mode-map)
|
|
|
177 (lisp-bindings scheme-mode-map))
|
|
|
178 (ilisp-defkey emacs-lisp-mode-map ";" 'comment-region-lisp)
|
|
|
179
|
|
|
180 (ilisp-defkey global-map "\C-t" 'trace-defun-lisp-break)
|
|
|
181 (ilisp-defkey global-map "b" 'switch-to-lisp)
|
|
|
182
|
|
|
183 ;; Globally defined output-control commands.
|
|
|
184 (ilisp-defkey global-map "1" 'ilisp-bury-output)
|
|
|
185 (ilisp-defkey global-map "v" 'ilisp-scroll-output)
|
|
|
186 (ilisp-defkey global-map "G" 'ilisp-grow-output)
|
|
|
187
|
|
|
188 (if (not (boundp 'fi:clman-mode-map))
|
|
|
189 (setq fi:clman-mode-map (make-sparse-keymap)))
|
|
|
190 (ilisp-defkey fi:clman-mode-map "D" 'fi:clman)
|
|
|
191 (ilisp-defkey fi:clman-mode-map "A" 'fi:clman-apropos))
|
