blob: 87674e8e1d45e11124e0c0acee6ce97614a03001 (
plain)
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
|
! 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 !
@#c{{U.c
<-A- ("=-D1;' -D>
.">
-A- )"= -S(\U.v .,Z-2D 0A- C"=2DQ.v|2D-Q.v'%.c | I(Q.c '
| I(Q.c '
"> Q.c\IC) | -Q.c\IR) '
}}
! Make DELETE an alternative to ESCAPE !
@[DC]{}
! Make SHIFT+DELETE a rubout/re-insert key.
This reverses the ^G modifier for BACKSPACE !
@[SDC]{}
@[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.p-.M#c
}
@[HOME]{(M[HOME]}
@[END]{
.ESLINEFROMPOSITIONESGETLINEENDPOSITION-.M#c
}
@[END]{(M[END]}
@[NPAGE]{
.ESLINEFROMPOSITION+(ESLINESONSCREEN)
ESPOSITIONFROMLINEU.p
Q.p"< Z | Q.p '-.M#c
}
@[NPAGE]{(M[NPAGE]}
@[PPAGE]{
.ESLINEFROMPOSITION-(ESLINESONSCREEN)U.l
Q.l"< 0 | Q.lESPOSITIONFROMLINE '-.M#c
}
@[PPAGE]{(M[PPAGE]}
@[LEFT]{
."=0|-1'M#c
}
@[LEFT]{(M[LEFT]}
@[SLEFT]{
0,0,.ESWORDSTARTPOSITIONESWORDSTARTPOSITION-.M#c
}
@[SLEFT]{(M[SLEFT]}
@[RIGHT]{
.-Z"=0|1'M#c
}
@[RIGHT]{(M[RIGHT]}
@[SRIGHT]{
0,0,.ESWORDENDPOSITIONESWORDENDPOSITION-.M#c
}
@[SRIGHT]{(M[SRIGHT]}
@[UP]{
.ESGETCOLUMN
(.ESLINEFROMPOSITION-1)
ESFINDCOLUMN-.M#c
}
@[UP]{(M[UP]}
@[DOWN]{
.ESGETCOLUMN
(.ESLINEFROMPOSITION+1)
ESFINDCOLUMN-.M#c
}
@[DOWN]{(M[DOWN]}
|
