Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/twenex.comprs
There are no other files named twenex.comprs in the archive.
!~Filename~:!
TWENEX
!& Read Filename:!
: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>
!& Subset Directory Listing:!
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
!Strip SOS Line Numbers:!
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
!Date Edit:!
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,.
!Rerun CCL:!
FF"EM(M.MSave All Files)'
:FR
:I*ZFSECHODIS
0fsechochar
ex
!Push to EXEC:!
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'
!Check Mail:!
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
!List Files:!
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
!^R Dired:!
QBuffer Filenamesf"nfsDFile
FF"Em(m.mDIRED) '
"#-4"LFSDFN1[..0
M(M.MDIRED) ..0 '''
5,2F Directory [..0
m(m.mDIRED) ..0
!Set Terminal Type:!
:m(m.aTRMTYP& Set Terminal Type)
!List Directories:!!Compare Directories:!
:i*Command available only on ITS?fserr
!MACRO Mode:!
:I*MACRO,:M(M.MMIDAS Mode)
!FAIL Mode:!
:I*FAIL,:M(M.MMIDAS Mode)
!BCPL Mode:!
m(m.mLoad Library)BCPL
:m(m.mBCPL Mode)
!BLISS Mode:!
m(m.mLoad Library)BLISS
:m(m.mBLISS Mode)
!SAIL Mode:!
m(m.mLoad Library)SAIL
:m(m.mSAIL Mode)
!FORTRAN Mode:!
m(m.mLoad Library)FORTRAN
:m(m.mFORTRAN Mode)
!PASCAL Mode:!
m(m.mLoad Library)PASCAL
:m(m.mPASCAL Mode)
!CLU Mode:!
m(m.mLoad Library)CLU
:m(m.mCLU Mode)
!BASIC20 Mode:!
m(m.mLoad Library)BASIC20
:m(m.mBASIC20 Mode)
!PCL Mode:!
m(m.mLoad Library)PCL
:m(m.mPCL Mode)
!Interlisp Mode:!
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
!& TXT Mode:!!& HLP Mode:!!& PUB Mode:!!& RNO Mode:!!& INFO Mode:!!& R Mode:!!& MRN Mode:!!& DOC Mode:!!& TEXT Mode:!
:m(m.mText Mode)
!& TeX Mode:!!& LaTeX Mode:!
:m(m.mTEX Mode)
!& MID Mode:!
:m(m.mMIDAS Mode)
!& TASM Mode:!
m(m.mMIDAS Mode)
:iModeTASM
:m(m.m& Set Mode Line)
!CMD Mode:!!& CMD Mode:!!& CTL Mode:!
m(m.mLoad Library)CMD
:m(m.mCMD Mode)
!BIBLIO 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'
'
!& FAI Mode:!
:m(m.mFAIL Mode)
!& MAC Mode:!!& M11 Mode:!!& P11 Mode:!
:m(m.mMACRO Mode)
!& B36 Mode:!!& BLI Mode:!!& REQ Mode:!!& R36 Mode:!
:m(m.mBLISS Mode)
!& ALG Mode:!!& A68 Mode:!
1,1M.LCompiler Filename
!& SNO Mode:!
1,1M.LCompiler Filename
!& PAS Mode:!!& PGO Mode:!
:m(m.mPASCAL Mode)
!& SIM Mode:!
1,1M.LCompiler Filename
!& CLU Mode:!!& SPECS Mode:!!& EQUATE Mode:!
:m(m.mCLU Mode)
!& LSP Mode:!!& LISP Mode:!
:m(m.mLISP Mode)
!& MUD Mode:!
:m(m.mMuddle Mode)
!& SAI Mode:!
:m(m.mSAIL Mode)
!& EMACS Mode:!!& TEC Mode:!
:m(m.mTECO Mode)
!& BCP Mode:!!& B11 Mode:!
:m(m.mBCPL Mode)
!& RUN Mode:!
:m(m.mFundamental Mode)
!& FOR Mode:!
:m(m.mFortran Mode)
!& B20 Mode:!
:m(m.mBASIC20 Mode)
!& PCL Mode:!
:m(m.mPCL Mode)
!& MSS Mode:!!& MAK Mode:!!& LIB Mode:!!& DEV Mode:!!& BIB Mode:!
:m(m.mSCRIBE Mode)
!^R Exit to Exec:!
!Connect to Directory:!
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
!Expunge Directory:!
f[MSname
fnfsexpunge
:m(m.mConnect to Directory)
!~DOC~ ~Filename~:!
EMACS macros for Twenex environment.
!~DOC~ & Read Filename:!
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.
!~DOC~ & Subset Directory Listing:!
S Lists subset of current directory, selected by FN1.
!~DOC~ Strip SOS Line Numbers:!
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.
!~DOC~ Date Edit:!
^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.
!~DOC~ Rerun CCL:!
C Repeat last CCL command.
Unless we are given a numeric arg, we offer to save all files.
!~DOC~ Push to EXEC:!
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.
!~DOC~ Check Mail:!
C Say if new mail exists.
!~DOC~ List Files:!
C Make a quick directory listing
!~DOC~ ^R Dired:!
^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.
!~DOC~ Set Terminal Type:!
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.
!~DOC~ List Directories:! !~DOC~ Compare Directories:!
C Command available only on ITS.
!~DOC~ MACRO Mode:!
C Set things for editing MACRO code.
!~DOC~ FAIL Mode:!
C Set things for editing FAIL code.
!~DOC~ BCPL Mode:!
C Set up to edit BCPL code.
!~DOC~ BLISS Mode:!
C Set up to edit BLISS code.
!~DOC~ SAIL Mode:!
C Set up to edit SAIL code.
!~DOC~ FORTRAN Mode:!
C Set up to edit FORTRAN code.
!~DOC~ PASCAL Mode:!
C Set up to edit PASCAL code.
!~DOC~ CLU Mode:!
C Set up to edit CLU code.
!~DOC~ BASIC20 Mode:!
C Set up to edit BASIC code.
!~DOC~ PCL Mode:!
C Set up to edit PCL command files.
!~DOC~ Interlisp Mode:!
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.
!~DOC~ & TXT Mode:! !~DOC~ & HLP Mode:! !~DOC~ & PUB Mode:! !~DOC~ & RNO Mode:! !~DOC~ & INFO Mode:! !~DOC~ & R Mode:! !~DOC~ & MRN Mode:! !~DOC~ & DOC Mode:! !~DOC~ & TEXT Mode:!
S Set up for editing text from FN2.
!~DOC~ & TeX Mode:! !~DOC~ & LaTeX Mode:!
S Set to for editing TEX input from FN2.
!~DOC~ & MID Mode:!
S Set up for editing MIDAS code from FN2.
!~DOC~ & TASM Mode:!
S TASM is same as MIDAS
!~DOC~ CMD Mode:! !~DOC~ & CMD Mode:! !~DOC~ & CTL Mode:!
S Set up for CMD files
!~DOC~ BIBLIO Mode:!
C Set up for editing Scribe BIB databases
!~DOC~ & FAI Mode:!
S Set up for editing FAIL code from FN2.
!~DOC~ & MAC Mode:! !~DOC~ & M11 Mode:! !~DOC~ & P11 Mode:!
S Set up for editing assembler code from FN2
!~DOC~ & B36 Mode:! !~DOC~ & BLI Mode:! !~DOC~ & REQ Mode:! !~DOC~ & R36 Mode:!
S Set up for editing BLISS code from FN2.
!~DOC~ & ALG Mode:! !~DOC~ & A68 Mode:!
S Set up for editing ALGOL code from FN2.
!~DOC~ & SNO Mode:!
S Set up for editing SNOBOL code from FN2.
!~DOC~ & PAS Mode:! !~DOC~ & PGO Mode:!
S Set up for editing PASCAL code from FN2.
!~DOC~ & SIM Mode:!
S Set up for editing SIMULA code from FN2.
!~DOC~ & CLU Mode:! !~DOC~ & SPECS Mode:! !~DOC~ & EQUATE Mode:!
S Set up for editing CLU code from FN2.
!~DOC~ & LSP Mode:! !~DOC~ & LISP Mode:!
S Set up for editing LISP code from extension
!~DOC~ & MUD Mode:!
S Set up for editing MUDDLE code from extension
!~DOC~ & SAI Mode:!
S Set up for editing SAIL code from extension
!~DOC~ & EMACS Mode:! !~DOC~ & TEC Mode:!
S Set up for editing TECO code from extension
!~DOC~ & BCP Mode:! !~DOC~ & B11 Mode:!
S Set up for editing BCPL code from FN2.
!~DOC~ & RUN Mode:!
S Set up for editing Runfiles from FN2.
!~DOC~ & FOR Mode:!
S set up for editing Fortran files.
!~DOC~ & B20 Mode:!
S Detect a BASIC file.
!~DOC~ & PCL Mode:!
S Set up for editing PCL code from extension
!~DOC~ & MSS Mode:! !~DOC~ & MAK Mode:! !~DOC~ & LIB Mode:! !~DOC~ & DEV Mode:! !~DOC~ & BIB Mode:!
S Set up for editing SCRIBE source text.
!~DOC~ ^R Exit to Exec:!
^R Immediate return to Exec.
!~DOC~ Connect to Directory:!
C Connect to directory.
First argument is directory name.
Second argument is password (ignored if not needed).
!~DOC~ Expunge Directory:!
C Expunge a directory.
Connects to the directory first.
Takes arguments like Connect to Directory.
!~DIRECTORY~:!
& 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