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
|
!*
* Here we define some reasonable default function key macros.
* Their corresponding command-line editing macros begin with .
*!
!*
* Edit command line to move <n> chars, updating existing move ops.
* The command line at the time of call looks like: (123C)(M[FOO
*!
@#c{{U.c
<-A- ("=-D1;' -D>
.-4"< Oins ' -2A- C"N -2A- R"N Oins ' ' -A- )"N Oins '
<R -A- ("=1;'>
\U.v .-1,Z-2D 0A- R"=-'Q.v%.c 2D
!ins!
I( Q.c"> Q.c\IC | -Q.c\IR ' I)
}}
!*
* Make DELETE an ESCAPE surrogate.
* Macro is enabled everywhere.
*!
@[DC]{}
!*
* Make SHIFT+DELETE a rubout/re-insert key.
* This reverses the ^G modifier for BACKSPACE.
* The macro is enabled everywhere.
*!
@[SDC]{}
!*
* Command line editing macros.
* They are enabled only in the start state (i.e. they
* have no effect in string arguments, etc.).
*!
@[HOME]{
.ESLINEFROMPOSITIONESPOSITIONFROMLINEU.p
Q.pU.l <Q.l-."U 1; ' Q.l-.AU.c Q.c- "N Q.c-9"N Q.lU.p 1; '' %.l>
Q.pESGETCOLUMN,4EJ
Q.p-.M#c
}
@[HOME]{(M[HOME]}
1 U[HOME]
@[END]{
.ESLINEFROMPOSITIONESGETLINEENDPOSITIONU.p
Q.pESGETCOLUMN,4EJ
Q.p-.M#c
}
@[END]{(M[END]}
1 U[END]
@[NPAGE]{
0,4EJ
.ESLINEFROMPOSITION+(ESLINESONSCREEN)
ESPOSITIONFROMLINEU.p
Q.p"< Z | Q.p '-.M#c
}
@[NPAGE]{(M[NPAGE]}
1 U[NPAGE]
@[PPAGE]{
0,4EJ
.ESLINEFROMPOSITION-(ESLINESONSCREEN)U.l
Q.l"< 0 | Q.lESPOSITIONFROMLINE '-.M#c
}
@[PPAGE]{(M[PPAGE]}
1 U[PPAGE]
@[LEFT]{
."=0|.-1'U.p
Q.pESGETCOLUMN,4EJ
Q.p-.M#c
}
@[LEFT]{(M[LEFT]}
1 U[LEFT]
@[SLEFT]{
0,0,.ESWORDSTARTPOSITIONESWORDSTARTPOSITIONU.p
Q.pESGETCOLUMN,4EJ
Q.p-.M#c
}
@[SLEFT]{(M[SLEFT]}
1 U[SLEFT]
@[RIGHT]{
.-Z"=.|.+1'U.p
Q.pESGETCOLUMN,4EJ
Q.p-.M#c
}
@[RIGHT]{(M[RIGHT]}
1 U[RIGHT]
@[SRIGHT]{
0,0,.ESWORDENDPOSITIONESWORDENDPOSITIONU.p
Q.pESGETCOLUMN,4EJ
Q.p-.M#c
}
@[SRIGHT]{(M[SRIGHT]}
1 U[SRIGHT]
@[UP]{
4EJ(.ESLINEFROMPOSITION-1)ESFINDCOLUMN-.M#c
}
@[UP]{(M[UP]}
1 U[UP]
@[DOWN]{
4EJ(.ESLINEFROMPOSITION+1)ESFINDCOLUMN-.M#c
}
@[DOWN]{(M[DOWN]}
1 U[DOWN]
@[CLOSE]{(EX)}
1 U[CLOSE]
!*
* Zoom with F9/F10 if function keys are enabled.
* This is automatically rubbed out.
*!
@[F9]{(ESZOOMOUT{-13D}}
1 U[F9]
@[F10]{(ESZOOMIN{-12D}}
1 U[F10]
!* enable function key (macro) support *!
0,64ED
|
