Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/vt100.elib
There are no other files named vt100.elib in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   y|		A	g["i.
7=BQKwZ,cCj
Fz@

q17$E5Qaco
1y
-!& Setup VT100 Library
C80 ModeVT100 Alternate KeypadVT100 Normal KeypadVT100 Page Mode^R VT100 Arg Digit^R VT100 Comma^R VT100 Define Kbd Macro^R VT100 Minus~DIRECTORY~~DOC~ & Setup VT100 Library~DOC~ C132 Mode~DOC~ C80 Mode ~DOC~ VT100 Alternate Keypad~DOC~ VT100 Normal Keypad~DOC~ VT100 Page Mode~DOC~ ^R VT100 Arg Digit~DOC~ ^R VT100 Comma#~DOC~ ^R VT100 Define Kbd Macro~DOC~ ^R VT100 Minus~DOC~ ~Filename~~Filename~
~INVERT~+	[0[1
0fo..qExit to Inferior hooku1
fq1"l:i1'
@:i*`1wm(m.mVT100 Normal Keypad)`m.vExit to Inferior Hook
0fo..qExit to Superior Hooku1
fq1"l:i1'
@:i*`1wm(m.mVT100 Normal Keypad)`m.vExit to superior hook
0fo..qReturn From Superior hooku1
fq1"l:i1'
@:i*`1wm(m.mVT100 Alternate Keypad)`m.vReturn From Superior hook
0fo..qReturn From Inferior hooku1
fq1"l:i1'
@:i*`1wm(m.mVT100 Alternate Keypad)`m.vReturn From Inferior Hook
m(m.mVT100 Alternate Keypad)
0"n
fsosteco"n
m(m.aTRMTYP# Trmtyp VT100V)-fsrgetty"'e+(
m(m.aTRMTYP# Trmtyp VT100X)-fsrgetty"'e)"n
FTVT100 library works with terminal in ANSII mode only.
Use terminal type VT100 or VT100W.'''
m.vVT100 Dispatch Table
128m(m.mMake Prefix Char)VT100 Dispatch Tableu..O
qVT100 Dispatch Table[0
qPrefix Char List[3
:iPrefix Char List3Keypad  qVT100 Dispatch Table

m.m^R Up Real Lineu:0(A)
m.m^R Down Real Lineu:0(B)
2fs^RInitu:0(D)
6fs^RInitu:0(C)
m.m^R VT100 Define KBD Macu:0(M)
m.m^R VT100 Commau:0(l)
m.m^R VT100 Minusu:0(m)
m.m^R Documentationu:0(n)
m.m^R VT100 Arg Digit[1
p-1[2
10<q1u:0(%2)>
0fo..qVT100 Setup Hooku1
q1"nm1'
:I*=[?1hFSIMAGEOUT:I*[?1l>FSIMAGEOUTjfstyisink"e
F@:m(m.m^R Start Kbd Macro)'
"#
1m(m.m^R End Kbd Macro)
m(m.mName Kbd Macro)'
!-u..1:m(q..1+200.@fs^RInit))q..1-p+0u..0:m(q..0+200.@fs^RInit)_0fs^RArg0fs^RArgp
,@m(@fif(f(fs^Rlastw)u..0)@fs^RCmacro)@v
<fs^RLast:@;
,(fs^RArgp"n
fs^RArgp&2"nfs^RArgp&4"n-1*'(fs^Rarg)'"#1[0fs^RExpt<q0*4u0>q0(]0)'(
)')@m(@fif(f(fs^Rlastw)u..0)@fs^RCmacro)@v>
0Mm(m.mVT100 Page Mode)
:i*[?3hfsimageout
131fswidth
-1fspjatyf+N-1m(m.mVT100 Page Mode)
:i*[?3lfsimageout
79fswidth
-1fspjatyf+=fsrunt&1"E!"!:FTYou poor loser!
Haven't you learned YET never to buy DEC terminals?'
"#:FTYou should sell this piece of junk
and buy an Ann Arbor Ambassador!'
FT

900U..H
"L
Q.SFO..QSearch CommandU.S
M.VSearch Quote
m.m^R Quoted InsertU.Q
Q.BU
1fsttpagwfsttyinit
'
-1fsttpagmode
:i*-1fsttpagmodeU.S
:i*-1fsttpagmodeU.Q
0fo..qSearch Command"e
m.vSearch Command'
0fo..qSearch Quote"e
m.vSearch Quote'
QSearch CommandU.\
Q:.X()U:.X(S)
Q:.X()U:.X(~)
:i*21.iU..*
m.m^R Quoted Insert,8fs^RCMAC
	VT100*A library for hacking EMACS on VT100'sVThings to do when this library loads
Define keypad handler, Redefine ^X), etc... qC Sets alternate keypad mode for VT100's
When this command is executed, the numeric keypad can be used to enter
arguments for the following function.  Numbers are entered as themselves,
dot and "enter" key on the pad are also changed.oC Undos alternate keypad mode for VT100's
When this command is executed from a VT100, the keys on the keypad become
functionally identical to the standard digit keys.  See VT100 Alternate Keypad
for a description of the alternative.g^R Start or Stop defining kbd macro.
When stopping, we ask for a key to to place the kbd macro on.^R Negate numeric argument.!^R Digit of numeric argument.^R Run precomma arg0C Put VT100 in 132 column mode and change ^S/^Q
^R Incremental search becomes ^\. ^Q inside search becomes ^^.
Outside of searches, you must use ^^Q to quote a character.1C Put Vt100 in 80 column mode (see C132 Mode)$C Set Page Mode and change incremental search cmds.
 C-X C-S becomes C-X S
 C-X C-Q becomes C-X ~
 C-S becomes C-\
 C-Q within a search becomes C-^
 C-Q outside a search becomes C-^ Q (or C-` Q on VT100 kbd).

To insert a bare ^Q type M-*.

A negative arg turns this lossage off.=& Setup VT100 Library
VT100 Alternate Keypad
VT100 Normal Keypad
^R VT100 Define Kbd Macro
^R VT100 Minus
^R VT100 Arg Digit
^R VT100 Comma
C132 Mode
C80 Mode
VT100 Page Mode
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2