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

Contents of /src/hemlock/bindings.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5.4.1 - (hide annotations)
Sat May 22 12:22:45 2004 UTC (9 years, 10 months ago) by rtoy
Branch: UNICODE-BRANCH
Changes since 1.5: +2 -1 lines
Perform trivial merge from head to unicode-branch.
1 ram 1.1 ;;; -*- Log: hemlock.log; Package: Hemlock -*-
2     ;;;
3     ;;; **********************************************************************
4 ram 1.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 rtoy 1.5.4.1 "$Header: /tiger/var/lib/cvsroots/cmucl/src/hemlock/bindings.lisp,v 1.5.4.1 2004/05/22 12:22:45 rtoy Exp $")
9 ram 1.4 ;;;
10 ram 1.1 ;;; **********************************************************************
11     ;;;
12     ;;; Some bindings:
13     ;;;
14    
15 ram 1.3 (in-package "HEMLOCK")
16 ram 1.1
17 ram 1.3
18 ram 1.1
19     ;;;; Default key translations:
20    
21 ram 1.2 ;;; This page defines prefix characters that set specified modifier bits on
22     ;;; the next character typed.
23 ram 1.1 ;;;
24 ram 1.2 (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 ram 1.1
31    
32    
33     ;;;; Most every binding.
34    
35     ;;; Self insert letters:
36     ;;;
37 ram 1.2 (do-alpha-key-events (key-event :both)
38     (bind-key "Self Insert" key-event))
39 ram 1.1
40 ram 1.2 (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 ram 1.1
65 ram 1.2 (bind-key "Help" #k"home")
66     (bind-key "Help" #k"control-_")
67     (bind-key "Describe Key" #k"meta-?")
68 ram 1.1
69    
70 ram 1.2 (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 ram 1.1
81    
82 ram 1.2 (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 ram 1.1
92 ram 1.2 (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 ram 1.1
102 ram 1.2 (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 ram 1.1
114 ram 1.2 (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 ram 1.1
118 ram 1.2 (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 ram 1.1
135 ram 1.2 (bind-key "Forward Word" #k"meta-f")
136     (bind-key "Backward Word" #k"meta-b")
137 ram 1.1
138 ram 1.2 (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 ram 1.1
143 ram 1.2 (bind-key "Mark Paragraph" #k"meta-h")
144 ram 1.1
145 ram 1.2 (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 ram 1.1
149 ram 1.2 (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 ram 1.1
154 ram 1.2 (bind-key "Extended Command" #k"meta-x")
155 ram 1.1
156 ram 1.2 (bind-key "Uppercase Word" #k"meta-u")
157     (bind-key "Lowercase Word" #k"meta-l")
158     (bind-key "Capitalize Word" #k"meta-c")
159 ram 1.1
160 ram 1.4 (bind-key "Previous Page" #k"control-x [")
161     (bind-key "Next Page" #k"control-x ]")
162 ram 1.2 (bind-key "Mark Page" #k"control-x control-p")
163     (bind-key "Count Lines Page" #k"control-x l")
164 ram 1.1
165    
166    
167     ;;;; Argument Digit and Negative Argument.
168    
169 ram 1.2 (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 ram 1.1
203    
204     ;;;; Self Insert and Quoted Insert.
205    
206 ram 1.2 (bind-key "Quoted Insert" #k"control-q")
207 ram 1.1
208 ram 1.2 (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 ram 1.1
252    
253    
254     ;;;; Echo Area.
255    
256     ;;; Basic echo-area commands.
257     ;;;
258 ram 1.2 (bind-key "Help on Parse" #k"home" :mode "Echo Area")
259     (bind-key "Help on Parse" #k"control-_" :mode "Echo Area")
260 ram 1.1
261 ram 1.2 (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 ram 1.1
265     ;;; Rebind some standard commands to behave better.
266     ;;;
267 ram 1.2 (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 ram 1.1
283 ram 1.2 ;;; Remove some dangerous standard bindings.
284 ram 1.1 ;;;
285 ram 1.2 (bind-key "Illegal" #k"control-x" :mode "Echo Area")
286     (bind-key "Illegal" #k"control-meta-c" :mode "Echo Area")
287 ram 1.3 (bind-key "Illegal" #k"control-meta-s" :mode "Echo Area")
288 ram 1.2 (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 ram 1.1
300    
301    
302     ;;;; Eval and Editor Modes.
303    
304 ram 1.2 (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 ram 1.1
313 ram 1.2 (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 ram 1.1
322    
323    
324     ;;;; Typescript.
325    
326 ram 1.2 (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 ram 1.4 (bind-key "Typescript Slave Status" #k"hyper-s" :mode "Typescript")
336 ram 1.2 (bind-key "Select Slave" #k"control-meta-\c")
337     (bind-key "Select Background" #k"control-meta-C")
338 ram 1.1
339 ram 1.2 (bind-key "Abort Operations" #k"hyper-a")
340     (bind-key "List Operations" #k"hyper-l")
341 ram 1.1
342 ram 1.2 (bind-key "Next Compiler Error" #k"hyper-n")
343     (bind-key "Previous Compiler Error" #k"hyper-p")
344 ram 1.1
345    
346    
347     ;;;; Lisp (some).
348    
349 ram 1.2 (bind-key "Indent Form" #k"control-meta-q")
350 ram 1.4 (bind-key "Fill Lisp Comment Paragraph" #k"meta-q" :mode "Lisp")
351 ram 1.2 (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 ram 1.1
377 ram 1.2 (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 ram 1.1
383 ram 1.2 (bind-key "Describe Function Call" #k"control-meta-A")
384     (bind-key "Describe Symbol" #k"control-meta-S")
385 ram 1.1
386 ram 1.2 (bind-key "Goto Definition" #k"control-meta-F")
387 ram 1.1
388 ram 1.4 (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 ram 1.1
407 ram 1.4
408 ram 1.1
409     ;;;; More Miscellaneous bindings.
410    
411 ram 1.2 (bind-key "Open Line" #k"Control-o")
412     (bind-key "New Line" #k"return")
413 ram 1.1
414 ram 1.2 (bind-key "Transpose Words" #k"meta-t")
415     (bind-key "Transpose Lines" #k"control-x control-t")
416 ram 1.4 (bind-key "Transpose Regions" #k"control-x t")
417 ram 1.1
418 ram 1.2 (bind-key "Uppercase Region" #k"control-x control-u")
419     (bind-key "Lowercase Region" #k"control-x control-l")
420 ram 1.1
421 ram 1.2 (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 ram 1.1
431 ram 1.2 (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 ram 1.1
437 ram 1.2 (bind-key "Directory" #k"control-x control-\d")
438     (bind-key "Verbose Directory" #k"control-x control-D")
439 ram 1.1
440 ram 1.2 (bind-key "Activate Region" #k"control-x control-@")
441     (bind-key "Activate Region" #k"control-x control-space")
442 ram 1.1
443 ram 1.2 (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 ram 1.1
448 ram 1.2 (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 ram 1.1
455    
456     ;;;; Auto Fill Mode.
457    
458 ram 1.2 (bind-key "Fill Paragraph" #k"meta-q")
459     (bind-key "Fill Region" #k"meta-g")
460 ram 1.4 (bind-key "Set Fill Prefix" #k"control-x .")
461 ram 1.2 (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 ram 1.1
466    
467    
468     ;;;; Keyboard macro bindings.
469    
470 ram 1.2 (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 ram 1.1
477    
478    
479     ;;;; Spell bindings.
480    
481 ram 1.2 (bind-key "Check Word Spelling" #k"meta-$")
482     (bind-key "Add Word to Spelling Dictionary" #k"control-x $")
483 ram 1.1
484 ram 1.2 (dolist (info (command-bindings (getstring "Self Insert" *command-names*)))
485 ram 1.3 (let* ((key (car info))
486     (key-event (svref key 0))
487     (character (key-event-char key-event)))
488 ram 1.2 (unless (or (alpha-char-p character) (eq key-event #k"'"))
489 ram 1.3 (bind-key "Auto Check Word Spelling" key :mode "Spell"))))
490 ram 1.2 (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 ram 1.1
496    
497    
498     ;;;; Overwrite Mode.
499    
500 ram 1.2 (bind-key "Overwrite Delete Previous Character" #k"delete" :mode "Overwrite")
501     (bind-key "Overwrite Delete Previous Character" #k"backspace" :mode "Overwrite")
502 ram 1.1
503 ram 1.2 ;;; 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 ram 1.1
509 ram 1.2 (bind-key "Self Overwrite" #k"space" :mode "Overwrite")
510 ram 1.1
511    
512    
513     ;;;; Comment bindings.
514    
515 ram 1.2 (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 ram 1.1
523    
524     ;;;; Word Abbrev Mode.
525    
526 ram 1.2 (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 ram 1.1 ;; Removed in lieu of "Pop and Goto Mark".
531 ram 1.2 ;;(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 ram 1.1
535 ram 1.2 (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 ram 1.1
541 rtoy 1.5.4.1 (bind-key "Dabbrev Expand" #k"meta-/")
542 ram 1.1
543    
544     ;;;; Scribe Mode.
545    
546 ram 1.2 (dolist (key (list #k"]" #k")" #k"}" #k"\>"))
547     (bind-key "Scribe Insert Bracket" key :mode "Scribe"))
548 ram 1.1
549 ram 1.2 (bind-key "Scribe Buffer File" #k"control-x c" :mode "Scribe")
550     (bind-key "Select Scribe Warnings" #k"control-meta-C" :mode "Scribe")
551 ram 1.1
552 ram 1.2 (bind-key "Insert Scribe Directive" #k"hyper-i" :mode "Scribe")
553 ram 1.1
554    
555    
556     ;;;; X commands:
557    
558 ram 1.2 (bind-key "Insert Cut Buffer" #k"insert")
559     (bind-key "Region to Cut Buffer" #k"meta-insert")
560 ram 1.1
561    
562    
563     ;;;; Mailer commands.
564    
565 ram 1.4 ;;; Clear everything user might hit to avoid getting the internal error
566     ;;; message about modifying read-only buffers.
567     ;;;
568 ram 1.2 (do-alpha-key-events (key-event :both)
569     (bind-key "Illegal" key-event :mode "Headers")
570     (bind-key "Illegal" key-event :mode "Message"))
571 ram 1.1
572    
573     ;;; Global.
574 ram 1.4 ;;;
575 ram 1.2 (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 ram 1.1
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 ram 1.2 (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 ram 1.4 ;;;
601 ram 1.2 (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 ram 1.1
617    
618     ;;; Headers mode.
619 ram 1.4 ;;;
620 ram 1.2 (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 ram 1.1
628    
629     ;;; Message mode.
630 ram 1.4 ;;;
631 ram 1.2 (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 ram 1.1
642    
643     ;;; Draft mode.
644 ram 1.4 ;;;
645 ram 1.2 (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 ram 1.1
654    
655    
656 ram 1.4 ;;;; 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 ram 1.1 ;;;; Process (Shell).
747    
748 ram 1.4 (bind-key "Shell" #k"control-meta-s")
749 ram 1.2 (bind-key "Confirm Process Input" #k"return" :mode "Process")
750 ram 1.4 (bind-key "Shell Complete Filename" #k"M-escape" :mode "Process")
751 ram 1.2 (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 ram 1.1
756 ram 1.2 (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 ram 1.1
763    
764    
765     ;;;; Bufed.
766    
767 ram 1.4 (bind-key "Bufed" #k"control-x control-meta-b")
768 ram 1.2 (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 ram 1.1
779    
780 ram 1.2 (bind-key "Bufed Help" #k"?" :mode "Bufed")
781 ram 1.1
782    
783    
784     ;;;; Dired.
785    
786 ram 1.4 (bind-key "Dired" #k"control-x control-meta-d")
787 ram 1.1
788 ram 1.2 (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 ram 1.1
793 ram 1.2 (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 ram 1.1
797 ram 1.2 (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 ram 1.1
805 ram 1.2 (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 ram 1.1
810 ram 1.2 (bind-key "Next Line" #k"n" :mode "Dired")
811     (bind-key "Previous Line" #k"p" :mode "Dired")
812 ram 1.1
813    
814    
815     ;;;; View Mode.
816    
817 ram 1.2 (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 ram 1.1
828    
829    
830     ;;;; Lisp Library.
831    
832    
833 ram 1.2 (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 ram 1.1
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 ram 1.2 (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 ram 1.1
852 ram 1.2 (bind-key "Completion Complete Word" #k"end")
853     (bind-key "Completion Rotate Completions" #k"meta-end")
854 ram 1.1
855    
856    
857 ram 1.2 ;;;; Caps-Lock mode.
858 ram 1.1
859 ram 1.2 (do-alpha-key-events (key-event :lower)
860     (bind-key "Self Insert Caps Lock" key-event :mode "CAPS-LOCK"))
861 ram 1.1
862    
863 ram 1.2
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