Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/tekheath.elib
There are no other files named tekheath.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
]J&
R/>7
C

N/Wtg
$s	|}AEU$

a5sASM^[iVvYr;$3

Q=

KD>#& Heath Prefix Character Driver& Setup TEKHEATH Library& Skip to CharSet 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 TEKHEATH 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~'@:i*|=u|FSImageOut
128M(m.mMake Prefix Char).YU
M(m.mMake Prefix Char).ZU:.Y(?)
m.m& Heath Prefix Character DriverU.P
M(m.m& Load Bare)
m.mSet Heath Key
00MS^R Prefix Meta
01MS^R Backward Word
02MS^R Down Real Line
03MS^R Forward Word
04MS^R Backward Character
05MS^R Next Screen
06MS^R Forward Character
07MS^R Beginning of Line
08MS^R Up Real Line
09MS^R End of Line
10MS^R Prefix Control-Meta
11MS^R Backward Kill Word
12MS^R Forward Paragraph
13MS^R Kill Word
14MS^R Backward Delete Character
15MS^R Previous Screen
16MS^R Delete Character
17MS^R Goto Beginning
18MS^R Backward Paragraph
19MS^R Goto End
20MS^R Prefix Control
21MSGrind Sexp
22MS^R Exit
23MSSelect Buffer
25MSList Buffers
26MS^R Kill Region
27MS^R Fill Paragraph
28MS^R Set/Pop Mark
29MS^R Call Last Kbd Macro
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..QTEKHEATH Setup HookF"N[1M1'
0B[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,fFunction: [1
m.m1[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)
09[0[1
FF-1"GU0'
"#
QSkip/Zap State Vector
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:S0F(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

TEKHEATH Commands to use Heath keypadgS 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 $TEKHEATH 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.PC 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).FS 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/zapr& Setup TEKHEATH 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