-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathkeymap.c
2336 lines (2041 loc) · 55.2 KB
/
keymap.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
/*
* Keyboard maps. This is character set dependent.
* The terminal specific parts of building the
* keymap has been moved to a better place.
*/
#include "def.h"
#include "kbd.h"
#include "macro.h"
#include "key.h"
/*
* Defined by "basic.c".
*/
extern INT gotobol(); /* Move to start of line */
extern INT backchar(); /* Move backward by characters */
extern INT gotoeol(); /* Move to end of line */
extern INT forwchar(); /* Move forward by characters */
extern INT backtoindent(); /* Move to start of indent */
extern INT beginvisualline(); /* Move to begin of visual line */
extern INT endvisualline(); /* Move to end of visual line */
extern INT gotobob(); /* Move to start of buffer */
extern INT gotoeob(); /* Move to end of buffer */
extern INT forwline(); /* Move forward by lines */
extern INT backline(); /* Move backward by lines */
extern INT forwpage(); /* Move forward by pages */
extern INT backpage(); /* Move backward by pages */
extern INT pagenext(); /* Page forward next window */
extern INT pagenext_backward(); /* Page backward next window */
extern INT setmark(); /* Set mark */
extern INT markwholebuffer(); /* Mark whole buffer */
extern INT swapmark(); /* Swap "." and mark */
extern INT gotoline(); /* Go to a specified line. */
extern INT forw1page(); /* move forward by lines */
extern INT back1page(); /* move back by lines */
#ifdef MOUSE
extern INT mousemsg(INT, INT);
#endif
/*
* Defined by "buffer.c".
*/
extern INT listbuffers(); /* Display list of buffers */
extern INT usebuffer(); /* Switch a window to a buffer */
extern INT poptobuffer(); /* Other window to a buffer */
extern INT killbuffer(); /* Make a buffer go away. */
extern INT nextbuffer(); /* Switch to the next buffer. */
extern INT prevbuffer(); /* Switch to the previous buffer. */
extern INT savebuffers(); /* Save unmodified buffers */
extern INT bufferinsert(); /* Insert buffer into another */
extern INT notmodified(); /* Reset modification flag */
extern INT bufed(); /* Bufed */
extern INT bufed_otherwindow(); /* Bufed in other window */
extern INT bufed_gotobuf(); /* Bufed goto buffer */
extern INT bufed_gotobuf_one(); /* Bufed goto buffer in one window */
extern INT bufed_gotobuf_other(); /* Bufed goto buffer in other window */
extern INT bufed_gotobuf_switch_other(); /* Bufed goto buffer in other window, */
/* without switching window */
extern INT bufed_gotobuf_two(); /* Bufed goto buffer in other window, and */
/* back to original buffer in current window */
extern INT killbuffer_andwindow(); /* Kill buffer and window */
extern INT killbuffer_quickly(); /* Kill buffer without asking for name */
extern INT killthisbuffer(); /* Kill this buffer a la Emacs */
/*
* Defined by "dir.c"
*/
extern INT changedir(); /* change current directory */
extern INT showcwdir(); /* show current directory */
#ifdef DIRED
/*
* defined by "dired.c"
*/
extern INT dired(); /* dired */
extern INT d_otherwindow(); /* dired other window */
extern INT d_findfile(); /* dired find file */
extern INT d_ffonewindow(); /* dired find file one window */
extern INT d_ffotherwindow(); /* dired find file other window */
extern INT d_del(); /* dired mark for deletion */
extern INT d_undel(); /* dired unmark */
extern INT d_undelbak(); /* dired unmark backwards */
extern INT d_expunge(); /* dired expunge */
extern INT d_copy(); /* dired copy */
extern INT d_rename(); /* dired rename */
extern INT d_updir(); /* dired up directory */
extern INT d_jump(); /* dired show dir of file */
extern INT d_jump_otherwindow(); /* dired show dir of file other window */
extern INT d_nextdir(); /* dired next subdirectory */
extern INT d_prevdir(); /* dired previous subdirectory */
extern INT d_createdir(); /* dired create directory */
#endif
/*
* Defined by "display.c".
*/
#ifdef CHARSDEBUG
extern INT charsdebug_set(); /* Toggle chars debug */
extern INT charsdebug_zero(); /* Zero chars debug counters */
#endif
/*
* Defined by "extend.c".
*/
extern INT extend(); /* Extended commands. */
extern INT bindtokey(); /* Modify global key bindings. */
extern INT localbind(); /* Modify mode key bindings. */
extern INT define_key(); /* modify any key map */
extern INT unbindtokey(); /* delete global binding */
extern INT localunbind(); /* delete local binding */
extern INT insert(); /* insert string */
extern INT evalexpr(); /* Evaluate expression */
extern INT evalbuffer(); /* Evaluate current buffer */
extern INT evalfile(); /* Evaluate a file */
extern INT ignore_errors(); /* Like execute-extended-command but ignore errors */
extern INT nil(); /* Function for general unbinding */
extern INT auto_execute(); /* Add autoexec command */
extern INT auto_execute_list(); /* Add autoexec command list */
extern INT shebang(); /* Add autoexec shebang test */
extern INT ifcmd(); /* Conditional execution for autoexec */
extern INT listpatterns(); /* List autoexec patterns */
extern INT message(); /* Show message in echo line */
extern INT with_message(); /* Make command show message in macro */
extern INT with_key(); /* Debug command bound to key */
/*
* Defined by "file.c".
*/
extern INT filevisit(); /* Get a file, read write */
extern INT filevisit_readonly(); /* Visit file read only */
extern INT poptofile(); /* Get a file, other window */
extern INT poptofile_readonly(); /* Get a file, other window, readonly */
extern INT filewrite(); /* Write a file */
extern INT filesave(); /* Save current file */
extern INT fileinsert(); /* Insert file into buffer */
extern INT makebkfile(); /* Control backups on saves */
extern INT filerevert(); /* Revert to file on disk */
extern INT filerevert_forget(); /* Revert to file on disk, Mg style */
/*
* defined by "help.c".
*/
extern INT desckey(); /* describe key */
extern INT wallchart(); /* Make wall chart. */
extern INT help_help(); /* help help */
extern INT apropos_command(); /* apropos */
#ifdef HELP_RET
extern INT help_ret(); /* RET in a help buffer */
#endif
/*
* defined by "kbd.c"
*/
#ifdef BSMAP
extern INT bsmap(); /* backspace mapping */
#endif
extern INT universal_argument(); /* Ctrl-U */
extern INT digit_argument(); /* M-1, etc. */
extern INT negative_argument(); /* M-- */
extern INT selfinsert(); /* Insert character */
extern INT rescan(); /* internal try again function */
#ifdef LANGMODE_C
/*
* Defined by "langmode_c.c"
*/
extern INT cmode(); /* Toggle C-mode */
extern INT cc_char(); /* Insert char, indent */
extern INT cc_brace(); /* Insert char, blink, indent */
extern INT cc_tab(); /* Insert tab or re-indent */
extern INT cc_indent(); /* Re-indent current line */
extern INT cc_lfindent(); /* C newline and indent */
extern INT cc_preproc(); /* C preprocessor */
#endif
#ifdef LANGMODE_CLIKE
/*
* defined by "langmode_clike.c"
*/
extern INT clike_newline_and_indent(); /* Clike newline and indent */
extern INT clike_insert(); /* Insert and re-indent on blank line */
extern INT clike_insert_special(); /* Insert ':' and re-indent if case statement */
extern INT clike_align_after_paren(); /* Align after a '(' in previous line */
extern INT clike_align_after(); /* Align after a '=' or other char in previous line */
extern INT clike_align_back(); /* Align with a smaller earlier indent */
extern INT clike_tab_or_indent(); /* Clike tab or indent */
extern INT clike_indent(); /* Clike re-indent line */
extern INT clike_indent_next(); /* Clike re-indent line, go to next line */
extern INT clike_indent_region(); /* Clike re-indent region */
extern INT clike_mode(); /* Clike mode switch */
extern INT clike_showmatch(); /* Clike blink-and-insert */
#endif
#ifdef LANGMODE_MAKE
extern INT makemode(); /* Makefile mode switch */
#endif
#ifdef LANGMODE_PYTHON
/*
* defined by "langmode_python.c"
*/
extern INT pymode(); /* Python mode switch */
extern INT py_indent(); /* Python re-indent line */
extern INT py_lfindent(); /* Python newline and indent */
#endif
/*
* Defined by "line.c".
*/
#ifdef UPDATE_DEBUG
extern INT do_update_debug(); /* Turn on debugging of screen updates */
#endif
extern INT lduplicate();
extern INT lmoveup();
extern INT lmovedown();
/*
* defined by "macro.c"
*/
extern INT start_kbd_macro(); /* Begin keyboard macro */
extern INT end_kbd_macro(); /* End keyboard macro */
extern INT call_last_kbd_macro(); /* Execute keyboard macro */
extern INT list_kbd_macro(); /* List keyboard macro */
#ifdef USER_MACROS
extern INT create_macro(); /* Create named macro */
extern INT list_macros(); /* List named macros */
#endif
/*
* Defined by "main.c".
*/
extern INT keyboard_quit(); /* Abort out of things */
extern INT ctrlg(); /* Abort out of things */
extern INT quit(); /* Quit, asking to save files */
extern INT hardquit(); /* Quit the editor immediately */
extern INT save_and_exit(); /* Save and quit (not in Emacs) */
/*
* Defined by "match.c"
*/
extern INT showmatch(); /* Hack to show matching paren */
/*
* defined by "modes.c"
*/
extern INT indentmode(); /* set auto-indent mode */
extern INT fillmode(); /* set word-wrap mode */
extern INT notabmode(); /* no tab mode */
extern INT overwrite(); /* overwrite mode */
extern INT unixlf(); /* Unix line endings */
extern INT crlf(); /* DOS/TCP line endings */
extern INT cmdutf8(); /* UTF-8 toggle */
extern INT bom(); /* Toggle BOM - Byte Order Mark */
extern INT ubom(); /* Toggle BOM and UTF-8 */
extern INT nobom(); /* Turn off BOM */
extern INT cmddos(); /* DOS toggle */
extern INT cmdiso(); /* 8-bit toggle */
extern INT set_default_charset(); /* Set default charset */
extern INT set_default_8bit_charset(); /* Set default charset for 8 bit */
extern INT set_dos_charset(); /* Set dos charset */
extern INT local_set_charset(); /* Set charset in current buffer */
extern INT listcharsets(); /* List supported charsets */
extern INT toggle_readonly(); /* Toggle readonly */
#ifdef SLOW
extern INT slowmode(); /* Slow mode */
#endif
extern INT set_default_mode(); /* set default modes */
extern INT localmodename(); /* set name of buffer-local mode */
/*
* defined by "paragraph.c" - the paragraph justification code.
*/
extern INT gotobop(); /* Move to start of paragraph. */
extern INT gotoeop(); /* Move to end of paragraph. */
extern INT fillpara(); /* Justify a paragraph. */
extern INT killpara(); /* Delete a paragraph. */
extern INT markpara(); /* Mark a paragraph */
extern INT twiddlepara(); /* Transpose paragraphs */
extern INT setfillcol(); /* Set fill column for justify. */
extern INT fillword(); /* Insert char with word wrap. */
/*
* Defined by "random.c".
*/
extern INT showcpos(); /* Show the cursor position */
extern INT twiddle(); /* Twiddle characters */
extern INT twiddleword(); /* twiddle words */
extern INT quote(); /* Insert literal */
extern INT openline(); /* Open up a blank line */
extern INT newline(); /* Insert newline */
extern INT newlineclassic(); /* Insert newline, classic */
extern INT deblank(); /* Delete blank lines */
extern INT justone(); /* Delete extra whitespace */
extern INT delwhite(); /* Delete all whitespace */
extern INT indent(); /* Insert newline, then indent */
extern INT indentsame(); /* Newline, indent same */
extern INT forwdel(); /* Forward delete */
extern INT backdel(); /* Backward delete in */
extern INT backdeluntab(); /* Backward delete untabify */
extern INT killline(); /* Kill forward */
extern INT killwholeline(); /* Kill whole line */
extern INT yank(); /* Yank back from killbuffer. */
extern INT deletetrailing(); /* Delete trailing whitespace */
extern INT no_break(); /* Change/insert no-break character */
extern INT joinline(); /* Join lines */
extern INT joinline_forward(); /* Join lines, default forward */ // Mg3a extension
extern INT insert_tab(); /* Insert soft/hard tab */
extern INT insert_tab_8(); /* Insert tab of size 8 */
extern INT comment_line(); /* comment line */
/*
* Defined by "region.c".
*/
extern INT killregion(); /* Kill region. */
extern INT copyregion(); /* Copy region to kill buffer. */
extern INT deleteregion(); /* Delete the region */
extern INT lowerregion(); /* Lower case region. */
extern INT upperregion(); /* Upper case region. */
extern INT prefixregion(); /* Prefix all lines in region */
extern INT setprefix(); /* Set line prefix string */
extern INT appendnextkill(); /* Append next kill */
extern INT tabregionright(); /* Shift region n tabs right */
extern INT tabregionleft(); /* Shift region n tabs left */
#ifdef INDENT_RIGIDLY
extern INT indent_rigidly(); /* Shift region like in Emacs */
#endif
/*
* Defined by "search.c".
*/
extern INT word_search_mode(); /* Word search mode */
extern INT case_fold_mode(); /* Case fold search mode */
extern INT forwsearch(); /* Search forward */
extern INT backsearch(); /* Search backwards */
extern INT searchagain(); /* Repeat last search command */
extern INT forwisearch(); /* Incremental search forward */
extern INT backisearch(); /* Incremental search backwards */
extern INT queryrepl(); /* Query replace */
#ifdef SEARCHALL
extern INT forwsearchall(); /* Forward search in all buffers */
extern INT backsearchall(); /* Backward search in all buffers */
#endif
#ifdef SEARCHSIMPLE
extern INT searchsimple(); /* Simple search */
#ifdef SEARCHALL
extern INT searchallsimple(); /* Simple search, all buffers */
#endif
#endif
/*
* Defined by "spawn.c".
*/
extern INT spawncli(); /* Run CLI in a subjob. */
extern INT shellcommand(); /* Run command, capture output */
extern INT yank_process(); /* Variant of shell-command */
extern INT setshell(); /* Override shell */
#if TESTCMD
/*
* Defined by "testcmd.inc".
*/
extern INT testcmd(); /* Test command */
#endif
/*
* Defined by "ucs.c".
*/
extern INT showbytes(); /* Show bytes of character */
extern INT explode(); /* Explode combined key sequence */
extern INT implode(); /* Implode combined key sequence */
extern INT insert_unicode(); /* Insert Unicode character */
extern INT insert_unicode_hex(); /* Insert Unicode character (hex) */
extern INT insert_8bit(); /* Insert 8-bit character */
extern INT insert_8bit_hex(); /* Insert 8-bit character (hex) */
extern INT ucs_insert(); /* Emulate Emacs ucs-insert */
#ifdef UCSNAMES
/*
* Defined by "ucsnames.c"
*/
extern INT set_unicode_data(); /* Set Unicode data file */
extern INT list_unicode(); /* List Unicode data */
#endif
/*
* Defined by "undo.c"
*/
extern INT undo(); /* Emacs-like undo */
extern INT undo_only(); /* Emacs-like undo-only */
extern INT redo(); /* Redo */
extern INT undo_boundary(); /* Introduce undo boundary */
#ifdef LIST_UNDO
extern INT list_undo(); /* List undo list contents */
#endif
/*
* Defined by "variables.c".
*/
extern INT setvar(); /* Set named variable */
extern INT listvars(); /* List variables */
extern INT localsetvar(); /* Set local named variable */
extern INT localunsetvar(); /* Unset local named variable */
extern INT localsettabs(); /* Set local tab variables */
/* defined by "version.c" */
extern INT showversion(); /* Show version numbers, etc. */
/*
* Defined by "window.c".
*/
extern INT recenter(); /* Recenter window */
extern INT recentertopbottom(); /* Recenter like in Emacs */
extern INT movetoline(); /* Move to window line */
extern INT movetoline_topbottom(); /* Move to window line top bottom */
extern INT refresh(); /* Refresh the screen */
extern INT nextwind(); /* Move to the next window */
extern INT prevwind(); /* Move to the previous window */
extern INT onlywind(); /* Make current window only one */
extern INT splitwind(); /* Split current window */
extern INT delwind(); /* Delete current window */
extern INT enlargewind(); /* Enlarge display window. */
extern INT shrinkwind(); /* Shrink window. */
extern INT quitwind(); /* Quit window from Emacs */
extern INT balancewind(); /* Balance window areas */
extern INT shrinkwind_iflarge(); /* Shrink window if larger than buffer */
/*
* Defined by "word.c".
*/
extern INT backword(); /* Backup by words */
extern INT forwword(); /* Advance by words */
extern INT upperword(); /* Upper case word. */
extern INT lowerword(); /* Lower case word. */
extern INT capword(); /* Initial capitalize word. */
extern INT delfword(); /* Delete forward word. */
extern INT delbword(); /* Delete backward word. */
/* initial keymap declarations, deepest first. Tag:keymaps */
static PF metalbA[] = { /* <ESC>[ */
backline, /* A */
forwline, /* B */
forwchar, /* C */
backchar, /* D */
#ifdef MOUSE
rescan, /* E */
rescan, /* F */
rescan, /* G */
rescan, /* H */
rescan, /* I */
rescan, /* J */
rescan, /* K */
rescan, /* L */
mousemsg, /* M */
#endif
};
static PF metaOA[] = { /* <ESC>O */
backline, /* A */
forwline, /* B */
forwchar, /* C */
backchar, /* D */
};
static struct KEYMAPE(1) metalbmap = {
1,
1,
rescan,
{
#ifdef MOUSE
{'A', 'M', metalbA, NULL},
#else
{'A', 'D', metalbA, NULL},
#endif
}
};
static struct KEYMAPE(1) metaOmap = {
1,
1,
rescan,
{
{'A', 'D', metaOA, NULL},
}
};
static PF cHcG[] = {
ctrlg, /* ^G */
help_help, /* ^H */
};
static PF cHa[] = {
apropos_command,/* a */
wallchart, /* b */
desckey, /* c */
};
static struct KEYMAPE(2) helpmap = {
2,
2,
rescan,
{
{CCHR('G'),CCHR('H'), cHcG, NULL},
{'a', 'c', cHa, NULL},
}
};
static PF cX4cF[] = {
poptofile, /* ^f */
ctrlg, /* ^g */
rescan, /* ^h */
rescan, /* ^i */
#ifdef DIRED
d_jump_otherwindow, /* ^j */
#else
rescan, /* ^j */
#endif
};
static PF cX40[] = {
killbuffer_andwindow, /* 0 */
};
static PF cX4b[] = {
poptobuffer, /* b */
rescan, /* c */
#ifdef DIRED
d_otherwindow, /* d */
#else
rescan, /* d */
#endif
rescan, /* e */
poptofile, /* f */
};
static PF cX4r[] = {
poptofile_readonly, /* r */
};
static struct KEYMAPE(4) cX4map = {
4,
4,
rescan,
{
{CCHR('F'),CCHR('J'), cX4cF, NULL},
{'0', '0', cX40, NULL},
{'b', 'f', cX4b, NULL},
{'r', 'r', cX4r, NULL},
}
};
static PF cXcB[] = {
listbuffers, /* ^B */
quit, /* ^C */
rescan, /* ^D */
rescan, /* ^E */
filevisit, /* ^F */
ctrlg, /* ^G */
rescan, /* ^H */
#ifdef INDENT_RIGIDLY
indent_rigidly, /* ^I */
#else
rescan, /* ^I */
#endif
#ifdef DIRED
d_jump, /* ^J */
#else
rescan, /* ^J */
#endif
};
static PF cXcL[] = {
lowerregion, /* ^L */
rescan, /* ^M */
rescan, /* ^N */
deblank, /* ^O */
rescan, /* ^P */
toggle_readonly,/* ^Q */
filevisit_readonly, /* ^R */
filesave, /* ^S */
rescan, /* ^T */
upperregion, /* ^U */
rescan, /* ^V */
filewrite, /* ^W */
swapmark, /* ^X */
};
static PF cXlp[] = {
start_kbd_macro, /* ( */
end_kbd_macro, /* ) */
rescan, /* * */
balancewind, /* + */
rescan, /* , */
shrinkwind_iflarge, /* - */
rescan, /* . */
rescan, /* / */
delwind, /* 0 */
onlywind, /* 1 */
splitwind, /* 2 */
rescan, /* 3 */
prefix, /* 4 */
};
static PF cXeq[] = {
showcpos, /* = */
};
static PF cXcar[] = {
enlargewind, /* ^ */
rescan, /* _ */
rescan, /* ` */
rescan, /* a */
usebuffer, /* b */
rescan, /* c */
#ifdef DIRED
dired, /* d */
#else
rescan, /* d */
#endif
call_last_kbd_macro, /* e */
setfillcol, /* f */
gotoline, /* g */
markwholebuffer, /* h */
fileinsert, /* i */
rescan, /* j */
killbuffer, /* k */
rescan, /* l */
rescan, /* m */
nextwind, /* n */
nextwind, /* o */
prevwind, /* p */
rescan, /* q */
rescan, /* r */
savebuffers, /* s */
rescan, /* t */
undo, /* u */
};
static struct KEYMAPE(5) cXmap = {
5,
5,
rescan,
{
{CCHR('B'),CCHR('J'), cXcB, NULL},
{CCHR('L'),CCHR('X'), cXcL, NULL},
{'(', '4', cXlp, (KEYMAP *)&cX4map},
{'=', '=', cXeq, NULL},
{'^', 'u', cXcar, NULL},
}
};
static PF metacG[] = {
ctrlg, /* ^G */
};
static PF metacV[] = {
pagenext, /* ^V */
appendnextkill, /* ^W */
};
static PF metasp[] = {
justone, /* space */
shellcommand, /* ! */
};
static PF metapct[] = {
queryrepl, /* % */
};
static PF metami[] = {
negative_argument, /* - */
rescan, /* . */
rescan, /* / */
digit_argument, /* 0 */
digit_argument, /* 1 */
digit_argument, /* 2 */
digit_argument, /* 3 */
digit_argument, /* 4 */
digit_argument, /* 5 */
digit_argument, /* 6 */
digit_argument, /* 7 */
digit_argument, /* 8 */
digit_argument, /* 9 */
evalexpr, /* : */
comment_line, /* ; */
gotobob, /* < */
rescan, /* = */
gotoeob, /* > */
};
static PF metaO[] = {
prefix, /* O */
};
static PF metalb[] = {
prefix, /* [ */
delwhite, /* \ */
rescan, /* ] */
joinline, /* ^ */
rescan, /* _ */
rescan, /* ` */
rescan, /* a */
backword, /* b */
capword, /* c */
delfword, /* d */
rescan, /* e */
forwword, /* f */
rescan, /* g */
markpara, /* h */
insert_tab_8, /* i */
};
static PF metal[] = {
lowerword, /* l */
backtoindent, /* m */
rescan, /* n */
rescan, /* o */
rescan, /* p */
fillpara, /* q */
movetoline_topbottom, /* r */
forwsearch, /* s */
twiddleword, /* t */
upperword, /* u */
backpage, /* v */
copyregion, /* w */
extend, /* x */
rescan, /* y */
rescan, /* z */
gotobop, /* lbrace */
rescan, /* | */
gotoeop, /* rbrace */
notmodified, /* ~ */
delbword, /* DEL */
};
static struct KEYMAPE(8) metamap = {
8,
8,
rescan,
{
{CCHR('G'),CCHR('G'), metacG, NULL},
{CCHR('V'),CCHR('W'), metacV, NULL},
{' ', '!', metasp, NULL},
{'%', '%', metapct, NULL},
{'-', '>', metami, NULL},
{'O', 'O', metaO, (KEYMAP *)&metaOmap},
{'[', 'i', metalb, (KEYMAP *)&metalbmap},
{'l', CCHR('?'), metal, NULL},
}
};
static PF fund_at[] = {
setmark, /* ^@ */
gotobol, /* ^A */
backchar, /* ^B */
rescan, /* ^C */
forwdel, /* ^D */
gotoeol, /* ^E */
forwchar, /* ^F */
keyboard_quit, /* ^G */
prefix, /* ^H */
};
static PF fund_CI[] = {
insert_tab, /* ^I */
indent, /* ^J */
killline, /* ^K */
recentertopbottom, /* ^L */
newline, /* ^M */
forwline, /* ^N */
openline, /* ^O */
backline, /* ^P */
quote, /* ^Q */
backisearch, /* ^R */
forwisearch, /* ^S */
twiddle, /* ^T */
universal_argument, /* ^U */
forwpage, /* ^V */
killregion, /* ^W */
prefix, /* ^X */
yank, /* ^Y */
spawncli, /* ^Z */
};
static PF fund_esc[] = {
prefix, /* esc */
rescan, /* ^\ */ /* selfinsert is default on fundamental */
rescan, /* ^] */
rescan, /* ^^ */
undo, /* ^_ */
};
static PF fund_rp[] = {
showmatch, /* ) */
};
static PF fund_del[] = {
backdel, /* DEL */
};
static struct KEYMAPE(5) fundmap = {
5,
5,
selfinsert,
{
{CCHR('@'),CCHR('H'), fund_at, (KEYMAP *)&helpmap},
{CCHR('I'),CCHR('Z'), fund_CI, (KEYMAP *)&cXmap},
{CCHR('['),CCHR('_'), fund_esc, (KEYMAP *)&metamap},
{')', ')', fund_rp, NULL},
{CCHR('?'),CCHR('?'), fund_del, NULL},
}
};
static PF fill_sp[] = {
fillword, /* ' ' */
};
static struct KEYMAPE(1) fillmap = {
1,
1,
rescan,
{
{' ', ' ', fill_sp, NULL},
}
};
static PF indent_lf[] = {
newline, /* ^J */
rescan, /* ^K */
rescan, /* ^L */
indent, /* ^M */
};
static struct KEYMAPE(1) indntmap = {
1,
1,
rescan,
{
{CCHR('J'), CCHR('M'), indent_lf, NULL},
}
};
#ifdef DIRED
/* Tag:diredmaps */
static PF diredctrld[] = {
d_del, /* ^D */
};
static PF diredcm[] = {
d_findfile, /* ^M */
};
static PF diredsp[] = {
forwline, /* SP */
};
static PF diredplus[] = {
d_createdir, /* + */
};
static PF dired1[] = {
d_ffonewindow, /* 1 */
};
static PF diredlt[] = {
d_prevdir, /* < */
rescan, /* = */
d_nextdir, /* > */
wallchart, /* ? */
};
static PF diredup[] = {
d_updir, /* ^ */
};
static PF diredc[] = {
d_copy, /* c */
d_del, /* d */
d_findfile, /* e */
d_findfile, /* f */
filerevert, /* g */
wallchart, /* h */
};
static PF diredn[] = {
forwline, /* n */
d_ffotherwindow,/* o */
backline, /* p */
quitwind, /* q */
d_rename, /* r */
rescan, /* s */
rescan, /* t */
d_undel, /* u */
rescan, /* v */
rescan, /* w */
d_expunge, /* x */
};
static PF direddl[] = {
d_undelbak, /* del */
};
static struct KEYMAPE(10) diredmap = {
10,
10,
rescan,
{
{CCHR('D'), CCHR('D'), diredctrld, NULL},
{CCHR('M'), CCHR('M'), diredcm, NULL},
{' ', ' ', diredsp, NULL},
{'+', '+', diredplus, NULL},
{'1', '1', dired1, NULL},
{'<', '?', diredlt, NULL},
{'^', '^', diredup, NULL},
{'c', 'h', diredc, NULL},
{'n', 'x', diredn, NULL},
{CCHR('?'), CCHR('?'), direddl, NULL},
}
};
#endif
/* Tag:bufedmaps, Tag:bufmenumaps */
static PF bufedctrlm[] = {
bufed_gotobuf, /* ^M */
rescan, /* ^N */
bufed_gotobuf_switch_other, /* ^O */
};
static PF bufed1[] = {
bufed_gotobuf_one, /* 1 */
bufed_gotobuf_two, /* 2 */
};
static PF bufedquest[] = {
wallchart, /* ? */
};
static PF bufede[] = {
bufed_gotobuf, /* e */
bufed_gotobuf, /* f */
rescan, /* g */
wallchart, /* h */
};
static PF bufedo[] = {
bufed_gotobuf_other, /* o */
rescan, /* p */
quitwind, /* q */
};
static struct KEYMAPE(5) bufedmap = {
5,
5,
rescan,
{
{CCHR('M'), CCHR('O'), bufedctrlm, NULL},
{'1', '2', bufed1, NULL},
{'?', '?', bufedquest, NULL},
{'e', 'h', bufede, NULL},
{'o', 'q', bufedo, NULL},
}
};
/* Tag:helpbufmaps */
static PF helpbufquest[] = {
wallchart, /* ? */
};
static PF helpbufh[] = {
wallchart, /* h */
};
static PF helpbufq[] = {
quitwind, /* q */
};
static struct KEYMAPE(3) helpbufmap = {
3,
3,
rescan,
{
{'?', '?', helpbufquest, NULL},
{'h', 'h', helpbufh, NULL},
{'q', 'q', helpbufq, NULL},
}
};
#ifdef LANGMODE_C
/* Keymaps */
static PF cmode_preproc[] = {
cc_preproc, /* # */
};
static PF cmode_brace[] = {
cc_brace, /* } */
};
static PF cmode_cCP[] = {
rescan,
// compile, /* C-c P */
};
static PF cmode_cc[] = {
prefix, /* ^C */
// NULL, /* ^C */
rescan, /* ^D */
rescan, /* ^E */
rescan, /* ^F */
rescan, /* ^G */
rescan, /* ^H */
cc_tab, /* ^I */
rescan, /* ^J */
rescan, /* ^K */
rescan, /* ^L */
cc_lfindent, /* ^M */
};
static PF cmode_spec[] = {
cc_char, /* : */
};
static struct KEYMAPE (1) cmode_cmap = {
1,