/[cmucl]/src/hemlock/bindings.lisp
ViewVC logotype

Contents of /src/hemlock/bindings.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6 - (show annotations)
Tue Feb 25 15:18:33 2003 UTC (11 years, 1 month ago) by emarsden
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, double-double-array-base, post-merge-intl-branch, release-19b-pre1, release-19b-pre2, merged-unicode-utf16-extfmt-2009-06-11, double-double-init-sparc-2, unicode-utf16-extfmt-2009-03-27, double-double-base, snapshot-2007-09, snapshot-2007-08, snapshot-2008-08, snapshot-2008-09, ppc_gencgc_snap_2006-01-06, sse2-packed-2008-11-12, snapshot-2008-05, snapshot-2008-06, snapshot-2008-07, snapshot-2007-05, snapshot-2008-01, snapshot-2008-02, snapshot-2008-03, intl-branch-working-2010-02-19-1000, snapshot-2006-11, snapshot-2006-10, double-double-init-sparc, snapshot-2006-12, unicode-string-buffer-impl-base, sse2-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, sse2-packed-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, snapshot-2003-10, snapshot-2004-10, release-18e-base, release-19f-pre1, snapshot-2008-12, snapshot-2008-11, intl-2-branch-base, snapshot-2004-08, snapshot-2004-09, remove_negative_zero_not_zero, snapshot-2007-01, snapshot-2007-02, snapshot-2004-05, snapshot-2004-06, snapshot-2004-07, release-19e, release-19d, GIT-CONVERSION, double-double-init-ppc, release-19c, dynamic-extent-base, unicode-utf16-sync-2008-12, release-19c-base, cross-sol-x86-merged, label-2009-03-16, release-19f-base, merge-sse2-packed, mod-arith-base, sparc_gencgc_merge, merge-with-19f, snapshot-2004-12, snapshot-2004-11, intl-branch-working-2010-02-11-1000, unicode-snapshot-2009-05, unicode-snapshot-2009-06, amd64-merge-start, ppc_gencgc_snap_2005-12-17, double-double-init-%make-sparc, unicode-utf16-sync-2008-07, release-18e-pre2, unicode-utf16-sync-2008-09, unicode-utf16-extfmts-sync-2008-12, prm-before-macosx-merge-tag, cold-pcl-base, RELEASE_20b, snapshot-2008-04, snapshot-2003-11, snapshot-2005-07, unicode-utf16-sync-label-2009-03-16, RELEASE_19f, snapshot-2007-03, release-20a-base, cross-sol-x86-base, unicode-utf16-char-support-2009-03-26, unicode-utf16-char-support-2009-03-25, release-19a-base, unicode-utf16-extfmts-pre-sync-2008-11, snapshot-2008-10, sparc_gencgc, snapshot-2007-04, snapshot-2010-12, snapshot-2010-11, unicode-utf16-sync-2008-11, snapshot-2007-07, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2007-06, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, snapshot-2003-12, release-19a-pre1, release-19a-pre3, release-19a-pre2, pre-merge-intl-branch, release-19a, double-double-array-checkpoint, double-double-reader-checkpoint-1, release-19d-base, release-19e-pre1, double-double-irrat-end, release-19e-pre2, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, release-19d-pre2, release-19d-pre1, snapshot-2010-08, release-18e, double-double-init-checkpoint-1, double-double-reader-base, label-2009-03-25, snapshot-2005-03, release-19b-base, cross-sol-x86-2010-12-20, double-double-init-x86, sse2-checkpoint-2008-10-01, intl-branch-2010-03-18-1300, snapshot-2005-11, double-double-sparc-checkpoint-1, snapshot-2004-04, sse2-merge-with-2008-11, sse2-merge-with-2008-10, snapshot-2005-10, RELEASE_20a, snapshot-2005-12, release-20a-pre1, snapshot-2005-01, snapshot-2009-11, snapshot-2009-12, unicode-utf16-extfmt-2009-06-11, portable-clx-import-2009-06-16, unicode-utf16-string-support, release-19c-pre1, cross-sparc-branch-base, release-19e-base, intl-branch-base, double-double-irrat-start, snapshot-2005-06, snapshot-2005-05, snapshot-2005-04, ppc_gencgc_snap_2005-05-14, snapshot-2005-02, unicode-utf16-base, portable-clx-base, snapshot-2005-09, snapshot-2005-08, lisp-executable-base, snapshot-2009-08, snapshot-2007-12, snapshot-2007-10, snapshot-2007-11, snapshot-2009-02, snapshot-2009-01, snapshot-2009-07, snapshot-2009-05, snapshot-2009-04, snapshot-2006-02, snapshot-2006-03, release-18e-pre1, snapshot-2006-01, snapshot-2006-06, snapshot-2006-07, snapshot-2006-04, snapshot-2006-05, pre-telent-clx, snapshot-2006-08, snapshot-2006-09, HEAD
Branch point for: release-19b-branch, double-double-reader-branch, double-double-array-branch, mod-arith-branch, RELEASE-19F-BRANCH, portable-clx-branch, sparc_gencgc_branch, cross-sparc-branch, RELEASE-20B-BRANCH, unicode-string-buffer-branch, sparc-tramp-assem-branch, dynamic-extent, release-19d-branch, ppc_gencgc_branch, sse2-packed-branch, lisp-executable, RELEASE-20A-BRANCH, amd64-dd-branch, double-double-branch, unicode-string-buffer-impl-branch, intl-branch, release-18e-branch, cold-pcl, unicode-utf16-branch, cross-sol-x86-branch, release-19e-branch, sse2-branch, release-19a-branch, release-19c-branch, intl-2-branch, unicode-utf16-extfmt-branch
Changes since 1.5: +2 -1 lines
From Luke Gorrie:

   - add support for copy-word during isearch (bound to C-w as per GNU Emacs)
   - add dabbrev support (bound to M-/)
1 ;;; -*- Log: hemlock.log; Package: Hemlock -*-
2 ;;;
3 ;;; **********************************************************************
4 ;;; This code was written as part of the CMU Common Lisp project at
5 ;;; Carnegie Mellon University, and has been placed in the public domain.
6 ;;;
7 (ext:file-comment
8 "$Header: /tiger/var/lib/cvsroots/cmucl/src/hemlock/bindings.lisp,v 1.6 2003/02/25 15:18:33 emarsden Rel $")
9 ;;;
10 ;;; **********************************************************************
11 ;;;
12 ;;; Some bindings:
13 ;;;
14
15 (in-package "HEMLOCK")
16
17
18
19 ;;;; Default key translations:
20
21 ;;; This page defines prefix characters that set specified modifier bits on
22 ;;; the next character typed.
23 ;;;
24 (setf (key-translation #k"escape") '(:bits :meta))
25 (setf (key-translation #k"control-z") '(:bits :control :meta))
26 (setf (key-translation #k"control-Z") '(:bits :control :meta))
27 (setf (key-translation #k"control-^") '(:bits :control))
28 (setf (key-translation #k"control-c") '(:bits :hyper))
29 (setf (key-translation #k"control-C") '(:bits :hyper))
30
31
32
33 ;;;; Most every binding.
34
35 ;;; Self insert letters:
36 ;;;
37 (do-alpha-key-events (key-event :both)
38 (bind-key "Self Insert" key-event))
39
40 (bind-key "Beginning of Line" #k"control-a")
41 (bind-key "Delete Next Character" #k"control-d")
42 (bind-key "End of Line" #k"control-e")
43 (bind-key "Forward Character" #k"control-f")
44 (bind-key "Forward Character" #k"rightarrow")
45 (bind-key "Backward Character" #k"control-b")
46 (bind-key "Backward Character" #k"leftarrow")
47 (bind-key "Kill Line" #k"control-k")
48 (bind-key "Refresh Screen" #k"control-l")
49 (bind-key "Next Line" #k"control-n")
50 (bind-key "Next Line" #k"downarrow")
51 (bind-key "Previous Line" #k"control-p")
52 (bind-key "Previous Line" #k"uparrow")
53 (bind-key "Query Replace" #k"meta-%")
54 (bind-key "Reverse Incremental Search" #k"control-r")
55 (bind-key "Incremental Search" #k"control-s")
56 (bind-key "Forward Search" #k"meta-s")
57 (bind-key "Reverse Search" #k"meta-r")
58 (bind-key "Transpose Characters" #k"control-t")
59 (bind-key "Universal Argument" #k"control-u")
60 (bind-key "Scroll Window Down" #k"control-v")
61 (bind-key "Scroll Window Up" #k"meta-v")
62 (bind-key "Scroll Next Window Down" #k"control-meta-v")
63 (bind-key "Scroll Next Window Up" #k"control-meta-V")
64
65 (bind-key "Help" #k"home")
66 (bind-key "Help" #k"control-_")
67 (bind-key "Describe Key" #k"meta-?")
68
69
70 (bind-key "Here to Top of Window" #k"leftdown")
71 (bind-key "Do Nothing" #k"leftup")
72 (bind-key "Top Line to Here" #k"rightdown")
73 (bind-key "Do Nothing" #k"rightup")
74 (bind-key "Point to Here" #k"middledown")
75 (bind-key "Point to Here" #k"super-leftdown")
76 (bind-key "Generic Pointer Up" #k"middleup")
77 (bind-key "Generic Pointer Up" #k"super-leftup")
78 (bind-key "Do Nothing" #k"super-rightup")
79 (bind-key "Insert Kill Buffer" #k"super-rightdown")
80
81
82 (bind-key "Insert File" #k"control-x control-r")
83 (bind-key "Save File" #k"control-x control-s")
84 (bind-key "Visit File" #k"control-x control-v")
85 (bind-key "Write File" #k"control-x control-w")
86 (bind-key "Find File" #k"control-x control-f")
87 (bind-key "Backup File" #k"control-x meta-b")
88 (bind-key "Save All Files" #k"control-x control-m")
89 (bind-key "Save All Files" #k"control-x return")
90 (bind-key "Save All Files and Exit" #k"control-x meta-z")
91
92 (bind-key "List Buffers" #k"control-x control-b")
93 (bind-key "Buffer Not Modified" #k"meta-~")
94 (bind-key "Check Buffer Modified" #k"control-x ~")
95 (bind-key "Select Buffer" #k"control-x b")
96 (bind-key "Select Previous Buffer" #k"control-meta-l")
97 (bind-key "Circulate Buffers" #k"control-meta-L")
98 (bind-key "Create Buffer" #k"control-x meta-b")
99 (bind-key "Kill Buffer" #k"control-x k")
100 (bind-key "Select Random Typeout Buffer" #k"hyper-t")
101
102 (bind-key "Next Window" #k"control-x n")
103 (bind-key "Next Window" #k"control-x o")
104 (bind-key "Previous Window" #k"control-x p")
105 (bind-key "Split Window" #k"control-x 2")
106 (bind-key "New Window" #k"control-x control-n")
107 (bind-key "Delete Window" #k"control-x d")
108 (bind-key "Delete Next Window" #k"control-x 1")
109 (bind-key "Line to Top of Window" #k"meta-!")
110 (bind-key "Line to Center of Window" #k"meta-#")
111 (bind-key "Top of Window" #k"meta-,")
112 (bind-key "Bottom of Window" #k"meta-.")
113
114 (bind-key "Exit Hemlock" #k"control-x control-z")
115 (bind-key "Exit Recursive Edit" #k"control-meta-z")
116 (bind-key "Abort Recursive Edit" #k"control-]")
117
118 (bind-key "Delete Previous Character" #k"delete")
119 (bind-key "Delete Previous Character" #k"backspace")
120 (bind-key "Kill Next Word" #k"meta-d")
121 (bind-key "Kill Previous Word" #k"meta-delete")
122 (bind-key "Kill Previous Word" #k"meta-backspace")
123 (bind-key "Exchange Point and Mark" #k"control-x control-x")
124 (bind-key "Mark Whole Buffer" #k"control-x h")
125 (bind-key "Set/Pop Mark" #k"control-@")
126 (bind-key "Set/Pop Mark" #k"control-space")
127 (bind-key "Pop and Goto Mark" #k"meta-space")
128 (bind-key "Pop and Goto Mark" #k"meta-@")
129 (bind-key "Pop Mark" #k"control-meta-space") ;#k"control-meta-@" = "Mark Form".
130 (bind-key "Kill Region" #k"control-w")
131 (bind-key "Save Region" #k"meta-w")
132 (bind-key "Un-Kill" #k"control-y")
133 (bind-key "Rotate Kill Ring" #k"meta-y")
134
135 (bind-key "Forward Word" #k"meta-f")
136 (bind-key "Backward Word" #k"meta-b")
137
138 (bind-key "Forward Paragraph" #k"meta-]")
139 (bind-key "Forward Sentence" #k"meta-e")
140 (bind-key "Backward Paragraph" #k"meta-[")
141 (bind-key "Backward Sentence" #k"meta-a")
142
143 (bind-key "Mark Paragraph" #k"meta-h")
144
145 (bind-key "Forward Kill Sentence" #k"meta-k")
146 (bind-key "Backward Kill Sentence" #k"control-x delete")
147 (bind-key "Backward Kill Sentence" #k"control-x backspace")
148
149 (bind-key "Beginning of Buffer" #k"meta-\<")
150 (bind-key "End of Buffer" #k"meta-\>")
151 (bind-key "Mark to Beginning of Buffer" #k"control-\<")
152 (bind-key "Mark to End of Buffer" #k"control-\>")
153
154 (bind-key "Extended Command" #k"meta-x")
155
156 (bind-key "Uppercase Word" #k"meta-u")
157 (bind-key "Lowercase Word" #k"meta-l")
158 (bind-key "Capitalize Word" #k"meta-c")
159
160 (bind-key "Previous Page" #k"control-x [")
161 (bind-key "Next Page" #k"control-x ]")
162 (bind-key "Mark Page" #k"control-x control-p")
163 (bind-key "Count Lines Page" #k"control-x l")
164
165
166
167 ;;;; Argument Digit and Negative Argument.
168
169 (bind-key "Negative Argument" #k"meta-\-")
170 (bind-key "Argument Digit" #k"meta-0")
171 (bind-key "Argument Digit" #k"meta-1")
172 (bind-key "Argument Digit" #k"meta-2")
173 (bind-key "Argument Digit" #k"meta-3")
174 (bind-key "Argument Digit" #k"meta-4")
175 (bind-key "Argument Digit" #k"meta-5")
176 (bind-key "Argument Digit" #k"meta-6")
177 (bind-key "Argument Digit" #k"meta-7")
178 (bind-key "Argument Digit" #k"meta-8")
179 (bind-key "Argument Digit" #k"meta-9")
180 (bind-key "Negative Argument" #k"control-\-")
181 (bind-key "Argument Digit" #k"control-0")
182 (bind-key "Argument Digit" #k"control-1")
183 (bind-key "Argument Digit" #k"control-2")
184 (bind-key "Argument Digit" #k"control-3")
185 (bind-key "Argument Digit" #k"control-4")
186 (bind-key "Argument Digit" #k"control-5")
187 (bind-key "Argument Digit" #k"control-6")
188 (bind-key "Argument Digit" #k"control-7")
189 (bind-key "Argument Digit" #k"control-8")
190 (bind-key "Argument Digit" #k"control-9")
191 (bind-key "Negative Argument" #k"control-meta-\-")
192 (bind-key "Argument Digit" #k"control-meta-0")
193 (bind-key "Argument Digit" #k"control-meta-1")
194 (bind-key "Argument Digit" #k"control-meta-2")
195 (bind-key "Argument Digit" #k"control-meta-3")
196 (bind-key "Argument Digit" #k"control-meta-4")
197 (bind-key "Argument Digit" #k"control-meta-5")
198 (bind-key "Argument Digit" #k"control-meta-6")
199 (bind-key "Argument Digit" #k"control-meta-7")
200 (bind-key "Argument Digit" #k"control-meta-8")
201 (bind-key "Argument Digit" #k"control-meta-9")
202
203
204 ;;;; Self Insert and Quoted Insert.
205
206 (bind-key "Quoted Insert" #k"control-q")
207
208 (bind-key "Self Insert" #k"space")
209 (bind-key "Self Insert" #k"!")
210 (bind-key "Self Insert" #k"@")
211 (bind-key "Self Insert" #k"#")
212 (bind-key "Self Insert" #k"$")
213 (bind-key "Self Insert" #k"%")
214 (bind-key "Self Insert" #k"^")
215 (bind-key "Self Insert" #k"&")
216 (bind-key "Self Insert" #k"*")
217 (bind-key "Self Insert" #k"(")
218 (bind-key "Self Insert" #k")")
219 (bind-key "Self Insert" #k"_")
220 (bind-key "Self Insert" #k"+")
221 (bind-key "Self Insert" #k"~")
222 (bind-key "Self Insert" #k"1")
223 (bind-key "Self Insert" #k"2")
224 (bind-key "Self Insert" #k"3")
225 (bind-key "Self Insert" #k"4")
226 (bind-key "Self Insert" #k"5")
227 (bind-key "Self Insert" #k"6")
228 (bind-key "Self Insert" #k"7")
229 (bind-key "Self Insert" #k"8")
230 (bind-key "Self Insert" #k"9")
231 (bind-key "Self Insert" #k"0")
232 (bind-key "Self Insert" #k"[")
233 (bind-key "Self Insert" #k"]")
234 (bind-key "Self Insert" #k"\\")
235 (bind-key "Self Insert" #k"|")
236 (bind-key "Self Insert" #k":")
237 (bind-key "Self Insert" #k";")
238 (bind-key "Self Insert" #k"\"")
239 (bind-key "Self Insert" #k"'")
240 (bind-key "Self Insert" #k"\-")
241 (bind-key "Self Insert" #k"=")
242 (bind-key "Self Insert" #k"`")
243 (bind-key "Self Insert" #k"\<")
244 (bind-key "Self Insert" #k"\>")
245 (bind-key "Self Insert" #k",")
246 (bind-key "Self Insert" #k".")
247 (bind-key "Self Insert" #k"?")
248 (bind-key "Self Insert" #k"/")
249 (bind-key "Self Insert" #k"{")
250 (bind-key "Self Insert" #k"}")
251
252
253
254 ;;;; Echo Area.
255
256 ;;; Basic echo-area commands.
257 ;;;
258 (bind-key "Help on Parse" #k"home" :mode "Echo Area")
259 (bind-key "Help on Parse" #k"control-_" :mode "Echo Area")
260
261 (bind-key "Complete Keyword" #k"escape" :mode "Echo Area")
262 (bind-key "Complete Field" #k"space" :mode "Echo Area")
263 (bind-key "Confirm Parse" #k"return" :mode "Echo Area")
264
265 ;;; Rebind some standard commands to behave better.
266 ;;;
267 (bind-key "Kill Parse" #k"control-u" :mode "Echo Area")
268 (bind-key "Insert Parse Default" #k"control-i" :mode "Echo Area")
269 (bind-key "Insert Parse Default" #k"tab" :mode "Echo Area")
270 (bind-key "Echo Area Delete Previous Character" #k"delete" :mode "Echo Area")
271 (bind-key "Echo Area Delete Previous Character" #k"backspace" :mode "Echo Area")
272 (bind-key "Echo Area Kill Previous Word" #k"meta-h" :mode "Echo Area")
273 (bind-key "Echo Area Kill Previous Word" #k"meta-delete" :mode "Echo Area")
274 (bind-key "Echo Area Kill Previous Word" #k"meta-backspace" :mode "Echo Area")
275 (bind-key "Echo Area Kill Previous Word" #k"control-w" :mode "Echo Area")
276 (bind-key "Beginning of Parse" #k"control-a" :mode "Echo Area")
277 (bind-key "Beginning of Parse" #k"meta-\<" :mode "Echo Area")
278 (bind-key "Echo Area Backward Character" #k"control-b" :mode "Echo Area")
279 (bind-key "Echo Area Backward Word" #k"meta-b" :mode "Echo Area")
280 (bind-key "Next Parse" #k"control-n" :mode "Echo Area")
281 (bind-key "Previous Parse" #k"control-p" :mode "Echo Area")
282
283 ;;; Remove some dangerous standard bindings.
284 ;;;
285 (bind-key "Illegal" #k"control-x" :mode "Echo Area")
286 (bind-key "Illegal" #k"control-meta-c" :mode "Echo Area")
287 (bind-key "Illegal" #k"control-meta-s" :mode "Echo Area")
288 (bind-key "Illegal" #k"control-meta-l" :mode "Echo Area")
289 (bind-key "Illegal" #k"meta-x" :mode "Echo Area")
290 (bind-key "Illegal" #k"control-s" :mode "Echo Area")
291 (bind-key "Illegal" #k"control-r" :mode "Echo Area")
292 (bind-key "Illegal" #k"hyper-t" :mode "Echo Area")
293 (bind-key "Illegal" #k"middledown" :mode "Echo Area")
294 (bind-key "Do Nothing" #k"middleup" :mode "Echo Area")
295 (bind-key "Illegal" #k"super-leftdown" :mode "Echo Area")
296 (bind-key "Do Nothing" #k"super-leftup" :mode "Echo Area")
297 (bind-key "Illegal" #k"super-rightdown" :mode "Echo Area")
298 (bind-key "Do Nothing" #k"super-rightup" :mode "Echo Area")
299
300
301
302 ;;;; Eval and Editor Modes.
303
304 (bind-key "Confirm Eval Input" #k"return" :mode "Eval")
305 (bind-key "Previous Interactive Input" #k"meta-p" :mode "Eval")
306 (bind-key "Search Previous Interactive Input" #k"meta-P" :mode "Eval")
307 (bind-key "Next Interactive Input" #k"meta-n" :mode "Eval")
308 (bind-key "Kill Interactive Input" #k"meta-i" :mode "Eval")
309 (bind-key "Abort Eval Input" #k"control-meta-i" :mode "Eval")
310 (bind-key "Interactive Beginning of Line" #k"control-a" :mode "Eval")
311 (bind-key "Reenter Interactive Input" #k"control-return" :mode "Eval")
312
313 (bind-key "Editor Evaluate Expression" #k"control-meta-escape")
314 (bind-key "Editor Evaluate Expression" #k"meta-escape" :mode "Editor")
315 (bind-key "Editor Evaluate Defun" #k"control-x control-e" :mode "Editor")
316 (bind-key "Editor Compile Defun" #k"control-x control-c" :mode "Editor")
317 (bind-key "Editor Compile Defun" #k"control-x control-C" :mode "Editor")
318 (bind-key "Editor Macroexpand Expression" #k"control-m" :mode "Editor")
319 (bind-key "Editor Describe Function Call" #k"control-meta-A" :mode "Editor")
320 (bind-key "Editor Describe Symbol" #k"control-meta-S" :mode "Editor")
321
322
323
324 ;;;; Typescript.
325
326 (bind-key "Confirm Typescript Input" #k"return" :mode "Typescript")
327 (bind-key "Interactive Beginning of Line" #k"control-a" :mode "Typescript")
328 (bind-key "Kill Interactive Input" #k"meta-i" :mode "Typescript")
329 (bind-key "Previous Interactive Input" #k"meta-p" :mode "Typescript")
330 (bind-key "Search Previous Interactive Input" #k"meta-P" :mode "Typescript")
331 (bind-key "Next Interactive Input" #k"meta-n" :mode "Typescript")
332 (bind-key "Reenter Interactive Input" #k"control-return" :mode "Typescript")
333 (bind-key "Typescript Slave Break" #k"hyper-b" :mode "Typescript")
334 (bind-key "Typescript Slave to Top Level" #k"hyper-g" :mode "Typescript")
335 (bind-key "Typescript Slave Status" #k"hyper-s" :mode "Typescript")
336 (bind-key "Select Slave" #k"control-meta-\c")
337 (bind-key "Select Background" #k"control-meta-C")
338
339 (bind-key "Abort Operations" #k"hyper-a")
340 (bind-key "List Operations" #k"hyper-l")
341
342 (bind-key "Next Compiler Error" #k"hyper-n")
343 (bind-key "Previous Compiler Error" #k"hyper-p")
344
345
346
347 ;;;; Lisp (some).
348
349 (bind-key "Indent Form" #k"control-meta-q")
350 (bind-key "Fill Lisp Comment Paragraph" #k"meta-q" :mode "Lisp")
351 (bind-key "Defindent" #k"control-meta-#")
352 (bind-key "Beginning of Defun" #k"control-meta-[")
353 (bind-key "End of Defun" #k"control-meta-]")
354 (bind-key "Beginning of Defun" #k"control-meta-a")
355 (bind-key "End of Defun" #k"control-meta-e")
356 (bind-key "Forward Form" #k"control-meta-f")
357 (bind-key "Backward Form" #k"control-meta-b")
358 (bind-key "Forward List" #k"control-meta-n")
359 (bind-key "Backward List" #k"control-meta-p")
360 (bind-key "Transpose Forms" #k"control-meta-t")
361 (bind-key "Forward Kill Form" #k"control-meta-k")
362 (bind-key "Backward Kill Form" #k"control-meta-backspace")
363 (bind-key "Backward Kill Form" #k"control-meta-delete")
364 (bind-key "Mark Form" #k"control-meta-@")
365 (bind-key "Mark Defun" #k"control-meta-h")
366 (bind-key "Insert ()" #k"meta-(")
367 (bind-key "Move over )" #k"meta-)")
368 (bind-key "Backward Up List" #k"control-meta-(")
369 (bind-key "Backward Up List" #k"control-meta-u")
370 (bind-key "Forward Up List" #k"control-meta-)")
371 (bind-key "Down List" #k"control-meta-d")
372 (bind-key "Extract List" #k"control-meta-x")
373 (bind-key "Lisp Insert )" #k")" :mode "Lisp")
374 (bind-key "Delete Previous Character Expanding Tabs" #k"backspace" :mode "Lisp")
375 (bind-key "Delete Previous Character Expanding Tabs" #k"delete" :mode "Lisp")
376
377 (bind-key "Evaluate Expression" #k"meta-escape")
378 (bind-key "Evaluate Defun" #k"control-x control-e")
379 (bind-key "Compile Defun" #k"control-x control-c")
380 (bind-key "Compile Buffer File" #k"control-x c")
381 (bind-key "Macroexpand Expression" #k"control-M")
382
383 (bind-key "Describe Function Call" #k"control-meta-A")
384 (bind-key "Describe Symbol" #k"control-meta-S")
385
386 (bind-key "Goto Definition" #k"control-meta-F")
387
388 (bind-key "Debug Up" #k"control-meta-hyper-u")
389 (bind-key "Debug Down" #k"control-meta-hyper-d")
390 (bind-key "Debug Top" #k"control-meta-hyper-t")
391 (bind-key "Debug Bottom" #k"control-meta-hyper-b")
392 (bind-key "Debug Frame" #k"control-meta-hyper-f")
393 (bind-key "Debug Quit" #k"control-meta-hyper-q")
394 (bind-key "Debug Go" #k"control-meta-hyper-g")
395 (bind-key "Debug Abort" #k"control-meta-hyper-a")
396 (bind-key "Debug Restart" #k"control-meta-hyper-r")
397 (bind-key "Debug Help" #k"control-meta-hyper-h")
398 (bind-key "Debug Error" #k"control-meta-hyper-e")
399 (bind-key "Debug Backtrace" #k"control-meta-hyper-B")
400 (bind-key "Debug Print" #k"control-meta-hyper-p")
401 (bind-key "Debug Verbose Print" #k"control-meta-hyper-P")
402 (bind-key "Debug List Locals" #k"control-meta-hyper-l")
403 (bind-key "Debug Source" #k"control-meta-hyper-s")
404 (bind-key "Debug Edit Source" #k"control-meta-hyper-S")
405 (bind-key "Debug Flush Errors" #k"control-meta-hyper-F")
406
407
408
409 ;;;; More Miscellaneous bindings.
410
411 (bind-key "Open Line" #k"Control-o")
412 (bind-key "New Line" #k"return")
413
414 (bind-key "Transpose Words" #k"meta-t")
415 (bind-key "Transpose Lines" #k"control-x control-t")
416 (bind-key "Transpose Regions" #k"control-x t")
417
418 (bind-key "Uppercase Region" #k"control-x control-u")
419 (bind-key "Lowercase Region" #k"control-x control-l")
420
421 (bind-key "Delete Indentation" #k"meta-^")
422 (bind-key "Delete Indentation" #k"control-meta-^")
423 (bind-key "Delete Horizontal Space" #k"meta-\\")
424 (bind-key "Delete Blank Lines" #k"control-x control-o" :global)
425 (bind-key "Just One Space" #k"meta-\|")
426 (bind-key "Back to Indentation" #k"meta-m")
427 (bind-key "Back to Indentation" #k"control-meta-m")
428 (bind-key "Indent Rigidly" #k"control-x tab")
429 (bind-key "Indent Rigidly" #k"control-x control-i")
430
431 (bind-key "Indent New Line" #k"linefeed")
432 (bind-key "Indent" #k"tab")
433 (bind-key "Indent" #k"control-i")
434 (bind-key "Indent Region" #k"control-meta-\\")
435 (bind-key "Quote Tab" #k"meta-tab")
436
437 (bind-key "Directory" #k"control-x control-\d")
438 (bind-key "Verbose Directory" #k"control-x control-D")
439
440 (bind-key "Activate Region" #k"control-x control-@")
441 (bind-key "Activate Region" #k"control-x control-space")
442
443 (bind-key "Save Position" #k"control-x s")
444 (bind-key "Jump to Saved Position" #k"control-x j")
445 (bind-key "Put Register" #k"control-x x")
446 (bind-key "Get Register" #k"control-x g")
447
448 (bind-key "Delete Previous Character Expanding Tabs" #k"backspace"
449 :mode "Pascal")
450 (bind-key "Delete Previous Character Expanding Tabs" #k"delete" :mode "Pascal")
451 (bind-key "Scribe Insert Bracket" #k")" :mode "Pascal")
452 (bind-key "Scribe Insert Bracket" #k"]" :mode "Pascal")
453 (bind-key "Scribe Insert Bracket" #k"}" :mode "Pascal")
454
455
456 ;;;; Auto Fill Mode.
457
458 (bind-key "Fill Paragraph" #k"meta-q")
459 (bind-key "Fill Region" #k"meta-g")
460 (bind-key "Set Fill Prefix" #k"control-x .")
461 (bind-key "Set Fill Column" #k"control-x f")
462 (bind-key "Auto Fill Return" #k"return" :mode "Fill")
463 (bind-key "Auto Fill Space" #k"space" :mode "Fill")
464 (bind-key "Auto Fill Linefeed" #k"linefeed" :mode "Fill")
465
466
467
468 ;;;; Keyboard macro bindings.
469
470 (bind-key "Define Keyboard Macro" #k"control-x (")
471 (bind-key "Define Keyboard Macro Key" #k"control-x meta-(")
472 (bind-key "End Keyboard Macro" #k"control-x )")
473 (bind-key "End Keyboard Macro" #k"control-x hyper-)")
474 (bind-key "Last Keyboard Macro" #k"control-x e")
475 (bind-key "Keyboard Macro Query" #k"control-x q")
476
477
478
479 ;;;; Spell bindings.
480
481 (bind-key "Check Word Spelling" #k"meta-$")
482 (bind-key "Add Word to Spelling Dictionary" #k"control-x $")
483
484 (dolist (info (command-bindings (getstring "Self Insert" *command-names*)))
485 (let* ((key (car info))
486 (key-event (svref key 0))
487 (character (key-event-char key-event)))
488 (unless (or (alpha-char-p character) (eq key-event #k"'"))
489 (bind-key "Auto Check Word Spelling" key :mode "Spell"))))
490 (bind-key "Auto Check Word Spelling" #k"return" :mode "Spell")
491 (bind-key "Auto Check Word Spelling" #k"tab" :mode "Spell")
492 (bind-key "Auto Check Word Spelling" #k"linefeed" :mode "Spell")
493 (bind-key "Correct Last Misspelled Word" #k"meta-:")
494 (bind-key "Undo Last Spelling Correction" #k"control-x a")
495
496
497
498 ;;;; Overwrite Mode.
499
500 (bind-key "Overwrite Delete Previous Character" #k"delete" :mode "Overwrite")
501 (bind-key "Overwrite Delete Previous Character" #k"backspace" :mode "Overwrite")
502
503 ;;; Do up the printing characters ...
504 (do ((i 33 (1+ i)))
505 ((= i 126))
506 (let ((key-event (char-key-event (code-char i))))
507 (bind-key "Self Overwrite" key-event :mode "Overwrite")))
508
509 (bind-key "Self Overwrite" #k"space" :mode "Overwrite")
510
511
512
513 ;;;; Comment bindings.
514
515 (bind-key "Indent for Comment" #k"meta-;")
516 (bind-key "Set Comment Column" #k"control-x ;")
517 (bind-key "Kill Comment" #k"control-meta-;")
518 (bind-key "Down Comment Line" #k"meta-n")
519 (bind-key "Up Comment Line" #k"meta-p")
520 (bind-key "Indent New Comment Line" #k"meta-j")
521 (bind-key "Indent New Comment Line" #k"meta-linefeed")
522
523
524 ;;;; Word Abbrev Mode.
525
526 (bind-key "Add Mode Word Abbrev" #k"control-x control-a")
527 (bind-key "Add Global Word Abbrev" #k"control-x +")
528 (bind-key "Inverse Add Mode Word Abbrev" #k"control-x control-h")
529 (bind-key "Inverse Add Global Word Abbrev" #k"control-x \-")
530 ;; Removed in lieu of "Pop and Goto Mark".
531 ;;(bind-key "Abbrev Expand Only" #k"meta-space")
532 (bind-key "Word Abbrev Prefix Mark" #k"meta-\"")
533 (bind-key "Unexpand Last Word" #k"control-x u")
534
535 (dolist (key (list #k"!" #k"~" #k"@" #k"#" #k";" #k"$" #k"%" #k"^" #k"&" #k"*"
536 #k"\-" #k"_" #k"=" #k"+" #k"[" #k"]" #k"(" #k")" #k"/" #k"|"
537 #k":" #k"'" #k"\"" #k"{" #k"}" #k"," #k"\<" #k"." #k"\>"
538 #k"`" #k"\\" #k"?" #k"return" #k"newline" #k"tab" #k"space"))
539 (bind-key "Abbrev Expand Only" key :mode "Abbrev"))
540
541 (bind-key "Dabbrev Expand" #k"meta-/")
542
543
544 ;;;; Scribe Mode.
545
546 (dolist (key (list #k"]" #k")" #k"}" #k"\>"))
547 (bind-key "Scribe Insert Bracket" key :mode "Scribe"))
548
549 (bind-key "Scribe Buffer File" #k"control-x c" :mode "Scribe")
550 (bind-key "Select Scribe Warnings" #k"control-meta-C" :mode "Scribe")
551
552 (bind-key "Insert Scribe Directive" #k"hyper-i" :mode "Scribe")
553
554
555
556 ;;;; X commands:
557
558 (bind-key "Insert Cut Buffer" #k"insert")
559 (bind-key "Region to Cut Buffer" #k"meta-insert")
560
561
562
563 ;;;; Mailer commands.
564
565 ;;; Clear everything user might hit to avoid getting the internal error
566 ;;; message about modifying read-only buffers.
567 ;;;
568 (do-alpha-key-events (key-event :both)
569 (bind-key "Illegal" key-event :mode "Headers")
570 (bind-key "Illegal" key-event :mode "Message"))
571
572
573 ;;; Global.
574 ;;;
575 (bind-key "Incorporate and Read New Mail" #k"control-x i")
576 (bind-key "Send Message" #k"control-x m")
577 (bind-key "Message Headers" #k"control-x r")
578
579
580 ;;; Both Headers and Message modes.
581 ;;;
582 ;;; The bindings in these two blocks should be the same, one for "Message" mode
583 ;;; and one for "Headers" mode.
584 ;;;
585 (bind-key "Next Message" #k"meta-n" :mode "Message")
586 (bind-key "Previous Message" #k"meta-p" :mode "Message")
587 (bind-key "Next Undeleted Message" #k"n" :mode "Message")
588 (bind-key "Previous Undeleted Message" #k"p" :mode "Message")
589 (bind-key "Send Message" #k"s" :mode "Message")
590 (bind-key "Send Message" #k"m" :mode "Message")
591 (bind-key "Forward Message" #k"f" :mode "Message")
592 (bind-key "Headers Delete Message" #k"k" :mode "Message")
593 (bind-key "Headers Undelete Message" #k"u" :mode "Message")
594 (bind-key "Headers Refile Message" #k"o" :mode "Message")
595 (bind-key "List Mail Buffers" #k"l" :mode "Message")
596 (bind-key "Quit Headers" #k"q" :mode "Message")
597 (bind-key "Incorporate and Read New Mail" #k"i" :mode "Message")
598 (bind-key "Beginning of Buffer" #k"\<" :mode "Message")
599 (bind-key "End of Buffer" #k"\>" :mode "Message")
600 ;;;
601 (bind-key "Next Message" #k"meta-n" :mode "Headers")
602 (bind-key "Previous Message" #k"meta-p" :mode "Headers")
603 (bind-key "Next Undeleted Message" #k"n" :mode "Headers")
604 (bind-key "Previous Undeleted Message" #k"p" :mode "Headers")
605 (bind-key "Send Message" #k"s" :mode "Headers")
606 (bind-key "Send Message" #k"m" :mode "Headers")
607 (bind-key "Forward Message" #k"f" :mode "Headers")
608 (bind-key "Headers Delete Message" #k"k" :mode "Headers")
609 (bind-key "Headers Undelete Message" #k"u" :mode "Headers")
610 (bind-key "Headers Refile Message" #k"o" :mode "Headers")
611 (bind-key "List Mail Buffers" #k"l" :mode "Headers")
612 (bind-key "Quit Headers" #k"q" :mode "Headers")
613 (bind-key "Incorporate and Read New Mail" #k"i" :mode "Headers")
614 (bind-key "Beginning of Buffer" #k"\<" :mode "Headers")
615 (bind-key "End of Buffer" #k"\>" :mode "Headers")
616
617
618 ;;; Headers mode.
619 ;;;
620 (bind-key "Delete Message and Down Line" #k"d" :mode "Headers")
621 (bind-key "Pick Headers" #k"h" :mode "Headers")
622 (bind-key "Show Message" #k"space" :mode "Headers")
623 (bind-key "Show Message" #k"." :mode "Headers")
624 (bind-key "Reply to Message" #k"r" :mode "Headers")
625 (bind-key "Expunge Messages" #k"!" :mode "Headers")
626 (bind-key "Headers Help" #k"?" :mode "Headers")
627
628
629 ;;; Message mode.
630 ;;;
631 (bind-key "Delete Message and Show Next" #k"d" :mode "Message")
632 (bind-key "Goto Headers Buffer" #k"^" :mode "Message")
633 (bind-key "Scroll Message" #k"space" :mode "Message")
634 (bind-key "Scroll Message" #k"control-v" :mode "Message")
635 (bind-key "Scroll Window Up" #k"backspace" :mode "Message")
636 (bind-key "Scroll Window Up" #k"delete" :mode "Message")
637 (bind-key "Reply to Message in Other Window" #k"r" :mode "Message")
638 (bind-key "Edit Message Buffer" #k"e" :mode "Message")
639 (bind-key "Insert Message Region" #k"hyper-y" :mode "Message")
640 (bind-key "Message Help" #k"?" :mode "Message")
641
642
643 ;;; Draft mode.
644 ;;;
645 (bind-key "Goto Headers Buffer" #k"hyper-^" :mode "Draft")
646 (bind-key "Goto Message Buffer" #k"hyper-m" :mode "Draft")
647 (bind-key "Deliver Message" #k"hyper-s" :mode "Draft")
648 (bind-key "Deliver Message" #k"hyper-c" :mode "Draft")
649 (bind-key "Insert Message Buffer" #k"hyper-y" :mode "Draft")
650 (bind-key "Delete Draft and Buffer" #k"hyper-q" :mode "Draft")
651 (bind-key "List Mail Buffers" #k"hyper-l" :mode "Draft")
652 (bind-key "Draft Help" #k"hyper-?" :mode "Draft")
653
654
655
656 ;;;; Netnews.
657
658 ;;; Clear everything user might hit to avoid getting the internal error
659 ;;; message about modifying read-only buffers.
660 ;;;
661 (do-alpha-key-events (key-event :both)
662 (bind-key "Illegal" key-event :mode "News-Headers")
663 (bind-key "Illegal" key-event :mode "News-Message"))
664
665
666 ;;; Global Netnews bindings
667 ;;;
668 (bind-key "Netnews Post Message" #k"C-x P")
669
670
671 ;;; Both News-Headers and News-Message modes.
672 ;;;
673 ;;; The bindings in these two blocks should be the same, one for "News-Message"
674 ;;; mode and one for "News-Headers" mode.
675 ;;;
676 (bind-key "List All Groups" #k"l" :mode "News-Headers")
677 (bind-key "Netnews Append to File" #k"a" :mode "News-Headers")
678 (bind-key "Netnews Forward Message" #k"f" :mode "News-Headers")
679 (bind-key "Netnews Go to Next Group" #k"g" :mode "News-Headers")
680 (bind-key "Netnews Next Article" #k"n" :mode "News-Headers")
681 (bind-key "Netnews Previous Article" #k"p" :mode "News-Headers")
682 (bind-key "Netnews Quit Starting Here" #k"." :mode "News-Headers")
683 (bind-key "Netnews Group Punt Messages" #k"G" :mode "News-Headers")
684 (bind-key "Netnews Show Whole Header" #k"w" :mode "News-Headers")
685 (bind-key "Netnews Reply to Sender in Other Window" #k"r" :mode "News-Headers")
686 (bind-key "Netnews Reply to Group in Other Window" #k"R" :mode "News-Headers")
687 ;;;
688 (bind-key "List All Groups" #k"l" :mode "News-Message")
689 (bind-key "Netnews Append to File" #k"a" :mode "News-Message")
690 (bind-key "Netnews Forward Message" #k"f" :mode "News-Message")
691 (bind-key "Netnews Go to Next Group" #k"g" :mode "News-Message")
692 (bind-key "Netnews Next Article" #k"n" :mode "News-Message")
693 (bind-key "Netnews Previous Article" #k"p" :mode "News-Message")
694 (bind-key "Netnews Quit Starting Here" #k"." :mode "News-Message")
695 (bind-key "Netnews Group Punt Messages" #k"G" :mode "News-Message")
696 (bind-key "Netnews Show Whole Header" #k"w" :mode "News-Message")
697 (bind-key "Netnews Reply to Sender in Other Window" #k"r" :mode "News-Message")
698 (bind-key "Netnews Reply to Group in Other Window" #k"R" :mode "News-Message")
699
700
701 ;;; News-Headers.
702 ;;;
703 (bind-key "Netnews Exit" #k"q" :mode "News-Headers")
704 (bind-key "Netnews Headers File Message" #k"o" :mode "News-Headers")
705 (bind-key "Netnews Headers Scroll Window Down" #k"c-v" :mode "News-Headers")
706 (bind-key "Netnews Headers Scroll Window Up" #k"m-v" :mode "News-Headers")
707 (bind-key "Netnews Next Line" #k"C-n" :mode "News-Headers")
708 (bind-key "Netnews Next Line" #k"Downarrow" :mode "News-Headers")
709 (bind-key "Netnews Previous Line" #k"C-p" :mode "News-Headers")
710 (bind-key "Netnews Previous Line" #k"Uparrow" :mode "News-Headers")
711 (bind-key "Netnews Select Message Buffer" #k"hyper-m" :mode "News-Headers")
712 (bind-key "Netnews Show Article" #k"space" :mode "News-Headers")
713
714
715 ;;; News-Message.
716 ;;;
717 (bind-key "Insert Message Region" #k"Hyper-y" :mode "News-Message")
718 (bind-key "Netnews Message File Message" #k"o" :mode "News-Message")
719 (bind-key "Netnews Message Keep Buffer" #k"k" :mode "News-Message")
720 (bind-key "Netnews Message Quit" #k"q" :mode "News-Message")
721 (bind-key "Netnews Message Scroll Down" #k"space" :mode "News-Message")
722 (bind-key "Netnews Goto Draft Buffer" #k"hyper-d" :mode "News-Message")
723 (bind-key "Netnews Goto Headers Buffer" #k"^" :mode "News-Message")
724 (bind-key "Netnews Goto Headers Buffer" #k"hyper-h" :mode "News-Message")
725 (bind-key "Netnews Goto Post Buffer" #k"hyper-p" :mode "News-Message")
726 (bind-key "Scroll Window Up" #k"backspace" :mode "News-Message")
727
728
729 ;;; Post.
730 ;;;
731 (bind-key "Netnews Select Message Buffer" #k"hyper-m" :mode "Post")
732 (bind-key "Netnews Deliver Post" #k"hyper-s" :mode "Post")
733 (bind-key "Netnews Abort Post" #k"hyper-q" :mode "Post")
734 (bind-key "Insert Message Buffer" #k"Hyper-y" :mode "Post")
735
736
737 ;;; News-Browse.
738
739 (bind-key "Netnews Quit Browse" #k"q" :mode "News-Browse")
740 (bind-key "Netnews Browse Add Group To File" #k"a" :mode "News-Browse")
741 (bind-key "Netnews Browse Read Group" #k"space" :mode "News-Browse")
742 (bind-key "Next Line" #k"n" :mode "News-Browse")
743 (bind-key "Previous Line" #k"p" :mode "News-Browse")
744
745
746 ;;;; Process (Shell).
747
748 (bind-key "Shell" #k"control-meta-s")
749 (bind-key "Confirm Process Input" #k"return" :mode "Process")
750 (bind-key "Shell Complete Filename" #k"M-escape" :mode "Process")
751 (bind-key "Interrupt Buffer Subprocess" #k"hyper-c" :mode "Process")
752 (bind-key "Stop Buffer Subprocess" #k"hyper-z" :mode "Process")
753 (bind-key "Quit Buffer Subprocess" #k"hyper-\\")
754 (bind-key "Send EOF to Process" #k"hyper-d")
755
756 (bind-key "Previous Interactive Input" #k"meta-p" :mode "Process")
757 (bind-key "Search Previous Interactive Input" #k"meta-P" :mode "Process")
758 (bind-key "Interactive Beginning of Line" #k"control-a" :mode "Process")
759 (bind-key "Kill Interactive Input" #k"meta-i" :mode "Process")
760 (bind-key "Next Interactive Input" #k"meta-n" :mode "Process")
761 (bind-key "Reenter Interactive Input" #k"control-return" :mode "Process")
762
763
764
765 ;;;; Bufed.
766
767 (bind-key "Bufed" #k"control-x control-meta-b")
768 (bind-key "Bufed Delete" #k"d" :mode "Bufed")
769 (bind-key "Bufed Delete" #k"control-d" :mode "Bufed")
770 (bind-key "Bufed Undelete" #k"u" :mode "Bufed")
771 (bind-key "Bufed Expunge" #k"!" :mode "Bufed")
772 (bind-key "Bufed Quit" #k"q" :mode "Bufed")
773 (bind-key "Bufed Goto" #k"space" :mode "Bufed")
774 (bind-key "Bufed Goto and Quit" #k"super-leftdown" :mode "Bufed")
775 (bind-key "Bufed Save File" #k"s" :mode "Bufed")
776 (bind-key "Next Line" #k"n" :mode "Bufed")
777 (bind-key "Previous Line" #k"p" :mode "Bufed")
778
779
780 (bind-key "Bufed Help" #k"?" :mode "Bufed")
781
782
783
784 ;;;; Dired.
785
786 (bind-key "Dired" #k"control-x control-meta-d")
787
788 (bind-key "Dired Delete File and Down Line" #k"d" :mode "Dired")
789 (bind-key "Dired Delete File with Pattern" #k"D" :mode "Dired")
790 (bind-key "Dired Delete File" #k"control-d" :mode "Dired")
791 (bind-key "Dired Delete File" #k"k" :mode "Dired")
792
793 (bind-key "Dired Undelete File and Down Line" #k"u" :mode "Dired")
794 (bind-key "Dired Undelete File with Pattern" #k"U" :mode "Dired")
795 (bind-key "Dired Undelete File" #k"control-u" :mode "Dired")
796
797 (bind-key "Dired Expunge Files" #k"!" :mode "Dired")
798 (bind-key "Dired Update Buffer" #k"hyper-u" :mode "Dired")
799 (bind-key "Dired View File" #k"space" :mode "Dired")
800 (bind-key "Dired Edit File" #k"e" :mode "Dired")
801 (bind-key "Dired Up Directory" #k"^" :mode "Dired")
802 (bind-key "Dired Quit" #k"q" :mode "Dired")
803 (bind-key "Dired Help" #k"?" :mode "Dired")
804
805 (bind-key "Dired Copy File" #k"c" :mode "Dired")
806 (bind-key "Dired Copy with Wildcard" #k"C" :mode "Dired")
807 (bind-key "Dired Rename File" #k"r" :mode "Dired")
808 (bind-key "Dired Rename with Wildcard" #k"R" :mode "Dired")
809
810 (bind-key "Next Line" #k"n" :mode "Dired")
811 (bind-key "Previous Line" #k"p" :mode "Dired")
812
813
814
815 ;;;; View Mode.
816
817 (bind-key "View Scroll Down" #k"space" :mode "View")
818 (bind-key "Scroll Window Up" #k"b" :mode "View")
819 (bind-key "Scroll Window Up" #k"backspace" :mode "View")
820 (bind-key "Scroll Window Up" #k"delete" :mode "View")
821 (bind-key "View Return" #k"^" :mode "View")
822 (bind-key "View Quit" #k"q" :mode "View")
823 (bind-key "View Edit File" #k"e" :mode "View")
824 (bind-key "View Help" #k"?" :mode "View")
825 (bind-key "Beginning of Buffer" #k"\<" :mode "View")
826 (bind-key "End of Buffer" #k"\>" :mode "View")
827
828
829
830 ;;;; Lisp Library.
831
832
833 (bind-key "Describe Pointer Library Entry" #k"leftdown" :mode "Lisp-Lib")
834 (bind-key "Load Pointer Library Entry" #k"rightdown" :mode "Lisp-Lib")
835 (bind-key "Describe Library Entry" #k"space" :mode "Lisp-Lib")
836 (bind-key "Load Library Entry" #k"l" :mode "Lisp-Lib")
837 (bind-key "Exit Lisp Library" #k"q" :mode "Lisp-Lib")
838 (bind-key "Lisp Library Help" #k"?" :mode "Lisp-Lib")
839
840
841
842 ;;;; Completion mode.
843
844 (dolist (c (command-bindings (getstring "Self Insert" *command-names*)))
845 (bind-key "Completion Self Insert" (car c) :mode "Completion"))
846
847 (bind-key "Completion Self Insert" #k"space" :mode "Completion")
848 (bind-key "Completion Self Insert" #k"tab" :mode "Completion")
849 (bind-key "Completion Self Insert" #k"return" :mode "Completion")
850 (bind-key "Completion Self Insert" #k"linefeed" :mode "Completion")
851
852 (bind-key "Completion Complete Word" #k"end")
853 (bind-key "Completion Rotate Completions" #k"meta-end")
854
855
856
857 ;;;; Caps-Lock mode.
858
859 (do-alpha-key-events (key-event :lower)
860 (bind-key "Self Insert Caps Lock" key-event :mode "CAPS-LOCK"))
861
862
863
864 ;;;; Logical characters.
865
866 (setf (logical-key-event-p #k"control-s" :forward-search) t)
867 (setf (logical-key-event-p #k"control-r" :backward-search) t)
868 (setf (logical-key-event-p #k"control-r" :recursive-edit) t)
869 (setf (logical-key-event-p #k"delete" :cancel) t)
870 (setf (logical-key-event-p #k"backspace" :cancel) t)
871 (setf (logical-key-event-p #k"control-g" :abort) t)
872 (setf (logical-key-event-p #k"escape" :exit) t)
873 (setf (logical-key-event-p #k"y" :yes) t)
874 (setf (logical-key-event-p #k"space" :yes) t)
875 (setf (logical-key-event-p #k"n" :no) t)
876 (setf (logical-key-event-p #k"backspace" :no) t)
877 (setf (logical-key-event-p #k"delete" :no) t)
878 (setf (logical-key-event-p #k"!" :do-all) t)
879 (setf (logical-key-event-p #k"." :do-once) t)
880 (setf (logical-key-event-p #k"home" :help) t)
881 (setf (logical-key-event-p #k"h" :help) t)
882 (setf (logical-key-event-p #k"?" :help) t)
883 (setf (logical-key-event-p #k"control-_" :help) t)
884 (setf (logical-key-event-p #k"return" :confirm) t)
885 (setf (logical-key-event-p #k"control-q" :quote) t)
886 (setf (logical-key-event-p #k"k" :keep) t)

  ViewVC Help
Powered by ViewVC 1.1.5