Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/tvlib.elib
There are no other files named tvlib.elib in the archive.
xW
[0+8+FQ(+4)[1
0FO10F"G+Q1
'W+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   +mz
hjy|QX!$8A8;4;en{

L

X

r

|<A:GQ[;E,*kt]dEO*BL--**v*|*p*|.Y.e)

+h+x"2";!H!V!k!y&w&((,,!0P0^.%.2,y-&&('('2++'%\%j$<$H#+#:"Y"f0q0"
! ~!4~5& Setup TVLIB LibrarykM(M.M& Set TVLIB Mode Line)
1:<M(M.M& SETUP ADD-TO-TVLIB LIBRARY)>W
16.fs^Rinitu..M
m.m^R Down Real Lineu..J
m.m^R Up Real Lineu..^
2fs^RinitF(u..<)u..
6fsinitF(u..>)u.. 
m.m^R TV Forward Wordu..)
m.m^R Backward Wordu..(
m.m^R Prefix Control-Metau..
FS^RInitF(u...()F(u...<)u...L
FS^RInitF(u...))F(u...>)u..I
m.m^R Bottom of Screenu...\
m.m^R Top of Screenu...^
m.m^R Nth PageF(u..P)u..G
m.m^R Next Windowu..W
m.m^R Next Screenu.L
m.m^R Half Window Upu.\
m.m^R Half Window Downu.]
m.m^R Scroll Other Windowu...W
m.m^R Append Next Killu...Y
m.m^R New Windowu...N
m.m^R Refresh Lineu..N
m.m^R Down Comment Lineu.N
m.m^R Goto Beginningu..{
m.m^R Goto Endu..}
m.m^R Forward Sentenceu.E
m.m^R Backward Sentenceu.A
m.m^R Mark Beginningu:.X({)
m.m^R Mark Endu:.X(})
Q..&u..I
m.m^R Display Load Averageu.T
m.m^R Skip to Characteru..S
m.m^R Reverse Skipu..B
m.m^R Zap to Characteru..Z
m.m^R Repeat Skip/Zapu..A
15FSQVectorM.VLast Skip/Zap
m.m^R Center Lineu...S
m.m^R Right Adjust Lineu...R
m.m^R Fill Regionu...Q
m.m^R Indent Rigidlyu.._
M.M^R Copy Lineu.K
4fs^Rinitu..K
m.m^R Kill Real Lineu...K
m.m^R Backward Kill WordF(u.D)u.W
m.m^R Kill Sentenceu...D
m.m^R Backward Kill Sentenceu...A
m.m^R Mark Paragraphu..M
m.m^R Mark Sentenceu...M
Q.@u...@,400.fs^Rcmacro
m.m^R Copy Regionu...
m.m^R Kill Regionu..,
m.m^R Homeu..H
m.m^R Other Windowu..O
m.m^R Return to SuperiorF(u:.X())u...F
QEmacs Version-145"G
m.mWhat Cursor Positionu..='
"#M.M^R Where Am Iu..='
m.m^R Indicate Page/Lineu...=
m.m^R Insert Controlifiedu.Q
m.mOverwrite ModeF(u:.X(I))u:.X(9)
m.m^R New Read Fileu:.X()
m.m^R New Find Fileu:.X()
Q..&u..~
m.m^R Buffer Not Modifiedu:.X(~)
m.m^R Transpose Charactersu...T
1UAuto Save Visited File
m.m^R View Q-regu:.X(R)
m.m^R Put Q-regu:.X(D)
m.m^R Execute Minibufferu:.X()
m(m.mText Mode)
72uFill Column
1fsechoerrors
1uFind File Inhibit Write
1UAuto Save Max
@:I*|0FO..QSame Version Default"NM(M.MSame Version)'
|m.vVisit File Hook
:I*TextM.VDefault Major Mode
:I*Extend command: m.vRead Command Prompt
:I*Instant extend command: m.vInstant Command Prompt
:IAuto Push Point Notification(^)
FSOSTECO-1"E
1:<m(m.m& Setup MAICHK Library)>'
0^R Half Window Down4fsLINES[0
Q0"GQ0/2'"#10':M(M.M^R Next Screen)^R Half Window Up8fsLINES[0
Q0"GQ0/2'"#10':M(M.M^RoPreviousScreen)^RMUp.4-*4:M..Men Edge)^R Bottom of Screen$-1:M(M.M^R Move to Screen Edge)^R Skip to Character[0[1
FF-1"GU0'
"#M.IFI:FCU0
QLast Skip/Zap[4
Q0u:4(0)Q1u:4(1)0u:4(2)'
Q1"G:C"EFG0FSERR''
Q1:S0F(WQ1"GR')"E
FG0FSERR'
1^R Reverse Skip#0-:M(M.M^R Skip to Character)^R Zap to CharacterlM(M.M^R SET/POP MARK)
F@M(M.M^R Skip to Character)
1U:(QLAST SKIP/ZAP)(2)
:M(M.M^R Kill Region)^R Repeat Skip/Zap[0[1QLast Skip/Zap[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^R Next WindowFF"E
@:M(M.M^R Next Screen)'
FS^RARGP&6-4"E@:M(M.M^R Previous Screen)'
F"L:M(M.M^R PREVIOUS SCREEN)'
"#:M(M.M^R NEXT SCREEN)'^R Home7F&1"E'"#QPrevious Buffer':M(M.MSelect Buffer)^R Nth Page5[0
FF"G"G
BJ-1U0''
Q0:M(M.M^R Next Page)^R Indicate Page/linev0[1.[2fnq2j
1l.[3
0[40[50[7
0j<%1
:s


;.u5
.-1-Q2;
.u4>
:i*CfsEchodis
@ft Page q1@:=
@ft, Line 
m.m& Count Lines[6
q4,q3m6f(u7)@:=
@ft of 
q5-q4:"Gzu5'"#q5-1u5'
q3-q5"G-1'"#q3,q5m6'+q7@:=
@ft.

0fsechoactive
1View Page DirectoryS.[10[4[5fnq1j
0[2F"G-1U2'
0[3
0j
FTPage   Heading

<%4<.-z"'N;
1A-13"'E;
2c>
.-z"'N;
Q4-Q2"G
3,Q4:\u5FT5   
1FT1U3'
:S


;
M(M.M& Maybe Flush Output)1;>
Q3"EFT (no pages)
'
1Same Version(0[01[11[2
FF-1"Eu2'
QBuffer FilenamesF[DFILE
Q2:"G2u1
'"#FSDVERSION"N0'
1:<EREC>"N
1U0
Z"G@FTNew file? -- Assuming version 1
0FSECHOACTIVE'
'"#FSIFVERSIONU0''
Q0FSDVERSION
FSDFILEUBuffer Filenames
1FSMODECHANGE
QAuto Save Mode-Q1"E
@M(M.MAuto Save Mode)'
0EXEC0FZ
Go!1M(M.M^R Save File)
0FZ
MSGMM:m(m.mRead Mail)^R Refresh LineD"E1FSMODECHANGE0'
(fs^RVPOS)[1
:<-1,Q1fsTYOHASH
%1>
H^R Display Load Averagew:i*CfsEchodis
FSLoadAv[0
200301000000.,(FSDate):FSFDConvert[1
@FT1  Load Avg =0

0FSEchoActive
0^R Insert Controlified2M.IFI&177.[0
(q0-')*(q0-7)"E
1,M(m.m& Read Line)Octal: u0
q0"E0'fq0"E0'
f[bbind8f[ibaseg00j\u0
f]ibasef]bbind'
"#q0&?-?"E177.u0'
"#q0&37.u0''
.,(<q0i>).^R New Read File-1,1:M(m.m^R Visit File)Interlisp ModetM(M.M& Init Buffer Locals)
M.M^R Indent for LispM.QI
1,1M.LSpace Indent Flag
Q(Q.M.Q)M.Q.
m.m^R Backward SexpM.Q...<
m.m^R Forward SexpM.Q...>
1,75M.LFill Column
1,48M.LComment Column
1,(:I*(* )M.LComment Begin
1,0M.LComment Start
1,(:i*))M.LComment End
1,(:I*)M.LParagraph Delimiter
:i*                                                                  A                            AA    |   AA   AA   A/   AA    '    (    )   AA    A        AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    A   AA    A    A    A   AA    A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    (   AA    )    A    A    A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    A    A    A    A        M.Q..D
1M(M.M& Set Mode Line)LISP^R New Find File@"L-1[Find File Inhibit Write
-1'"#0':M(m.m^R Find File)Read Teco FileTM(m.m& Read Filename)Teco File[1
[..OFSBCREATE
ER1@YM(HFX*)
fsBKill
0& Charprint.-4110."EFTHelp'
&177.[0
&200."N
(&400.)(Q0&100.#100.)"NFTCtrl-'
"#Q0-177."EFTCtrl-'
"#FT^'''
&400."NFTEdit-'
Q0-177."EFTDel'
Q0-33."EFTEsc'
-2"N
Q0"EFTNul'
Q0-9"EFTTab'
Q0-10"EFTLf'
Q0-13"EFTReturn'
Q0-32"EFTSpace''
-2"EQ0-32"L
FT^Q0+100.U0''
FT0
^R Copy Line$.:
@L
:M(M.M^R Copy Region)^R Kill Real Line:@M(M.M^R KILL LINE)^R TV Forward WordW:"G,0:@M(M.M^R Backward Word)'
65,1A"'B+:<.WFWL>"Nfg'
:S"l-1:C'"#zj'
0& Set TVLIB Mode LineyqSet Mode line hook[1
f[bbind
fq1"L:i1'
g1j
:@S/I TV/"E@I/I TV/'
HXSET MODE LINE HOOK
1fsmodechange
0& Setup MAICHK Library.0M.VMail Checker
1M.CMail Watch* Flag indicating status of Automatic Mail Checking (-1,0,1,2)
       0 => OFF, <0 => ON, only reporting first occurrence of new mail
                 >0 => ON, reporting new mail until read ( =1 prints
                       message [NO NEW MAIL] as well)

F[BBIND
FQ..F"GG..F'
"#28I'
J:SMAIL WATCH"EJ
@I\QMAIL WATCHF"NM(M.MCHECK MAIL)'\13I10I'
HFX..F
F]BBIND
Q..FU.F
0Check MailC[..O1[1
FF"N
"L0'"#'U1'
q1"EQBuffer Filenames"E''
3,fUser: [2
QMail CheckerF"NU..O'"#
FSBCREATEF[DFILE
EREMACS:MAICHK.CODEFYEC
Q..OUMail Checker'
10f2
q1M(FSREALAD/5)
10J1A"N
:I*CFSECHODISPLAY
q1"E7FSECHODISPLAY'
@T'"#
q1-1"E:i*C[No new mail]
FSECHODISP''
0FSECHOACTIVE
00~FILENAME~	TVLIB~DOC~ ~FILENAME~0Redefinition of command set to look TVlike
~DOC~ & Setup TVLIB LibraryS Setup TV commands
~DOC~ ^R Half Window Down*^R Scroll screen down by half window
~DOC~ ^R Half Window Up(^R Scroll screen up by half window
~DOC~ ^R Up 49^R Move cursor up 4 lines
or 4 times its argument.
~DOC~ ^R Down 4;^R Move cursor down 4 lines
or 4 times its argument.
~DOC~ ^R Top of ScreenE^R Move cursor to top of screen
or to bottom with negative arg
~DOC~ ^R Bottom of Screen(^R Move Cursor to bottom of screen
~DOC~ ^R Skip to Character^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).
~DOC~ ^R Reverse Skip{^R Search backward for target char.
I.e. like a backwards ^R Skip to Character.  Repeat with ^R Repeat Skip/Zap.
~DOC~ ^R Zap to Character^R Kills text up to target character.
Zap excludes target character.  Negative arg zaps backward.
Repeat Zap with ^R Repeat Skip/Zap.
~DOC~ ^R Repeat Skip/Zape^R Repeat the last Skip/Zap command
regardless of any intervening commands other than skip/zap
~DOC~ ^R Next Window^R Scrolls to next screenful.
With an argument, scrolls by that many lines.  Negative arg
scrolls backward; arg of "-"  scrolls full screen backward.
~DOC~ ^R HomeQ^R Returns to previous buffer.
If given explicit arg, goes to that buffer.
~DOC~ ^R Nth Page#^R Goes to next or nth page.
With positive argument, goes to that page; with no arg goes forward
one page; with negative arg goes backward that many pages.
~DOC~ ^R Indicate Page/line1^R Types out page and line number of cursor
~DOC~ View Page Directory&C Prints a directory of the file.
Prints out the first non-blank line on each page, preceded by its
page number.  If given an arg, starts at that page number.
~DOC~ Same Version5C Tells EMACS to overwrite file when it saves it.
I.e. this file will be saved as the SAME version as the
current version on exit.  Autosaves will go to AUTOSAVE files.
Does nothing if visited file already has an explicit extension.
With zero argument, undoes it, i.e. EMACS will write new versions.
~DOC~ EXEC*C Invokes a lower exec out of EMACS.


~DOC~ Go6C Saves current buffer and drops into lower exec
~DOC~ MSG

~DOC~ MM=C Invokes MM in lower fork.
Kills fork upon returning.
~DOC~ ^R Refresh Line^R Refreshes the current line
With a positive argument, refreshes n lines.
With an argument of zero, refreshes mode line.
!~DOC~ ^R Display Load Average1^R Displays the TENEX 1 minute load average
 ~DOC~ ^R Insert Controlified1^R Inserts characters, controlifying
e.g. If you type ^R Insert Controlified A, it inserts ^A; DELETE is ^?.
Type ^R Insert Controlified ' to enter a number octally.
~DOC~ ^R New Read File/^R Reads file readonly, with autosave off
~DOC~ Interlisp ModevC Set things up for editing Interlisp code.
Puts ^R Indent for LISP on Tab, puts tab-hacking rubout on Rubout.
Comments are handled, sort of.  Forward and Backward Sexp are on
[$>] and [$<].  Paragraphs are delimited only by blank lines.
~DOC~ ^R New Find FileN^R Edits file in its own buffer.
With negative arg, edits file readonly
~DOC~ Read Teco FileWC Reads and executes a teco file
eg. your emacs.init;  prompts for the filename.
~DOC~ & CharprintMS Print pretty description of 9-bit character.
Char is the arg.  Example:  arg of 415. prints "Edit-Return".
An arg of "2," means say "^M" instead of "CR", etc, and
^B instead of an alpha on TV's.
~DOC~ ^R Copy Line^R Copies line into the kill ring without buffer modification.
A specified numeric argument works the same as for ^R Kill Line.
~DOC~ ^R Kill Real Line&^R Kill lines including the CRLF
~DOC~ ^R TV Forward Word7^R Move forward to the beginning of the next word
~DOC~ & Set TVLIB Mode Line.S Set the Mode line hook for the library
~DOC~ 0C NOTHING
 ~DOC~ & Setup MAICHK LibraryS Init checker
~DOC~ Check Mail%C Checks to see if user has new mail.
Give this command a following string argument of a username (no
brackets, no recognition) to check someone else's mail.
~DOC~ 0C NOTHING
~DIRECTORY~J& Setup TVLIB Library
^R Half Window Down
^R Half Window Up
^R Up 4
^R Down 4
^R Top of Screen
^R Bottom of Screen
^R Skip to Character
^R Reverse Skip
^R Zap to Character
^R Repeat Skip/Zap
^R Next Window
^R Home
^R Nth Page
^R Indicate Page/line
View Page Directory
Same Version
EXEC
Go
MSG
MM
^R Refresh Line
^R Display Load Average
^R Insert Controlified
^R New Read File
Interlisp Mode
^R New Find File
Read Teco File
& Charprint
^R Copy Line
^R Kill Real Line
^R TV Forward Word
& Set TVLIB Mode Line
0
& Setup MAICHK Library
Check Mail
0


~INVERT~[1<Q1-1U1Q1FP;>Q1