PDP-10 Archive: emacs/nvt52.elib from mit_emacs_170_teco

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/nvt52.elib

There are no other files named nvt52.elib in the archive.

PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
6!h)D2>>

ZP3[Bgqw6[

A"+1iA'MR\f{tai$1AC>QS[ObB&SetVVT52CModeoLine&ISetupRNVT52LibraryFix5PHOTOeFileVT52CALTERNATE KEYPADibrary~DOC~ Fix PHOTO File~DOC~ VT52 ALTERNATE KEYPAD~DOC~ VT52 Info~DOC~ VT52 NORMAL KEYPAD~DOC~ VT52 Number Keypad~DOC~ VT52 Transmit Keypad&~DOC~ ^R Delete Last Searched Item~DOC~ ^R Kill Real Line$~DOC~ ^R Proper Delete Character~DOC~ ^R VT52 Control-S~DOC~ ~Filename~~Filename~

~INVERT~,	0FO..QVT52 Setup Hook[0fq0"G:M0'
M.VVT52 SETUP HOOK
@:iVT52 SETUP HOOK/:i*CVT52 Library has already been loaded
fsechodisplay0fsechoactive/
1,M.M& Setup PAGE Library"E
M(M.MLoad Library)PAGE'
:i*M.VPage Setup Hook
qReal search macrom.vNon-VT52Control-S
M.M^R VT52 control-sM.VReal search macro
0M.CTemporary Vt52 storageIntermediate storage for VT52 mode
1M.CVT52 Mode!* Non-zero activates alternate Keypad!
1FSMODECH$
"'N-(q$Temporary Vt52 storage$"'N)"E'
"N:M(M.MVT52 Alternate Keypad$)'
  "#:M(M.MVT52 Normal Keypad$)'
M(M.M & SET VT52 MODE LINE)
0fo..qExit to Inferior Hookf"E
:i*M.VExit to Inferior HookW:i*'"#'[1
@:iExit to Inferior Hook|1WM(M.MVT52 NORMAL KEYPAD)|
0fo..qExit to superior hookf"E
:i*M.VExit To Superior Hookw:i*'"#'[2
@:iExit to superior hook|2WM(M.MVT52 NORMAL KEYPAD)|
0fo..qReturn From Inferior Hookf"E
:i*M.VReturn From Inferior HookW:i*'"#'[3
@:iReturn From Inferior Hook|3WM(M.MVT52 ALTERNATE KEYPAD)|
0fo..qReturn From Superior Hookf"E
:i*M.VReturn From Superior Hookw:i*'"#'[4
@:iReturn From Superior Hook|4WM(M.MVT52 ALTERNATE KEYPAD)|

:M(M.MVT52 ALTERNATE KEYPAD)9128M(M.MMAKE PREFIX CHARACTER).YU..?
M.M^R UP REAL LINEU..A
M.M^R DOWN REAL LINEU..B
6fs^RINITU..C
2fs^RinitU..D
M.M^R NEXT SCREENU:.Y(M)
M.M^R BACKWARD SENTENCEU:.X(S)
M.M^R KILL WORDu:.X(V)
M.M^R BACKWARD WORDU:.X(T)
M.M^R UPPERCASE INITIALU:.X(C)
M.M^R UP COMMENT LINEU:.X(Z)
M.M^R FILL PARAGRAPHU:.X(Q)
M.M^R MOVE TO SCREEN EDGEU....
M.M^R KILL REAL LINEU..P
M.M^R EXECUTE MINIBUFFERU..Q
M.M^R UN-KILLU..R
M.M^R PREVIOUS SCREENU:.Y(N)
14FS^RINITU:.Y(P)
M.M^R GOTO BEGINNINGU:.Y(Q)
M.M^R GOTO ENDU:.Y(R)
1FS^RINITU:.Y(S)
16FS^RINITU:.Y(T)
M.M^R Proper Delete CharacterU:.Y(U)
M.M^R Delete Last Searched ItemU:.Y(V)
15FS^RINITU:.Y(W)
1,M.M& SETUP PAGE LIBRARY"E
M.M^R NEXT PAGEU:.Y(X)'
"#qemacs version-138:"GM.M^R GO TO PAGEU:.Y(X)'
"#M.M^R goto pageu:.Y(X)''
M.M^R QUOTED INSERTU:.Y(Y)
@:I*/=/FSIMAGEOUT
.(f[bbind
gprefix char list
j:sMeta-?  "EJiMeta-?  Q.Y
'
HFXPrefix char list
f]bbind)J
1uTemporary Vt52 storage
1UVT52 MODE
7!<!@:I*/>/FSIMAGEOUT
M.M^R DESCRIBEU..?
.(f[bbind
gprefix char list
j:sMeta-?  "N0lk'
HFXPrefix char list
f]bbind)J
0uTemporary Vt52 storage
0UVT52 MODE
5	ft-----------------------------------------
| "BLUE"  |  "RED"  | "GREY"  |   "^"   |
|  Save   |  TECO   | Unsave  |  Up in  |       Redefinitions
|  text   | Command |  text   | column  |       -------------
|---------+---------+---------+---------|
|   "7"   |   "8"   |   "9"   |   "v"   |  ^R Backward Sentence         C-X S
|  Open   |  Page   |  Quote  | Down in |  ^R Kill Word                 C-X V
|  line   |         |  next   | column  |  ^R Backward Word             C-X T
|---------+---------+---------+---------|  ^R Uppercase Initial         C-X C
|   "4"   |   "5"   |   "6"   |   ">"   |  ^R Up Comment                C-X Z
|   Up    | Delete  | Delete  | Cursor  |  ^R Fill Paragraph            C-X Q
|  line   |Character|  last   |  right  |  ^R Move to Screen Edge       C-M .
|---------+---------+---------+---------|
|   "1"   |   "2"   |   "3"   |   "<"   |
|   Top   | Bottom  |  Start  | Cursor  |
| of page | of page | of line |  left   |
|---------+---------+---------+---------|
|        "0"        |   "."   | "ENTER" |
|     Down Line     |Previous |  Next   |
|                   |  Screen |  Screen |
|-------------------+---------+---------|

qSet Mode line hook[1
f[bbind
fq1"L:i1'
g1j
:@S/VT52 MODE/"E@I/
0FO..QVT52 MODE"NI VT52'/'
HXSET MODE LINE HOOK
1fsmodechange
-F"GM(4FS^RINIT)'
"#FS^RRUBOUT'
	[0[..O
QSEARCH DEFAULT RINGU..O
.FSWORDU0
]..O
-FQ0F~0"E-FQ0M(M.M& KILL TEXT)'
"#FQ0F~0"EFQ0M(M.M& KILL TEXT)''
:@M(M.M^R KILL LINE)
[8[9
FSRGETTY-4"E
j<:@s`j`;-2c.u8-sc.-q8u9q9d-q9d2d>
j<:@s`>
j<:s;fkd>
j<:s;fkd4<13i10i>>
j<:s
;r13i>'
jOm.i:fi[1
200.+Su..0
q1-"efiw1'
q1-"efiw'
f@mNon-VT52Control-S!<!@:I*/>/FSIMAGEOUT
@:I*/=/FSIMAGEOUT
	NVT52,VT52 Keypad Definitions and other MacrosQS Sets up the defaults for the VT52
keypad upon the entrance of the library.  The fork hooks are
defined so that the keypad is left in numeric mode upon
exiting.  There are keys that also get redefined.RC Sets alternate keypad mode for VT52's
then this command is executed, the keypad on the left and the arrow
keys are now executable commands.
  The terminal is put in CURSOR KEYS MODE and KEYPAD APPLICATION MODE.
This mode switching is done by valretting to DDT so if this job
does not have a DDT superior this command will fail.,C Undos alternate keypad mode for VT52's4C Prints out the key definitions in display mode,S Set the Mode line hook for the libraryQ^R Delete the character after the point.
Negative arguments delete backwardsX^R Deletes last searched item in buffer.
Will only work if the pointer hasn't moved$^R Kill lines including the CRLF.S Strips a PHOTO file if created on a VT522^R Act like old ^S, but ignore ^S^Qs.
	^S^Q is ignore.  ^S^Vx becomes old^Sx.  Any other characters
following are as if to old^S.  ^Sx becomes old^Sx if x is not ^Q or
^V.C Turns off the keypad to allow using the numbers.
The key definitions for the pad are still there upon returning with
VT52 Transmit KeypadAC Sets the keypad to transmit their escape seq.
If the key definitions need to be reset the user should use
VT52 Alternate Keypad.  This command is the opposite of
VT52 Number Keypad& Setup NVT52 Library
VT52 ALTERNATE KEYPAD
VT52 NORMAL KEYPAD
VT52 Info
& Set VT52 Mode Line
^R Proper Delete Character
^R Delete Last Searched Item
^R Kill Real Line
Fix PHOTO File
^R VT52 Control-S
VT52 Number Keypad
VT52 Transmit Keypad
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2