Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/twenex.elib
There are no other files named twenex.elib in the archive.
x W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
5
## ! ## ( $ / $2 6 # = $ D $H K # R #Y Y " ` " g $H n ! u $ } #Y # y "6 % , 3 u 9 " ? D K $V W
] %) h j n A v < D
Z
[
&
% 2
-
3 )
: 1
D :
Q j
W $T
a 4W
h 1
r 1
| 2_ 3 0t 2_ $ 3C . 0t 8 1f B 0# L 0# V 3C ` /U j 2F u 1f
0F
3
/U
/U
) /i
4 3C
> 1|
I 1|
S 0\
] 0\
g 3C
q /
{ /U 2. 1O 1! & 1f 1 &l C 0 N 2F X /i b /U l /U v ./ -P 00 - + ) . 2 0# ; - J 3i Y 'p b 4# p -< y - .S - + ' -( 1 . < .? E )u P )F Y -o c ,1 p ' +/ 3Y %K %F ' 8R & A68 Mode & ALG Mode & B11 Mode & B20 Mode & B36 Mode & BCP Mode & BIB Mode & BLI Mode & CLU Mode & CMD Mode & CTL Mode & DEV Mode & DOC Mode & EMACS Mode & EQUATE Mode & FAI Mode & FOR Mode & HLP Mode & INFO Mode & LaTeX Mode & LIB Mode & LISP Mode & LSP Mode & M11 Mode & MAC Mode & MAK Mode & MID Mode & MRN Mode & MSS Mode & MUD Mode & P11 Mode & PAS Mode & PCL Mode & PGO Mode & PUB Mode
&CRLMode &BR36IMode & ReadSFilename &kREQiMode & RNO Mode & RUN Mode & SAI Mode & SIM Mode & SNO Mode & SPECS Mode & Subset Directory Listing & TASM Mode & TEC Mode & TeX Mode & TEXT Mode & TXT Mode BASIC20 Mode
CLU Mode
CMDeMode CompareeDirectories Connecteto Directoryctories List Files MACRO Mode PASCAL Mode
PCLuMode Push torEXEC Type Strip SOS Line Numbers
^R Dired ^R Exit to Exec ~DIRECTORY~ ~DOC~ & A68 Mode ~DOC~ & ALG Mode ~DOC~ & B11 Mode ~DOC~ & B20 Mode ~DOC~ & B36 Mode ~DOC~ & BCP Mode ~DOC~ & BIB Mode ~DOC~ & BLI Mode ~DOC~ & CLU Mode ~DOC~ & CMD Mode ~DOC~ & CTL Mode ~DOC~ & DEV Mode ~DOC~ & DOC Mode ~DOC~ & EMACS Mode ~DOC~ & EQUATE Mode ~DOC~ & FAI Mode ~DOC~ & FOR Mode ~DOC~ & HLP Mode ~DOC~ & INFO Mode ~DOC~ & LaTeX Mode ~DOC~ & LIB Mode ~DOC~ & LISP Mode ~DOC~ & LSP Mode ~DOC~ & M11 Mode ~DOC~ & MAC Mode ~DOC~ & MAK Mode ~DOC~ & MID Mode ~DOC~ & MRN Mode ~DOC~ & MSS Mode ~DOC~ & MUD Mode ~DOC~ & P11 Mode ~DOC~ & PAS Mode ~DOC~ & PCL Mode ~DOC~ & PGO Mode ~DOC~ & PUB Mode ~DOC~ & R Mode ~DOC~ & R36 Mode ~DOC~ & Read Filename ~DOC~ & REQ Mode ~DOC~ & RNO Mode ~DOC~ & RUN Mode ~DOC~ & SAI Mode ~DOC~ & SIM Mode ~DOC~ & SNO Mode ~DOC~ & SPECS Mode$ ~DOC~ & Subset Directory Listing ~DOC~ & TASM Mode ~DOC~ & TEC Mode ~DOC~ & TeX Mode ~DOC~ & TEXT Mode ~DOC~ & TXT Mode ~DOC~ BASIC20 Mode ~DOC~ BCPL Mode ~DOC~ BIBLIO Mode ~DOC~ BLISS Mode ~DOC~ Check Mail ~DOC~ CLU Mode ~DOC~ CMD Mode ~DOC~ Compare Directories ~DOC~ Connect to Directory ~DOC~ Date Edit ~DOC~ Expunge Directory ~DOC~ FAIL Mode ~DOC~ FORTRAN Mode ~DOC~ Interlisp Mode ~DOC~ List Directories ~DOC~ List Files ~DOC~ MACRO Mode ~DOC~ PASCAL Mode ~DOC~ PCL Mode ~DOC~ Push to EXEC ~DOC~ Rerun CCL ~DOC~ SAIL Mode ~DOC~ Set Terminal Type ~DOC~ Strip SOS Line Numbers ~DOC~ ^R Dired ~DOC~ ^R Exit to Exec ~DOC~ ~Filename~ ~Filename~
~INVERT~P :I* [1
FSJRNIN"N
:M(M.M& Journal String)'
QBuffer Filenames[2
fsDFile[0f[DFile
&2"NET*.*-3FSDVERS
37.F[:ETMOD1U2'
FSRGETTY"NFS:ETMODE"N
FQ2:"LF=0 2"N0U2''
Q2"NFR'"#:I1 1 (Default 0)'''
<FS^RMODE"N:'1<
FN@FT
FSRGETTY"N
FSECHODIS CFSECHODIS'
"#FS:ETMOD"N:FTDefault is 0
''
:i* 1: ,(
&1"N400000.'+(&2"N100.')+(&4"N100000.')):ET
FSJRNOUT"N
FSDFILEFSJRNWR
FSJRNWR'
FSDFILE
>fg-fstypeoutw0fserrflg>J FSLISTEN"N '
F[BBINDF[WINDOW
G(FSDFILE)fsosteco-1"e-S.'"#-s;':KI
:FTHT
FSDFN1[1FSDFN2[2
1:<EZ 1. 2.-3>
0[20[3JL0S,
<.-Z;%2WFB-D9I
\+Q3U3FB-D9I
FB-D2,32I
.,.+11F=16-Nov-1858"E@:F,KI---'
0TTFSLISTEN"N 'FSFLUSHED"N0u..h 'L>
HKITotal of Q3\I page
Q3-1"N si'I in Q2\I file
Q2-1"N si'i.
HT z"e '
j.fsword&1"eff"n ''
"#0s
<.-z;
0,.fsword(
5:c;)&(-2)"e!<!>'
0,1a-11."e
f '
:s;
,1a-
"erf c'
.+5/5*5:j;>'
j0s <:s;r^f k>
j 1[1[2
0FO..QBuffer Filenames"E
:I*CNo Output Filename in effect
fsechodisp0fsechoactivew '
1,M.M& Setup PAGE Library"N
M(m.m^R Widen Bounds)W'
"#M(m.m^R Set Bounds Full)W'
QBUFFER FILENAMESFSDFILE
.
j1l-2:s-*-"n
1l'"#j'
FF"e
1l-1:s Edit by "n
0lk'"#-1l''
"#f~(qmode)BASIC20"e
<:s00002 REM ;>
l'
"#f~(fsdfn2)B20"e
<:s00002 REM ;>
l''
'
f~(fsdfn2)FOR"EIC odone'
f~(fsdfn2)SAI"EICOMMENT 0U1odone'
f~(fsdfn2)B20"EI000029iiREM odone'
f~(qMode)FORTRAN"EIC odone'
f~(qMode)SAIL"EICOMMENT 0U1odone'
f~(qMode)BASIC"EI000029iiREM odone'
f~(qMode)CLU"EI%%% 0u1odone'
f~(qMode)TASM"EI;;; 0u1odone'
1U10FO..QComment BeginF"EW0FO..QComment Start'u2
fq2"GG20u1'
!done!
qbuffer filenamesf"nf[dfile'
i[g(fsMachine)i]
g(fsddevice)i:
<ig(fsdsname)
>ig(fsdfn1)
.ig(fsdfn2) .i
fsdversif"ewe?"E
e[erfsifvers(ece])'"#fsdversi'+1'\
i, 0,-1fsfdconv
fsxunam[0i, Edit by 0
q1"Egcomment end'
13i10i
b,. J FF"EM(M.MSave All Files)'
:FR
:I*ZFSECHODIS
0fsechochar
exG fm(m.m& Exit EMACS)
0fo..qExit to Inferior Hook[1
q1"nm1'
0fo..qExec Name[1q1"efz'
"#0fo..qExec Fork"e
-1,0fz 11m.vExec Fork'
"#fz''
0fo..qReturn From Inferior Hook[1
q1"nm1'
e f[DFile
fsOSTeco-1"eetDSK:MAIL.TXT.1'
"#etMESSAGE.TXT;1'
fsHSnamefsDSnamew
1:<1,er>"e
fsIFCdate-(15.fsIFFDB)(ec)"g
"e@ft[New mail exists]0fsEchoActivew'
1 ''
"e@ft[No new mail exists]0fsEchoActivew'
0 D f[bbindf[sstring
qBuffer Filenamef"ewfsdfile'[2
f[dfileet 2et*.*
5,2f List files[0et 0
fsdfn1u0fsdfn2u20[3
1,1110000001.ez 0. 2.-3
:i*[1j
<.-z;.u2
fsosteco-1"e2<fb.r>'
fsosteco-2"efb.rfb;r'
q2,.f= 1"e
q2-2,.kf,
'"#q2,.x1'
:l0,0:fm
fs^rhpos,q3f u3
l>j
fswidth/(q3+1)u2
fswidth/q2u3
<0u1
q2<:l0,0:fm.+2-z;
%1-q2"nq3*q1-(fs^rhpos),40.i2d'
>2:c;>
fsddev:f6u1fsdsnam:f6u0
:ft 1:< 0>
ht:fv0 QBuffer Filenamesf"nfsDFile
FF"Em(m.mDIRED) '
"#-4"LFSDFN1[..0
M(M.MDIRED) ..0 '''
5,2F Directory [..0
m(m.mDIRED) ..0 & :m(m.aTRMTYP& Set Terminal Type), :i*Command available only on ITS?fserr :I*MACRO,:M(M.MMIDAS Mode) :I*FAIL,:M(M.MMIDAS Mode)/ m(m.mLoad Library)BCPL
:m(m.mBCPL Mode)1 m(m.mLoad Library)BLISS
:m(m.mBLISS Mode)/ m(m.mLoad Library)SAIL
:m(m.mSAIL Mode)5 m(m.mLoad Library)FORTRAN
:m(m.mFORTRAN Mode)3 m(m.mLoad Library)PASCAL
:m(m.mPASCAL Mode)- m(m.mLoad Library)CLU
:m(m.mCLU Mode)5 m(m.mLoad Library)BASIC20
:m(m.mBASIC20 Mode)- m(m.mLoad Library)PCL
:m(m.mPCL Mode)E M(M.M& Init Buffer Locals)
M.M^R Indent for LispM.Q I
1,1M.LSpace Indent Flag
1,Q(1,Q.M.QW)M.Q.
1,10M.LComment Column
1,(:I*(* )M.LComment Start
1,(:I*(* )M.LComment Begin
1,(:I*))M.LComment End
1,(:I*)M.LParagraph Delimiter
QPermit Unmatched Paren"L
1,0M.LPermit Unmatched Paren'
M.Q..D
0FO..QInterlisp ..DF"NU..D'
"#W:G..DU..D
Q..DM.VInterlisp ..D
-1[040.<%0*5+1:F..DA>]0
95*5+1:F..DA
!"!
1M(M.M& Alter ..D)
!A"|#A$A%/&A''(())*A+A,A-A.A/A:A;A<A=A>A?A@A[A\A]A^A`A{A|A}A~AA'
1M(M.M& Set Mode Line)Interlisp :m(m.mText Mode) :m(m.mTEX Mode) :m(m.mMIDAS Mode)@ m(m.mMIDAS Mode)
:iModeTASM
:m(m.m& Set Mode Line)
0 m(m.mLoad Library)CMD
:m(m.mCMD Mode)
[0
f~(qMode)SCRIBE"nm(m.mScribe Mode)'
1,m.mBIBLIOf"nu0
ff&1"n
m0'
"#m0''
"#
e?EMACS:BIBLIO.ELIB"e
m(m.mLoad Library)BIBLIO'
'
:m(m.mFAIL Mode) :m(m.mMACRO Mode) :m(m.mBLISS Mode) 1,1M.LCompiler Filename 1,1M.LCompiler Filename :m(m.mPASCAL Mode) 1,1M.LCompiler Filename :m(m.mCLU Mode) :m(m.mLISP Mode) :m(m.mMuddle Mode) :m(m.mSAIL Mode) :m(m.mTECO Mode) :m(m.mBCPL Mode) :m(m.mFundamental Mode) :m(m.mFortran Mode) :m(m.mBASIC20 Mode) :m(m.mPCL Mode) :m(m.mSCRIBE Mode) % 1,f Directory: :fc[1
fq1"efsHSnameu1'
1:<q1fsMSnamew>"e
:f :"lf* ' '
1,f Password: :fc[2
fq2"e1,m(m.m& Read Line)Password: :fcu2'
q2,q1fsMSname
; f[MSname
fnfsexpunge
:m(m.mConnect to Directory)
TWENEX( EMACS macros for Twenex environment. S Read a filename from the tty.
The numeric argument indicates GTJFN flags;the 1 bit on means
to set GJ%FOU, the 2 bit means GJ%IFG, 4 means GJ%OLD.
The prompt should be supplied as a string argument, without
trailing colon or space. Returns a string of the filename read.9 S Lists subset of current directory, selected by FN1.P C Remove SOS line numbers from the current buffer.
Deletes all words with the low order bit set, and flushes all nulls.
An explicit argument inhibits checking for nulls unless the file has line numbers.+ ^R Write date of edit at start of file.
Inserts as the first line of the file ( or the second, if the first
is a "Mode" comment) a comment containing the file name, the date
and time of the edit, and the phrase "Edit by " user. If there is
already such a comment there, the behaviour depends on the arg:
With no argument, the previous one is replaced. With any argument
a new comment is added before the previous one.^ C Repeat last CCL command.
Unless we are given a numeric arg, we offer to save all files.3 C "Push" to new or existing EXEC inferior to EMACS.
If an inferior EXEC already exists, it is resumed, with its own
inferiors still intact. The variable Exec Name can be a string giving
the filename to load. Runs Exit Hook and Exit to Inferior Hook
leaving and Return From Inferior Hook returning. C Say if new mail exists.$ C Make a quick directory listing ^R Run MM Dired for the directory of the current buffer file.
With no argument, edits that directory.
With an argument of 1, shows only the versions of the file in the buffer.
With an argument of 4, asks for input, only versions of that file are shown.J C Specify terminal type (as string argument).
To get a list of all terminal types, do M-X List LibraryTRMTYP<cr>.
The screen size must have been set by Terminal Length and Terminal Width in EXEC.$ C Command available only on ITS.( C Set things for editing MACRO code.' C Set things for editing FAIL code. C Set up to edit BCPL code. C Set up to edit BLISS code. C Set up to edit SAIL code." C Set up to edit FORTRAN code.! C Set up to edit PASCAL code. C Set up to edit CLU code. C Set up to edit BASIC code.' C Set up to edit PCL command files. C Set things up for editing Interlisp code.
Puts ^R Indent for LISP on Tab, puts tab-hacking rubout on Rubout.
Facilitates an approximation to Interlisp lexical analysis,
but notably ignores square brackets.
Paragraphs are delimited only by blank lines.' S Set up for editing text from FN2., S Set to for editing TEX input from FN2.- S Set up for editing MIDAS code from FN2. S TASM is same as MIDAS S Set up for CMD files- C Set up for editing Scribe BIB databases, S Set up for editing FAIL code from FN2.0 S Set up for editing assembler code from FN2- S Set up for editing BLISS code from FN2.- S Set up for editing ALGOL code from FN2.. S Set up for editing SNOBOL code from FN2.. S Set up for editing PASCAL code from FN2.. S Set up for editing SIMULA code from FN2.+ S Set up for editing CLU code from FN2.1 S Set up for editing LISP code from extension3 S Set up for editing MUDDLE code from extension1 S Set up for editing SAIL code from extension1 S Set up for editing TECO code from extension, S Set up for editing BCPL code from FN2.+ S Set up for editing Runfiles from FN2.' S set up for editing Fortran files. S Detect a BASIC file.0 S Set up for editing PCL code from extension, S Set up for editing SCRIBE source text. ^R Immediate return to Exec.t C Connect to directory.
First argument is directory name.
Second argument is password (ignored if not needed).h C Expunge a directory.
Connects to the directory first.
Takes arguments like Connect to Directory.w & Read Filename
& Subset Directory Listing
Strip SOS Line Numbers
Date Edit
Rerun CCL
Push to EXEC
Check Mail
List Files
^R Dired
Set Terminal Type
List Directories
Compare Directories
MACRO Mode
FAIL Mode
BCPL Mode
BLISS Mode
SAIL Mode
FORTRAN Mode
PASCAL Mode
CLU Mode
BASIC20 Mode
PCL Mode
Interlisp Mode
& TXT Mode
& HLP Mode
& PUB Mode
& RNO Mode
& INFO Mode
& R Mode
& MRN Mode
& DOC Mode
& TEXT Mode
& TeX Mode
& LaTeX Mode
& MID Mode
& TASM Mode
CMD Mode
& CMD Mode
& CTL Mode
BIBLIO Mode
& FAI Mode
& MAC Mode
& M11 Mode
& P11 Mode
& B36 Mode
& BLI Mode
& REQ Mode
& R36 Mode
& ALG Mode
& A68 Mode
& SNO Mode
& PAS Mode
& PGO Mode
& SIM Mode
& CLU Mode
& SPECS Mode
& EQUATE Mode
& LSP Mode
& LISP Mode
& MUD Mode
& SAI Mode
& EMACS Mode
& TEC Mode
& BCP Mode
& B11 Mode
& RUN Mode
& FOR Mode
& B20 Mode
& PCL Mode
& MSS Mode
& MAK Mode
& LIB Mode
& DEV Mode
& BIB Mode
^R Exit to Exec
Connect to Directory
Expunge Directory
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2