Trailing-Edge
-
PDP-10 Archives
-
6.1_emacs_manuals_1er
-
emacs/xinfo.exe
There are no other files named xinfo.exe in the archive.
?p ` ` ' ?h < ?x -
' H \ >T oe @ X x@ 2z @ W x ? X-LX
@X*(4x
& A @ $G oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe 2 Kb,0 ,RH + - 8{ u4 { 2 H xT Ex
UMV**U.U Ex
EMACS EMACS NINFO EXE GEM NINFO INFO TECO-INIT &GEM NEW-EMACS NINFO EXE @z @~ 2 AR,> ,> ,> + ^ > *> \" E e " Z & J+ !> *> <+ \
+ k y, >@ ^ ^* + + + + + + + + . n $
`78@2
p$0d 6 00 u00 u , VG : ^ ^W aO@ !fC p(W 8^L 8 $, [ v [ v-d +3J '-d $#: 6 + $c+@ 7
-d ,+ $`+@ 3J '-d +9 -@
e ^T | @) a @ %B @ a& T p(W m w k w R S S R@ z R@ g @ !L R@ !L R 1 e m R@ + R@ ` R@ !L R@ |E T@ T, R@ | @ 6o S R f r gr 9 @ H "r 6e ~ " @ S r !h ~ Y
L@r !{ ;a}~ r t r ", r "29`!-9`!-9`!-9`!-9 !-9 !-9 !-9 !- #F@
c2 "<2 "E s - r ) 2 < 2 ", d2 "2 U % e ' x5x= # ' " ' @ & " " ) " # ' ) ) * ' ( + & $ ' " )
d@ %p@ ^7 @ %!@ <@ %#S @ %6 @ !l @ %J@ % ^@
h @
! @ %6@ B @ ^@
c : U
U
0 X Y.
# : `c y@`@ %
!!" \$ G - G J J @O@ u 2 R a+
Internal error at 6$ EMACS:TECPUR.EXE.1120 @ 0 z oe oe oe @ @ % O @ #z 9 9 9 9 9 9 9 9 @ $@9@ $@C 9 9@ #} 9 9 9 9 9 9 9 9 9 9 9 9 9@ $] 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ 9 9 9 9 T T@ #YY T T T T T [ [ [ T T [ T T T T T T T T T T T T T P T T T T@ #zW T T T T@ $A T T T T T T T 4 T T 6 6 6 6 6 6 6 6 6 6 T@ $. @ $@ #w'@ $ T@ #zW , @ ":T ^ - N
[
[
[@ #4@ $
hB@ #zs:@ #{O@ $ M@ %-K@ 9`@ $I@ $x@ $
F@ #}n@ Wn@ #|@ $1 T@ $]@ $@@ $ T T [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ T T T T T T T T T T T T T 9@ $@r T T@ #|y T T T T T T T T T T T T T@ $U/ T T T T T T T@ $)@ $ I@ $g T@ $H@ $!=@ $!q T T T 4@ $w@ #Bc 6 6 6 6 6 6 6 6 6 6 T@ $. @ $Q@ $n@ $p@ #Bc@ $"@@ $$`@ $"0@ $#@ $"J@ $$@ $" @ $E=@ $(I@ $? @ $@r@ $&;@ $#@ #|y@ $1D T@ $2>@ $Dx@ $3@ $Cf@ $q@ $"s@ $
5@ #~@ %R]@ $ F T@ $' [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ T T T@ $k@ $"^ T T T T T T T T@ $ @ $2O [ T T@ #|y T T T T T T T T T T T T T 9 T T T T T T T T T T T T@ $ 9@ $ * T T T 4 T T 6 6 6 6 6 6 6 6 6 6 T@ $B8 T T T@ #G@ $ o@ $ @ $ 9@ $ @ $ H@ $ |@ $I@ $ @ $2O
[@ $ x 9@ #|y@ $ ^@ $1@ $ m@ $8@ $= T@ $@ $ 9@ %;@ #~^@ %Ta T P@ $ @ $=o@ $ H@ $C 9 T [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ T T T T@ $
^0 ] ^ ^
^ @ "X@ VU@ "X r(g ^ @ "X@ a @ "X q8` ^ @ "X@ aS@ "X px\ ^ @ #g" pXZ ^ @ !fC p(W ^"@ + + + + + + P (B (B (B (B + + @ !fC p(W ^&Z % % &* &* &* &* P %U %U %U %U %\ %\ Z %< %< %< %< %Q %Q P %- %- %- %- %9 %9 Z % % % % %( %( Z
f f #N #N @ q>@ X0 oxT ^P ^[ ^W J e e e e e e %@
b er info:info.teco-init@y m(hfx*) - ..E Bad value in q-reg ..E (output radix) 3 2<1 The second argument)was less than the first AFN AmbiguousAFS flag name AOR ArgumentAout of range ARG Bad argument ) AVN AmbiguousAvariableAor macro name. ? BD" BadAconditionAafterA" --Ashould beAG,L,N,E,B,C,D,A orAU A BEL A built-in ^R command called from macroAsignaledAan error 5 CMD A char that isn't aATECOAcommand was executed 9 CNM Caller wasn'tAa macro (it wasATECOAinternalAcode) ' DCD A disabled command~was executed DSI Damned<screw>infinitely 3 ERP AttemptedC:<T...E^\with9noclosing > first ESR Empty sort record ICB Illegal ^] command IEC Illegal "E" command IFC Illegal "F" command IFN Illegal FS flag name IQN Invalid q-register name ' ILN Invalid local q-register number ' ISK Invalid sort key - "^P" command & KCB Kill currently selected buffer / M^R Attempted to macro a meaningless number , NDO No device open for output - try "EW" $ NFC No free channels to pop into / NFI No file open for input - try doing "ER" ' NHP Nonexistent horizontal position 8 NIB You have addressed a character not in the buffer NIM Not inside a macro 7 NOP Specified type of IO channel hasn't been pushed NRA File not random access 5 N^R Not in ^R - command meaningful only inside ^R PDL Pushdown stack full $ PUR Attempted write in pure page , RDO Attempt to modify a read-only buffer 3 QIT ^G typed on TTY and FS NOQUIT$ was negative D QNB Q-register not buffer - attempt to select a string or number QNN Q-register not numeric ' QNS Q-register not string or buffer ( QRF Q-regs failed, probably TECO bug , QRP Q-register PDL overflow or underflow SFL Search failed " SNI Semicolon not in iteration 1 SNR There is no valid search string to repeat STL String argument too long ! STS Dispatch string too short < TMN Too many macro, ^]q-register, ^]^X, or ^]^Y nestings < UBP Unbalanced parentheses found with an FL-type command UCT Unseen catch tag 2 UEB FL-type command encountered end of buffer. ! UEC Unexpected end of command UGT Unseen go-tag ) UJC Undefined journal file characters ) UMC Unmatched ")" or ">" as a command / URK Buffer space or library space exhausted UTC Unterminated conditional 7 UTI Unterminated iteration or errset (missing ">"?) ( UVN Undefined variable or macro name ? WLO FS OFACCP$ when old access pointer wasn't multiple of 5 ! WNA Wrong number of arguments
= ~=~~<~w< r No MM & Yes or No e MM Make SpaceG !* number of characters between auto-saves!
fs^rmdlywfs^rmcnt nB !* Don't let cursor be in this percent of screen!
FS%BOTTOM ch/ !* 1 => Searches ignore case!
FSBOTHCASEB !* Center cursor this percentage down the screen!
FS%CENTER ; !* 1 => Display mode line in standout mode!
FSINVMODingO !* 1 => Try real overprinting on the screen!
F"'NFS^HPRINW"'NFS^MPRIN ht5 !* Number of lines in echo area!
FFSECHOLINESin; !* Leave this percent of screen blank at EOB!
FS%END ea= !* 1 => display error messages in echo area!
FSECHOERRumn7 !* Page width for filling and grinding!
FSADLINEeP !* Overwrite Mode status (see M-X Overwrite Mode)!
1FSMODECHWFS^RREPLACE Mode< !* 1 => Display chars 0-37 as SAIL graphics!
FFSSAIL System Output Holding7 !* 1 => let system handle C-S and C-Q!
FSTTYPAGEn? !* Don't let cursor be in this percent of screen!
FS%TOPJ !* 1 => word commands deal with LISP atoms!
:I.W"n:I.W@'1FSMODECHu !* nonzero => Auto Fill (break long lines at margin)!
1FSMODECH
32FS^RINITU "E '
M.M^R Auto-Fill SpaceU ^@ le+ * 1 => auto save under visited filenamee' !* 1 => digits and Minus before control chars set arg!
0FS^RINIT[2
"NM.M^R AutoargU2'
Q2-Q0"E 'Q2U-
Q2U0Q2U1Q2U2Q2U3Q2U4
Q2U5Q2U6Q2U7Q2U8Q2U9 ment ents
/8+1*8nt Fundamental en^ !* Controls action of ) in showing the matching (!
"NM.M& Matching Paren'"#0'FS^RPAREN .?! odeb !* -1 => Use tabs for indentation. 0 => only spaces.!
"EM.M& Indent without TabsUMM & Indent
M.M& Xindent without TabsUMM & Xindent '
M.M& Indent with TabsUMM & Indent
M.M& Xindent with TabsUMM & Xindent LISP
ries . 'g lag, * Nonzero => Auto Fill indents new linese : : : : : : : : : : : :2 MEMOXGPPRESS@XGPUNFASLOUTPUTOLREC s Visit File Save OldB * -1 => visiting new file saves old, 0 => don't, 1 => ask useremp Q..H"EMDirectory Lister'me e Fundamental es~p< Ring E Lisp MULTIPLE-VALUE Indent dent LISP 3 F[DFILE
FSOSTECO"E
ETFOO EVARS
FSXUNAMEFSDFN1'
"#ETEMACS.VARS'
FSHSNAMEFSDSNAM
F[BBIND[1[3[4
128*5,32:i*[2
*5:f2 /
"*5:f2 |!'!
1:<ER@Y>"L '
<.-Z;
@:F "EL!<!>'
1AF :"L@L!<!>'
.,(CS:.-2,.+1F=::"EC'
).-1X3
.u1@f l
1a-34"eq2[..d
.+1,(@fll).-1x4
]..d
@:i4" 4"!''!'
"#.(:\u4)-."eq1-1j'
@f l
:@f "n
q1j:X4''
FQ3-2:G3F :"'L+(
0:G3- :"'E)"L
M4U 3@L!<!>'
F=3*"EM4'
"#Q4M.V 3'
@L>
:@i*|[1fsqpptr[2
:g(m.aAUX& Process Init Vars)u2
q2fsqpunwin
:m(q1(]1))
|m.vMM & Process Init Vars
MM & Process Init Vars Inhibit Write ~i< Main ode; !* non-0 => do auto saves!
"'N M(M.MAuto Save Mode) lt5 !* non-0 => by default use auto save!
1FSMODECH ne EMACS Library Filename EMACS Version TWENEX Library Filename S Given an object, returns its full name.
The object should be given as a prefix arg, and
the name is returned as a string pointer.Name MM ~DOC~ & Macro Namee:! [2[3[4
fp-101"e
q:..q(0)u2
:fo..qMM u3
:fo..qMM! u4
<q3,f..qu3
q3:;q3-q4;
q3/3*3+2-q3"e-69u40;'
%3>
q4+69"n0 '
3,10000:g:..q(q3-1) '
fp+4"e
0,m(m.m& Get Library Pointer)BAREu2
q2"n,q2m(q2m.m~Invert~)u2'
q2 '
fp-100"n@feQNSfserr'
fs:ejpage*5120+400000000000.u2
400.*5120+400000000000.u4
<q2-q4;q2-;
q2+fq2+4-;
q2+fq2+4u2>
q4-q2"e0 '
:i4~INVERT~q4,q2m(Q2+4)u4
,q2m4 e MM & Macro Name 8 S After a ) has been inserted, shows the matching (.n MM ~DOC~ & Matching Parenn:!H FSRGETTY"E0 'Q..F"E0 '
0:"N0 '
QDisplay Matching Paren[1
Q1"E0 '
.[0FNQ0J
R
<B-.;0A*5+1:G..D- /:@;R>
Q0-1-.&1"N0 '
Q0J
0F[%TOP
0,0A*5+2:G..D[3
QPermit Unmatched Paren[2
F[VB
Q2"NQ1"LFSWINDOW+BFSVB''
1:<-FLL>"LQ2"EFG'0 '
F]VB
Q1"LFSWINDOW+B-."G0 ''
Q3-32"N1A-Q3"NFG''
0@V
Q1 *30:
q0J0@V
0 , C Store buffer in specified file.
This file becomes the one being visited.
Specify filename as string argument.
Precomma arguments have hairy meanings; see the code.File MM ~DOC~ Write File le:! QBuffer Index[2
0F[VBW0F[VZW
:F "LQ.F-Q..F"E
Q:.B(Q2+2)F"NFSDFILE'''
5,1F Write File[1ET 1
F[DFILEET[TECO] OUTPUT0FSDVERSWEIF]DFILE
FSOFCDATE[3
HPEF
0FSMODIF
0FSXMODIF
+1"EFSRGETTY"EONoPrint''
FSOFILE[1FSRGETTY"E:FT'
:I*CFSECHODIS
@FTWritten: 1FSECHOLINES-1"N@FT
'
0FSECHOACT
!NoPrint!
Q..F-Q.F"NQ3 '
FSZU:.B(Q2+11)
FS^RMDLYFS^RMCNT
:"L
Q3U:.B(Q2+8)
FSOFVERSF"L
FSOFILEF[DFILEFSDFN2:F6(
F]DFILE)'U:.B(Q2+9)
1FSMODECH'
"N0 '
FSDFILEU1
M(M.MSet Visited Filename) 1
0 File MM Write File
~ T S Standard M.I: prepares for an FI,
by prompting and/or finishing redisplay.
A post-comma argument is used for prompting instead
of the most recent character typed in.
The pre-comma argument is bit-decoded;
1 => Check for metizer characters. Echo meta bits.
2 => Don't prompt or echo.
4 => Echo meta bits on non-digits.ut MM ~DOC~ & Prepare for Input [0[1
FSHELPMAC-(M.M^R Documentation)"E
M.M& Read Line HelpF[HELPMAC'
0[D
FSOLDFLUS"EFSTYPEOU"L0@V''
&2"NOMETIZE'
FSECHOACTIVE"E
20:"E
FSTYICOUNT-(FSTYIBEG)U0
Q0<FS.TYIBACK>
@FT
Q0<FS.TYINXTU1
Q0-1U0"NQ0@;'
5,Q1M(M.M& Charprint)
@FT >
FF&1"NU1@FT 1'''
FSECHOACTIVE"N
FSRGETTY"N@FT '
&5"N@':FIU1
&4"N:FIF 0123456789"G:FIU1''
5,Q1M(M.M& Charprint)
@FT '
!METIZE!
:FIW
&1"E '
@:FIFS^RINDIRECTU0
FQ 0"G
F~ 0!BIT-PREFIX-12"E
FIWQ0,M 0FSREREAD''
nput MM & Prepare for Input , & Internal hook to help Lisp indentation$ k- MM ~DOC~ & Standard Lisp Indentation Hook' K [1[2[3
2fo..Q L Special Indent Offsetu1
.u2
+1j
1a*5+1:g..D- A"nq2j0 '
@flx4
@fll
-3fo..Q L 4 Indentu3
fq3:"lq2j:fm3'
q3:"loSpec'
q3+1"eoDef'
q3+2"eq2j0 '
q L Indent DEFanything"n
f~4DEF -4"eoDef''
q2j0
!Spec!
.(+q1jfsshposu4)j
:<:@fll1a- ;:@;l>
fsshpos-q4:"gq2j0 '
q3:<<:@fll1a- ;:@;l>@fll>"n
q2j,0 '
.-"gq2j,0 '
1:<<:@fll1a- ;:@;l>@fll>"n
+q1j0 '
.-"g+q1j0 '
q2j0
!Def!
l.-q..2"g
+q1j,0 '
"#q2j'
0 ' MM & Standard Lisp Indentation Hook 2 & Hook indents PROGS with tags right justified ok& MM ~DOC~ & Standard Lisp PROG Hook:!* [0[1.[2
+1j
1:<<:@fll1a- ;:@;l>
0,1a*5+1:g..d- ("n@fll!<!@>'
@fll>"nq2j,0 '
.-"gq2j,0 '
2u0
Z-qZj0l@f l
,1a*5+1:g..D- A"e
+q0-1j'
"#+q0j'
,0 k MM & Standard Lisp PROG Hook
? S Auto save all buffers.
We don't need to select a buffer unless we save it.
Argument is nonzero if have already auto-saved anything.
Nonzero precomma arg means ignore selected buffer. ers$ MM ~DOC~ & Auto Save All Buffersrs:!$ Q..F-Q.F"N0 '
FQ.B/5[00[1[..O
QBuffer Name[2
[3
0[4
[5
FNQ4"NQ2M(M.MSelect Buffer )'
<Q1-Q0;
Q:.B(Q1+10)"N
"'EF"EWF~:.B(Q1+1) 2'"N
Q:.B(Q1+4)[..O
FSZ*(FSXMODIF)(]..O)"N
Q:.B(Q1+1)M(M.MSelect Buffer)
1U4
Q3"E
FSRGETTY"N@FT (Auto Save)'
"#@FT''
1U3
F[DFILE
1:<2,1M(M.M^R Save File)>"L
QBuffer FilenamesU5
FG@FT (Auto Save error for 5!)600FSECHOACT'
'''
Q:.B(Q1)+Q1U1>
s MM & Auto Save All Buffers
~ P ^R Save visited file on disk if modified.
An argument means do an auto-save type save.
"1," as argument indicates that this call was not explicitly
requested, and the user should be asked to confirm if
the file has become a lot smaller. "2," means an Auto Save,
which should abort rather than query if anything might be wrong.File MM ~DOC~ ^R Save Filee:!
Q..F-Q.F"N0 '
QBuffer Index[5
FF&1"EFSMODIF"N1FSXMODIF''
Q:.B(Q5+10)[1
QBuffer Filenames[0
1[2
FQ1"GFF&1"N
Q1U0-1U2''
Q0"NQ0'F[DFILE
Q2"G
Q:.B(Q5+12)"N
"N0 '
@FTFile is read only. Save anyway
1M(M.M& Yes or No)"E0 ''
Q0"N
FSDDFAST"L
1:<ERFSIFCDATE[4EC
Q:.B(Q5+8)[3
Q4"NQ3"NQ4-Q3"N
:I*AFSECHODIS
@FTThe file now on disk is not what you last visited or saved!
FQ1"L0UAuto Save Count'
-2"E@FTNot auto saving 0.
600FSECHOACT '
FSXMODIF"N@FTShould I write the file anyway
1M(M.M& Yes or No)"E0 ''
"#@FTLuckily you have not edited the buffer since then.
Use Revert File to read the version off disk.
0FSECHOACT '
'''>'''
FSXMODIFIED"E
@FT
(No changes need to be written)
FQ1"LFF&1"E
0UAuto Save Count''
0FSECHOACT '
Q2"G
Q0"E"N '
@M(M.MWrite File) '
FSOSTECO"N
fsxjname[j
f~jSNDMSG*(f~jHERMES)"n
0FSDVERS"N
FSDFILEU0
Q0U:.B(Q5+2)
1FSMODECH
Q0UBuffer Filenames''''
"N3*FSZ-(2*Q:.B(Q5+11))"L
-2"E@FT
(File has shrunk -- not auto-saving 0)600FSECHOACT '
0F[TYISOURCE
@FT
File has shrunk a lot. Save anyway
@FG1M(M.M& Yes or No)"E0FSERR'''
Q1"NFQ1"L
QAuto Save Max-1"E
QAuto Save Count"G
Q:.B(Q5+9)FSDVERS
1,M(M.MWrite File)
FF&1"E
0UAuto Save Count'
0 ''''
Q2,M(M.MWrite File)
Q1"E0 '
%Auto Save Count
FQ1"G
FF&1"N
1FSMODIF
ODelAutoSave''
"#QAuto Save Count-QAuto Save Max"G
!DelAutoSave!
1:<0FSDVERSWER>"E
FSIFVERS(EC)-QAuto Save MaxF"GFSDVERS
1:<@ED>''''
FF&1"E0UAuto Save Count'
0 File MM ^R Save File o S Set the ..J Mode to display options.
When setting the major mode, call this with a nonzero argument
and the major mode name as a string argument. It will change the mode
and run the <modename> Mode Hook variable, if there is one. MM ~DOC~ & Set Mode Line -(FSQPPTR*2)FSMODECH
FSVZ+B[4
QEditor Name[0
QMode[1
QBuffer Index[3
"N:I1 Q1UMode
0FO..Q 1 Mode Hook[2
Q2"NM2''
0[.1q..J[.2
<fq.2@;0:g.2- [:@;%.1
1,fq.2:g.2u.2>
F~.2 0-1-FQ0"N0 '
F[BBindG0I
0FO..QEditor Type[2
Q2"NG2I '
I(G1
QSubmodeU2FQ2"G
I[ 2]'
QAuto Fill Mode"N
I Fill'
FSJRNOUT"N
I Jrn'
Q:.B(Q3+10)"N
I Save'
"#QAuto Save Default"N
I Save(off)''
FS^RREPLACE"NI Ovwrt'
FSTYISINK"NI Def'
Q4"NI Narrow'
MSet Mode Line Hook+0U2
FQ2"GG2'
I)
QBuffer NameU2
QBuffer FilenamesU1
Q1"NQ1F[DFILE
F~(FSDFN1:F6) 2"E0U2''
Q2"NI 2: '
FQ1"GG1
FSOSTECO"N
FQ1RFSHSNAME:F6U2
FSOSTECO-1"E
FQ2 F~ 2"EFQ2D''
"#4 F~DSK:"E4D
FQ2+2 F~< 2>"EFQ2+2D'''
ZJFSDVERS"E-2D''
FSDVERS"'E+(FSDVERS+2"'E)"L
Q:.B(Q3+9)U1
I (G1I)'
Q:.B(Q3+12)"GI (R-O)'
Q:.B(Q3+12)"LI (Buf R-O)'
I '
ZJQ.1<I] >JQ.1, [I
hf= ..j"nhx..j'
0 ^R Search for character string as you type it.
C-Q quotes special characters. Rubout cancels last character.
C-S repeats the search, forward, and C-R repeats it backward.
C-R or C-S with search string empty changes the direction of search
or brings back search string from previous search.
Altmode exits the search; with search string empty
it switches to non-incremental ^R String Search.
Other Control and Meta chars exit the search and then are executed.
If not all the input string can be found, the rest is not discarded.
You can rub it out, discard it all with C-G, exit,
or use C-R or C-S to search the other way.
Quitting a successful search aborts the search and moves point back;
quitting a failing search just discards whatever input wasn't found. rch" MM ~DOC~ ^R Incremental Search \ 23.fo..qSearch Command[.7
21.fo..qSearch Quote[.8
[D
0[L
10.[R
[Q@:iQ`
q4+1*5-fq3"e
q3[..ozj
200,0i]..o'
.u:3(%4)
qLu:3(%4)
q2u:3(%4)
q0u:3(%4)
qDu:3(%4)
`
[T
fstyisourc"e
@:iT`
Q9-Q.9"N2[R'Q9U.9
fsrgetty "n2&qR"n
qcfsechodis
@ft 9: q2u8''
@ft 8 :i8
`'
"#:iT'
[C:ICTL
[0
[2:i2
[8:i8
[9
0[.9
1fo..qSearch Exit Option[E
200fsqvector[3
-1[4
[5
.[P
[S:ISM.M& Isearch Rubout US:MS
:I*M(M.M& Isearch Help )F[HelpMac
1f[noquit
[6[7
qD"g:i6I-Search:i7Failing I-Search'
qD"l:i6Reverse I-Search:i7Failing Reverse I-Search'
q6u9
0[I
fsrgetty"e
fstyisourc"e@ft S: '
1fstypeo''
!Restart!
1:<1uI-2f[noquit
<qL"eq6'"#q7'u9q9-q.9"nmt'
0@V1uI:fiu00uI@fiu5
q5- "efq2:@;!<!0;>0fsnoquitwqD:m(m.m^R String Search)'
q5-8"eoFunny'
q5-176."goFunny'
q5-
FSREREAD'
!Normal!
4uR
mQ
:i2 2 0
fstyisource"e
fq8"nmt'
@ft 0
"#
!Try!
mt
''
qL"n!<!>'
.u5
40.&qR"e
qD"gfq2-1r'
"#fsz-qPf[vz
fq2-1"gfq2:c"ezj''
f]vz''
qD:s 2"l!<!>'
q5j1uLfg!<!>
!Funny!
q5-177."eoRubout'
q5&537.-(q.7+100.)"eoForward'
q5&537.- R"eoBackward'
q5&537.-(q.8+100.)"eoQuote'
qE"eonormal'
oControl
!Quote!
1f[noquit
fsosteco"n-1f[helpch'
fiu0
fsosteco"nf]helpch'
0fsquitwf]noquit
onormal
!Forward!
qD"l:i6I-Search:i7Failing I-Search'
q4"LqD"goDefault'
"#1uD!<!>''
mQ
qD"L0uL'
1uD
40.uR
otry
!Backward!
qD"g:i6Reverse I-Search:i7Failing Reverse I-Search'
q4"LqD"loDefault'
"#-1uD!<!>''
mQ
qD"g0uL'
-1uD
40.uR
otry
!Default!
mQ
qSearch Default Ring[..o
.fswordu2]..o
fq2"l:i2'
q2u8
40.uR
otry
!Rubout!
q4"lfg!<!>'
ms
qL"eq6'"#q7'u9
mt!<!>
!Control!
q5fsreread
0;
>
f]noquit
>u0@feqit-q0"e@fg
qL"'gqI"N:i*:'"#:i* 'fsjrnwr
QL"g<ms-ql;>mt
oRestart'
qI"emsmtoRestart'
QPJ0fsnoquit
-1fsquit'
q0f"nfserr'
fq2"g
qSearch Default Ring[..o
fq(.fsword)-1"G5c.-z"ej''
q2,.fsword
]..o'
fstyisource"e@ft '
qPmMM & Maybe Push Point
0 ch MM ^R Incremental Search # ^R Search for a character string.
Reads string in echo area. Special characters:
^B Start search from beginning of buffer.
^D Yank in a default off of search default ring,
popping it. Flushes any previous type-in.
^E Start from end of buffer.
^F Position window so search object is near top
^L Redisplay.
^Q Quote next character.
^R Reverse direction.
^S Search then return to read in loop.
^T Yank in the Teco default.
^U Flush string so far.
^V Find string only if surrounded by delimiters.
^W Word search (ignore any white space between words)
^Y ^D with no pop and no flush.
Search then exit to ^R mode, whether succeed or fail
Rubout Delete last character of search string.
If you search for the null string, the default is used.
Otherwise, the new string becomes the default and the old
default is saved on a ring, unless it is only one character.h MM ~DOC~ ^R String Searchh:!$
23.fo..qSearch Command[.7
21.fo..qSearch Quote[.8
[0[8[90[3
[1
0[5.[6
0[.30[.40[.5
Q..O[4
fsBCons[2@fn/Q2fsBKill/[..O
0[7
F<!EXIT!
F<!SEARCH!
Q7"Gfsrgetty"E0u7''
Q7"E fsEchoDis
CfsEchoDis
Q5"L@ftBJ 'Q5"G@ftZJ '
Q.3"N@ftTop Line '
Q1"L@ftReverse '
q.5"N@ftDelimited '"#
q.4"N@ftWord ''
@ftSearch:
Q2U..OH@t-1U..0'
"#Q7< fsEchoDis
XfsEchoDis>0U7'
<Q4U..OfsListen"E0@v'q2U..O
@:fi:fcu0fiu9
q0-33."Eq9fsEchoOut
q3"nf;EXIT'
f;SEARCH'
q0-177."Lq9iq9fsEchoOut
0u3q0-
i'!<!>'
q0-302."E-1u50u31u10;'
q0-304."EHK0U3
QSearch Default Ring[..O
.FSWORDu0."EZJ'5R
]..Og00;'
q0-305."E1u50u3-1u10;'
q0-306."E1-q.3u.30;'
q0-314.@;
q0-(Q.8+300.)"E@ftFIU9'
q0-322."E-q1u10u30;'
q0-(Q.7+300.)"E@ft1u32u7
f;SEARCH'
q0-324."EHK0U3
g(fsSString)0;'
q0-325."EHK0;'
q0-326."E1-q.5u.50;'
q0-327."E1-q.4u.40;'
q0-331."E0u3
QSearch Default Ring[..O
.FSWORDu0]..Og00;'
q0-177."E0u3
Z"Nfsrgetty"E0afsEchoOutw-D!<!>'
0A-37."G0a-177"N1U7''
-D'0;'
0u3q9iq9fsEchoOut'
>>
Z"N0S ..O'
Z(QSearch Default Ringu..O
)"N
FQ(.FSWORD)-1"G5C.-Z"EJ''
FSSSTRING,.FSWORD'
"#.FSWORDFSSSTRING'
Q4U..O.U8FNQ8J
Q5"LBJ'Q5"GZJ'
q.5"nq1"l-q1<-:s 2"eoSFL'0a(fk-1c)"c@'>fk-1r'
"#q1<:s 2"eoSFL'fk+1c-1a"c@'>fk+2r''
"#Q.4"NQ1,Q2M(M.M& Word Search)'"#Q1:S'"E
!SFL!-1FSQPUNFG
q3"N@ft FAIL 0fsechoactive'
1 '']..N
q.3"N:f
2fo..QNext Screen Context Lines:@f'
Q5"N0u50u7'
-q3;Q1"L-'1u1>
Q4U..O
Q6M(M.M& Maybe Push Point)
q.3"N:f
2fo..QNext Screen Context Lines:@f'
0fsEchoActivew1 MM ^R String Search
i ^R Search for a single character.
Special Characters:
^A Call ^R String Search; use M-X Describe to see what that does.
^F Position window so search object is near top
^Q Quote following character
^R Reverse search direction and read another char
^S Search for default
Also done if character the macro was called by is typed again,
overides any other function of that character shown here.
^T Search for Teco default
If ^S is not used, the character typed becomes the default
for future searches. The previous default is saved on a "ring",
unless it was only one character.h MM ~DOC~ ^R Character Searchch:!! 23.fo..qSearch Command[.7
21.fo..qSearch Quote[.8
[0[1[20[3[9
!RDCH!M.I@:FIU0
FIU9
Q0-(FS^RLAST)"EQ.7U0'
Q0:FCU0
Q0-301."E
Q1:M(M.M^R String Search)'
Q0-306."E1u3oRDCH'
Q0-(q.8+300.)"EM.IFIU9'
Q0-322."E-Q1U1ORDCH'
Q0-(Q.7+300.)"EF[SSTRING
QSearch Default Ring[..O
.FSWORDFSSSTRING]..O
OSEARCH'
Q0-324."N
F[SSTRING0S 9'
QSearch Default Ring[..O
FQ(.FSWORD)-1"G5C.-Z"EJ''
FSSSTRING,.FSWORD]..O
!SEARCH!
.U0Q1:S"EFG1 '
Q0M(M.M& Maybe Push Point)
q3"N:f
2fo..QNext Screen Context Lines:@f'
1 ch MM ^R Character Search
Q C Read mail using your favorite mail-reader.
Passes a string argument to the mail-reader.
If the variable Mail Reader Library exists,
it is the name of the mail-reader library.
Otherwise, on Twenex, if Mail Reader Program exists,
run that program in a subfork; and an argument means
kill the subfork. The default is RMAIL on ITS, MM on Twenex.
A precomma arg of 1 means just mail one message.
A precomma arg of 2 tells RMAIL to exit to DDT when done. Mail MM ~DOC~ Mail :!- [2-1"n:i2<entry>'
"#:i2& Mail Message'
:f "l:i*'"#:i* '[1
0fo..qMail Reader Library[0
q0"efsosteco"e:i0RMAIL''
fq0:"lfm(m.a 0 2) 1 '
0FO..qMail Reader Programu0
q0"e:i0MM'
0fo..qMail Fork[2
"eff&1"n"nq2"n-q2fz
0uMail Fork'0 '''
"nf=0MM"e:i1SEND''
"nf=0MS"e:i1SEND''
0fo..qFork Call Hook[3
fq3"gm3'
:fr
:i*Zfsechodis
0fsechochar
q2"nfq1"g0,q2fz 0 1
'
"#q2fz'oDone'
fsOSTeco-1"e
fzSYS: 0.EXE 1
[1'
"#fz<SUBSYS> 0.SAV 1[1'
q1m.vMail Fork
!Done!
0fo..qFork Return Hook[3
fq3"gm3'
0 il MM Mail
Y C Mail a message, using your favorite mail-reading program.
If you abort the message, you can resume by giving this
command a nonzero argument.
The mail~readereusedabydefault isRMAILSondITS,iandrMMfon[Twenex.ader Library'w
1,(F):m(m.mMail)
~ C Read new messages, using your favorite mail-reading program.
The mailOreaderdusedlby defaultCisRRMAILaonITS,!and MMoonqTwenex.der library"n
(F)m(m.mMail) '
(F)m(m.mMail)READ il MM Read Mailent FS:EJPAG-256"E '
QEcho Area HeightFSECHOLINES
0F[VARMAC
FSSAILUSAIL Character Mode
FS^MPRINTUDisplay Overprinting
en
:,.F .X~[< !PREFIX!F@:M(Q.XM.P) Control-X Q.X
st MM & Startup EMACS *Initialization*~ ! EMACS (Fundamental) Main: # !* -*-TECO-*- *!
!* This is the EMACS init for INFO. It sets up the EMACS/INFO environment
necessary for dumping a new INFO EJ file.
*!
:i*INFO m.vEditor Name !* Editor Name and ..J must match!
:i..jINFO !* when the initial ^R is entered!
!* so that our *Initialization* gets called.!
:i**INFO*m(m.m Select Buffer)
!* Create startup macro to be run when we're 'd.!
@:i*| m(m.mLoad Library)INFO !* load the INFO library!
fj :0k hfx1 0fsmodif !* Q1 gets JCL, sans CR. It is MM INFO Enter's arg.!
:m..l
| m.vMM & Startup INFO
!* When ^K'd, we do a ^R, thus executing this string and entering INFO.!
@:i*| fq1"l :i1'
qINFO *Initialization* U*Initialization*
etDSK:INFO.INIT fs hsname fs dsname
1:<er>"e
fs d file[2
fs msname fs dsname
@y 1a-127"n ]2 !* if init doesnt begin with rubout then!
m(hfx*( 0fsmodified 0fsXmodifw))' !* execute it as TECO commands!
"# hk 0fsmodified 0fsXmodif
1,m(m.mLoad Library) 2'' !* else load it as a library!
!* saving the filename!
0fsmode mac
m(m.mInfo Enter) 1
<160000. fs exit
m(m.mInfo Enter)>
| m.v*Initialization*
q*Initialization* m.vINFO *Initialization*
fs osteco"e
m(m.aPURIFYDump Environment)EMACS;TSINFO >'
"#
m(m.aPURIFYDump Environment)<EMACS>NINFO.EXE'
FTINFO Dumped
160000. fs exit
INFO e INFO
*INFO*er~T< Fundamental INFO:<EMACS>INFO.TECO-INIT.0Line Fundamental m(m.mLoad Library)INFO !* load the INFO library!
fj :0k hfx1 0fsmodif !* Q1 gets JCL, sans CR. It is MM INFO Enter's arg.!
:m..l
fO"l :i1'
qINFO *Initialization* U*Initialization*
etDSK:INFO.INIT fs hsname fs dsname
1:<er>"e
fs d file[2
fs msname fs dsname
@y 1a-127"n ]2 !* if init doesnt begin with rubout then!
m(hfx*( 0fsmodified 0fsXmodifw))' !* execute it as TECO commands!
"# hk 0fsmodified 0fsXmodif
1,m(m.mLoad Library) 2'' !* else load it as a library!
!* saving the filename!
0fsmode mac
m(m.mInfo Enter) 1
<160000. fs exit
m(m.mInfo Enter)>
* INFO *Initialization*
~ ~filename~RIFY4 OPN0104 PS:<HESS>PURIFY.:EJ.0 File not found .0 ]*-(fs:ejpage)"n]*' INFO Kill Variable FOg :ejEMACS:<EMACS>EMACS.:EJ.160w:ejEMACS:<EMACS>TWENEX.:EJ.99wq.1u..l0u.1q.2u..p0u.2:m(q.3(0u.3))Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@Y
L@@@|1B 1B 1B 1B 1B + $u@) !* -*-TECO-*- *!
!* This is the EMACS init for INFO. It sets up the EMACS/INFO environment
necessary for dumping a new INFO EJ file.
*!
:i*INFO m.vEditor Name !* Editor Name and ..J must match!
:i..jINFO !* when the initial ^R is entered!
!* so that our *Initialization* gets called.!
:i**INFO*m(m.m Select Buffer)
!* Create startup macro to be run when we're 'd.!
@:i*| m(m.mLoad Library)INFO !* load the INFO library!
fj :0k hfx1 0fsmodif !* Q1 gets JCL, sans CR. It is MM INFO Enter's arg.!
:m..l
| m.vMM & Startup INFO
!* When ^K'd, we do a ^R, thus executing this string and entering INFO.!
@:i*| fq1"l :i1'
qINFO *Initialization* U*Initialization*
etDSK:INFO.INIT fs hsname fs dsname
1:<er>"e
fs d file[2
fs msname fs dsname
@y 1a-127"n ]2 !* if init doesnt begin with rubout then!
m(hfx*( 0fsmodified 0fsXmodifw))' !* execute it as TECO commands!
"# hk 0fsmodified 0fsXmodif
1,m(m.mLoad Library) 2'' !* else load it as a library!
!* saving the filename!
0fsmode mac
m(m.mInfo Enter) 1
<160000. fs exit
m(m.mInfo Enter)>
| m.v*Initialization*
q*Initialization* m.vINFO *Initialization*
fs osteco"e
m(m.aPURIFYDump Environment)EMACS;TSINFO >'
"#
m(m.aPURIFYDump Environment)<EMACS>NINFO.EXE'
FTINFO Dumped
160000. fs exit
RIFY @ %`@ %J @ X@ @ %` @ %`. @ @ %`7 @ %`D@ %`^ @ 3@ %`g@ o@ %`w@ %a z@ %a@ %a0 @ %a=@ %aZ @ %ad @ e@ %an@ @ %az@ %b z@
@ %bw @ %b@ %c @ %cQ@ b@ %cX@ %ch@ g@ %cr@ %d
@ %d@ %d+ @ @ %d8@ m@ %dC@ %dX@ ",*@ %db@ %dt@ w@ %e @ 7@ %e @ W@ %e @ @ %e&@ ^ @ %e-@ S @ @
n @ P @ %e5 @ @ %eE @ =@ %eT #@ ^@ %e\@ &@ %eh@ %e{@ +@ %f@ %f@ /@ a@ _ @ 2 @ %f% @ %f0 @ %f; @ %fF @ %fP @ %f[ @ %fi @ %fr @ %f} @ %g @ %g @ %g"@ @ %g. @ %g9@ %gG@ $4 @ %gT @ %g^ @ %gi @ %gr @ %g| @ %h @ s @ %h @ %h)@ &^ @ %h3 @ %h= @ %hH @ %hR @ %h] @ %hi @ %hx @ *@ (> @ %i @ %^ @ %i @ %FX @ %i&@ %G, @ %i/@ #8
@ %i@ $,y @ %i=@ %" @ M@ ~ @ %iF@ @ %i^@ %
u @ %iR@ %
5 @ #u@ !l @ %in@ $\? @ %@ @ %i}@ %a @ %j@ 2z @ &@ $4 @ '5@ &^ @ X@ %
d @ @ 6 @ %j@ $-Y @ :@ %< @ %j@ #b! @ z#@ x @ J@ #x' @ }@ |i @ {o@ {D @ @@ > @ un@ sR @ f@ ^ @ T
@ M{ @ pO@ j3 @ J@ I @ 8t@ 8 @ ;)@ :u @ Aq@ @- @ VY@ UK @ Dt@ D7 @ Gn@ G5 @ wz@ v @ |V@ | @ {1@ z4 @ =o@ = @ s5@ pf@ @ 6 @ %j@ $-Y @ @ V@ V @ UP@ Tb @ @ , @ N@ Kb @ 9N@ 6G @ +N@ *$ @ E3@ A` @ %j"@ ^/@ %j&@ %j6 @ %j@ @ {@ %jI@ "@ %jR@ %ji@ '@ %ju@ %k@ %k @ %k9@ Wz @ %kC@ > @ %kM @ %kV@ %km D@ %kw@ %l @ '@ %l @ d @ %l*@ - @ %l5 @ 1@ %lW@ a@ %l\@ E @ Q@ %ld@ G@ %lp@ %m@ z@ %m@ %m @ n@ @
@ @ 1@ @
c@ ^ @ %aZ @ ^
@ ^@ ^ @ %aZ @ %Cf @ $z% @ $`C @ $> @ $#` @ #|@ #~h@ $C@ $u(@ $X@ +\@ $@ $#=@ $X@ @ $ @ $n@ $V @ $* @ $ @ $IC @ %6@ %1s@ %1e@ %<m @ $0n @ #w' @ $ @ %=[ @ "4! @ $HP@ $
{Go |py }ra + }xry - ~ sA 1 ~Ssy 5 uy E %v F Qv1 H [|Y i ~|q k ~1 w 1~Q y G } ) ~ Ni! Yy! ~`~ ti < %~)! M~a z ~ u i! q! y! ]zI j xy ] I~y
Q J |i }9 o ~! SpI %oi @oy ty = (u > 0Q! kyA P Cy9 O Y}i /}a DyY Q wyQ Q a ~ V{ ] >{ ] Ry9!f Rx1 G gx) F {yq S @yi R ]|Pm ]~I
m~A z! V Cz U my) ` mA d9 !z9 W !=z1 W !`Y !`{ m "CQ "_y) N #]y! N #~|A y %]|9 y %x{a b '3{Y a 'Ixy K 'Iy!d -[xq K /z T 0(z T 0A G 0A) 4+{I ` 7K{A ` 7jxa J 7jm\i ?exY I ?~{y c Cg{q c Dy M J y L J4{1 _ M{) ^ M xI H O<xA H OUzQ Y QIzI X QW|i" QWwQ A SqwI @ T{ \ Tzy [ Ux E U=x E UQzi Z V ^ V$za Z V7}" V7x D Vcwy C W K Xzx_ `-}Ht `/m@\l `;}! n hi jn j F j+ ^J j+ ^J o}tQ : p~x p
qi $ p
! p6 p6)! p6 e p8!! p?~9! p}| e q{Xe q]vA I q]n smv9 I t= ^ tn 8 u` v@ ^! vS