Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/heath2.elib
There are no other files named heath2.elib in the archive.
P W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
H %
z . f 6
: B
- M V V
f
L r
$ | h j z # 9 g | t a " 8 1
x ;
s B b# & Heath Prefix Character Driver & Setup HEATH2 Library & Skip to Char Set Heath Key ^R Bottom of Screen ^R Repeat Skip/Zap ^R Reverse Skip ^R Reverse Zap to Character ^R Skip to Character ^R Top of Screen ^R Zap to Character ~DIRECTORY~) ~DOC~ & Heath Prefix Character Driver ~DOC~ & Setup HEATH2 Library ~DOC~ & Skip to Char ~DOC~ Set Heath Key ~DOC~ ^R Bottom of Screen ~DOC~ ^R Repeat Skip/Zap ~DOC~ ^R Reverse Skip% ~DOC~ ^R Reverse Zap to Character ~DOC~ ^R Skip to Character ~DOC~ ^R Top of Screen ~DOC~ ^R Zap to Character ~DOC~ ~FILENAME~ ~FILENAME~
~INVERT~z @:i*|=u|FSImageOut
128M(m.mMake Prefix Char).YU
M(m.mMake Prefix Char).ZU:.Y( ?)
M(m.mMake Prefix Char).ZU:.Y( O)
m.m& Heath Prefix Character DriverU.P
M(m.m& Load Bare)
m.mSet Heath Key[S
2MS^R Down Real Line
12MS^R Forward Paragraph
4MS^R Backward Character
14MS^R Backward Word
6MS^R Forward Character
16MS^R Forward Word
8MS^R Up Real Line
18MS^R Backward Paragraph
0MS^R Goto Beginning
10MS^R Extended Command
20MS^R Goto End
1MS^R Backward Delete Character
11MS^R Backward Kill Word
3MS^R Delete Character
13MS^R Kill Word
5MS^R Next Screen
15MS^R Previous Screen
7MS^R Reverse Skip
17MS^R Reverse Zap to Character
9MS^R Skip to Character
19MS^R Zap to Character
21MS^R Prefix Meta
22MS^R Set/Pop Mark
23MS^R Narrow Bounds to Region
24MS^R Widen Bounds
25MS^R Indent Rigidly
26MS^R Kill Region
27MS^R Other Window
28MS^R Query Replace
29MS^R Fill Paragraph
30MS^R Copy Region
35FSQVector[1
:i*Skip to: U:1(3)
:i*Skip back to: U:1(4)
:i*Zap to: U:1(5)
:i*Zap back to: U:1(6)
Q1M.VSkip/Zap State Vector
]1
0FO..QHEATH2 Setup HookF"N[1M1'
0 B [00F[HelpMac
-Q.X"EM.I'
FIU0
FQ()-640"LQ0:FCU0'
F]HelpMac
Q0-4110."N
Q0U..1
Q:()(Q0)F"EQ:()(Q0:FC)F"EW:I*FG'' '
FS^RLASTU0
Q0,(Q0@FS^RCMAC)M(M.M& Prefix Describe)
:I*0 | FF-1"G[2[1'
"#9,f Function: [1
m.m 1[2'
FF&1"N
-10"LQ2U:.Z(+ P)
Q2U:.Y(+ p)0 '
-10"EQ2U:.Z( N)
Q2U:.Y( n)0 '
-20"EQ2U:.Z( M)
Q2U:.Y( m)0 '
-11:G(:i*LBMDHC@AN STUVWJPQRE)[3
Q2U:.Y(Q3)
0 '
Q2M(m.m& Macro Name)U1
@FTPut 1 on special key:
:i*M.I
FI-33."N:i*Not a special keyFSErr'
FIU1
Q1- ?"EFIU1
Q2U:.Z(Q1:FC)
Q2U:.Y(Q1)0 '
Q2U:.Y(Q1)0 , "L-1'"#0':M(m.m^R Move to Screen Edge)$ -1:M(m.m^R Move to Screen Edge)\ 0U:Skip/Zap State Vector(2)
.F(F@M(m.m& Skip to Char))M(m.m& Maybe Push Point)
0 9 [0[1
FF-1"GU0'
"#
QSkip/Zap State Vector[S
Q:S(Q:S(2)"NQ1"L6'"#5''"#Q1"L4'"#3'')M.I
FI:FCU0
Q0u:S(0)Q1u:S(1)'
Q1"G:C"EFG0FSErr''
Q1:S 0F(WQ1"GR')"E
FG0FSErr'
1 $ 0-@:M(M.M^R Skip to Character)g .[1
1u:Skip/Zap State Vector(2)
F@M(m.m& Skip to Char)
"LC'
.:q1J
:M(M.M^R Kill Region)# 0-@:M(M.M^R Zap to Character) [0[1QSkip/Zap State Vector[2
q:2(2)"Em.m^R Skip to Character'"#m.m^R Zap to Character'u0
q:2(1)"L0-Q1U1'
Q1u:2(1)
q:2(0),q1:M0
HEATH2 Commands to use Heath keypade S Sets up heath keypad.
Makes the obvious assignments to the arrows, less obvious
ones to everything else. ESC becomes a prefix character,
with dispatch in .Y; ESC ? becomes another prefix character,
with dispatch in .Z. Q.P gets a modified Prefix driver to
make this all work. If $HEATH2 Setup Hook$ is defined, it is run
afterwards to make any additional assignments or changes; it can
access the function Set Heath Key (q.v.) by running MS, e.g.
<number>MS<function>} S M.P for Heath: handles prefix character.
Given a q-vector as argument, it reads a character
and returns the q-vector element it selects.
Difference between this and standard is that ? is not treated as help.
The character read is left in Q..1.P C Assigns a function to a Heath special key.
For best results, use ^R Instant Extended Command to invoke this.
String Argument is name of function to assign.
You will be prompted to type the key to put the function on.
Alternatively, if you are calling this from your init file, you can pass
the key as a numeric arg. In this case, the keys are coded as follows:
0-9 unshifted keypad digits
10 period
11-19 shifted keypad digits (can't shift zero)
20 ENTER (can't shift this, either)
21-29 the 9 keys across the top (f1-f5, ERASE, blue,red,gray)
30 Shift-ERASE.
You may also pass the function DEFINITION as a pre-comma arg, instead of
passing the function NAME as a string arg.F ^R Move cursor to top of screen.
With negative arg goes to bottom' ^R Move cursor to bottom of screen. ^R Skips to target character.
Skips forward to nth (or 1st) occurrence of next char typed.
Backward if arg is negative. Edit bit on target ignored.
Repeat Skip with ^R Repeat Skip/Zap .
Pre-comma arg gives char to search for (instead of reading it).F S Implements Skip to Character.
This is a separate routine so that ^R Skip to Character can
do the Auto Push Point Option. Optional pre-comma arg is the target char,
post-comma arg is repeaty ^R Search backward for target char.
I.e. likesatbackwards ^RgSkiphtoaCharacter . Repeat with ^R Repeat Skip/Zap .
Zap excludes target character. Negative arg zaps backward.
Repeat Zap with ^R Repeat Skip/Zap .t ^R Zap backward to target char.
I.e. like a backwards ^R Zap to Character . Repeat with ^R Repeat Skip/Zap .c ^R Repeat the last Skip/Zap command
regardless of any intervening commands other than skip/zapp & Setup HEATH2 Library
& Heath Prefix Character Driver
Set Heath Key
^R Top of Screen
^R Bottom of Screen
^R Skip to Character
& Skip to Char
^R Reverse Skip
^R Zap to Character
^R Reverse Zap to Character
^R Repeat Skip/Zap
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2