Trailing-Edge
-
PDP-10 Archives
-
6.1_emacs_manuals_1er
-
emacs/emacs.exe
There is 1 other file named emacs.exe in the archive. Click here to see a list.
?p @ ' ?h < ?x - < ! ?x #?w H \?w >T oe @ 3 @ W? x ? (4x
& A @ $G oe 2 Kb,0 H z y ~ q@ @ %S _ r 6d xU K6
<`
Ax8
UMV**U.U
Ax8 ?x EMACS EMACS NEMACS EXE FTN20 VASAK.EMACS PATCH FTN20 VASAK.EMACS NEMACS EXE
_ k , >@
c ^P e e e e e e + + . n 4 P&H
P' l
*H #d0"T P( l `"4!L`"`P
P' lP$8 * lp p!T P"8
@m 0 y 0 y , VE : ^ ^W aO@ !fC oxT 8^P @ EB
, Z, v, Z, v-d ,3J '-d $#: 6 + $c+@ 7
-d ,+ $`+@ 3J '-d ,9 .@
e ^T | @* ~8 @ %B @ ZQ T pHY i h m w k w S S T R@ 5 R@
c @ !L S@ !L S 1 e m R@ p S@ R@ !L S@ | @ 6o S S f r gr 9 @ H zr 6e ~ " q@ @ S _r !h |F Y
L@r !{ 68}~ r t r ", jr "2X!-X!-X!-x!-x!-8!-8!-8!- !2 T2 -z U - u ' x6x> ! ) ' & " " ) " # ' ) ) * ' ( + & $ ' " )
d@ %p@ %
d @ Z<@ ZA@ %!@ 9@ %#S @ %6 @ !p @ %J@ % ^@
@
h @
! @ %6@ B @ X&@
c @ @ @
c : U U 0 X 8 Y.
# : `c y@`@ %
$ $ #- !!" \$ J - G L M @O@ u 2 R b+
Internal error at 6$ EMACS:TECPUR.EXE.1121 @ 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@ 9d@ $I@ $x@ $
F@ #}n@ X@ #|@ $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@ $ g g j j ^I ] ^ ^
^ @ "X@ Vu@ "X r(g ^ @ %# @ W@ [
@ "X q^ ^" @ #g" px\ ^&P ] ] @ !fC oxT ^)Z : : ;P 0 0 0 0 7 7 Z , , P Z l l l l Z g g 2 2 O @ !fC oxT ^0
b
MMRUNPURIFYDUMPNEMACS.EXE
MMRUNEINIT? DOCUMENT value in q-reg ..E (output radix) 3 2<1 The second argument was lessAthanAthe first AFN Ambiguous)FS flag name AOR ArgumentAoutAof range ARG BadAargument ) AVN Ambiguous variableAor macro name. ? BD" BadAconditionAafter " -- should be G,L,N,E,B,C,D,A orAU A BEL A buil - ..E BadAvalue inAq-regA..EA(output radix) 3 2<1 TheAsecond argument wasAlessAthanAtheAfirst AFN Ambiguous FSAflagAname AOR ArgumentAoutAof range ARG BadAargument ) AVN Ambiguous variableAor macro name. ? BD" BadconditionJafter "M--SshouldSbeMG,L,N,E,B,C,D,Aor U A BEL A>built-in:^R.command called from macro signaled an error 5 CMD A char that isn't a TECO command was executed 9 CNM Caller wasn't a macro (it was TECO internal code) ' DCD A disabled command was executed DSI Damned screw infinitely 3 ERP Attempted :< ... ^\ with no closing > 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< MM & Yes or Noce MM Make SpacelG !* number of characters between auto-saves!
fs^rmdlywfs^rmcnt inB !* Don't let cursor be in this percent of screen!
FS%BOTTOMrch/ !* 1 => Searches ignore case!
FSBOTHCASEtB !* Center cursor this percentage down the screen!
FS%CENTER e; !* 1 => Display mode line in standout mode!
FSINVMODtingO !* 1 => Try real overprinting on the screen!
F"'NFS^HPRINW"'NFS^MPRINght5 !* Number of lines in echo area!
FFSECHOLINES gin; !* Leave this percent of screen blank at EOB!
FS%END rea= !* 1 => display error messages in echo area!
FSECHOERRlumn7 !* Page width for filling and grinding!
FSADLINEdeP !* Overwrite Mode status (see M-X Overwrite Mode)!
1FSMODECHWFS^RREPLACE < !* 1 => Display chars 0-37 as SAIL graphics!
FFSSAIL System Output Holding7 !* 1 => let system handle C-S and C-Q!
FSTTYPAGEin? !* Don't let cursor be in this percent of screen!
FS%TOPeJ !* 1 => word commands deal with LISP atoms!
:I.W"n:I.W@'1FSMODECHeu !* nonzero => Auto Fill (break long lines at margin)!
1FSMODECH
32FS^RINITU "E '
M.M^R Auto-Fill SpaceU t ^@ ile+ * 1 => auto save under visited filename de' !* 1 => digits and Minus before control chars set arg!
0FS^RINIT[2
"NM.M^R AutoargU2'
Q2-Q0"E 'Q2U-
Q2U0Q2U1Q2U2Q2U3Q2U4
Q2U5Q2U6Q2U7Q2U8Q2U9
/8+1*8ent Fundamentalren^ !* Controls action of ) in showing the matching (!
"NM.M& Matching Paren'"#0'FS^RPAREN .?!s Modeb !* -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
. ' ig Flag, * Nonzero => Auto Fill indents new linese : : : : : : : : : : : :p2 MEMOXGPPRESS@XGPUNFASLOUTPUTOLREC 2s Visit File Save OldB * -1 => visiting new file saves old, 0 => don't, 1 => ask user Temp Q..H"EMDirectory Lister'ame pe Fundamental t ies~p< UE Lisp MULTIPLE-VALUE Indent LISPn]*'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 Writember~i< Main Fundamental de; !* non-0 => do auto saves!
"'N M(M.MAuto Save Mode) t5 !* non-0 => by default use auto save!
1FSMODECH e 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.me MM ~DOC~ & Macro Name ! [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 Name MM & Macro Name
8 S After a ) has been inserted, shows the matching (. aren MM ~DOC~ & Matching Paren!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. le MM ~DOC~ Write File:! 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 le 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. MM ~DOC~ & Prepare for Input t:! [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''
ut MM & Prepare for Input
, & Internal hook to help Lisp indentationHook- MM ~DOC~ & Standard Lisp Indentation Hookk:!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 $ ook' MM & Standard Lisp Indentation Hook
2 & Hook indents PROGS with tags right justified& 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 Hook 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.s$ MM ~DOC~ & Auto Save All Buffers :!$ 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>
fers 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.le MM ~DOC~ ^R Save File !
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 le 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. ne 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." 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 arch 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. rch MM ~DOC~ ^R String Search $
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 ch 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.rch MM ~DOC~ ^R Character Search!! 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 arch MM ^R Character Search ` 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, and MS at DEC.
A precomma arg of 1 means just mail one message.
A precomma arg of 2 tells RMAIL to exit to DDT when done.l MM ~DOC~ Mail il:!- [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 Mail MM Mail d 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.
Theamail readerOusedeby default isRMAILoonqITS, MMnonrTwenex,yandnMSMatlDEC.er Library'w
1,(F):m(m.mMail) l C Read new messages, using your favorite mail-reading program.
The mailOreaderdusedlby defaultCisRRMAILaonITS,!MM onfTwenex,landaMSratiDEC."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
EMACS EMACSMACS} !* Twenex!
etDSK:EMACS.INIT fs hsname fs dsname
1:<er>"l erDSK:<EMACS>'
fs d file[2 et foo..
!** end of system-dependent code!
fs msname fs dsname
qEMACS Version:\u1 !* sigh, still need this!
@y 1a-127"n ]2 :i*[..9 !* if init doesnt begin with rubout then!
m(hfx*( 0fsmodifiedw 0fsXModifiedw)) ' !* execute it as TECO commands!
hk 0fsmodified
1,m(m.mLoad Library) 2 !* else load it as a library!
!* saving the filename!
*Initialization*
PURIFY DUMP
e~ ~filename~ IFY5 OPN0104 PS:<VASAK>PURIFY.:EJ.0 File not found ame~ & Setup PURIFY LibraryJ.0 ]*-(fs:ejpage)"n]*' S Kill Variableg :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@@@|1B 1B 1B 1B 1B + $u@* !* -* @ %`@ %J @ Z1@ X2 @ %` @ %`. @
@ %`7 @ %`D@ %`^ @ 1@ %`g@ m@ %`w@ %a z@ %a@ %a0 @ %a=@ %aZ @ %ad @ j@ %an@ @ %az@ %b z@
@ %bH @ %bQ @ @ %bp@ ; @ %bw @ %b@ %c @
@ %d@ %d+ @ @ %d8@ i@ %dC@ %dX@ ",*@ %db@ %dt@ s@ %e @ 5@ %e @ U@ %e @ @ %e&@ X+ @ %e-@ S @ @
o @ P @ %e5 @ @ %eE @ =@ %eT #@ ^@ %e\@ "@ %eh@ %e{@ &@ %f@ %f@ *@ / @ %f% @ %f0 @ %f; @ %fF @ %fP @ %f[ @ %fi @ %fr @ %f} @ %g @ %g @ %g"@ @ %g. @ %g9@ %gG@ $5 @ %gT @ %g^ @ %gi @ %gr @ %g| @ %h @ q @ %h @ %h)@ &` @ %h3 @ %h= @ %hH @ %hR @ %h] @ %hi @ %hx @ *@ (? @ %i @ %^ @ %i @ %FX @ %i&@ %G, @ %i/@ #8
@ %i@ $,y @ %i=@ %" @ S@ @ %iF@ @ %i^@ %
u @ %iR@ %
5 @ #v@ !p @ %in@ $\? @ "@ @ %i}@ %a @ %j@ 3 @ & @ $5 @ '7@ &` @ P@ %
d @ %j@ $-Y @ 6@ %< @ %j@ #b! @ z.@ x @ F@ #x' @ }.@ } @ |@ {T @ @@ > @ uq@ sU @ f@ ^ @ T@ M| @ pR@ j6 @ J@ I @ 8v@ 8 @ ;*@ :w @ As@ @. @ V]@ UO @ Dv@ D8 @ Gp@ G6 @ x@ v
@ |o@ | @ {A@ z? @ =q@ = @ s8@ pi @ ^ @ Z` @ Mf@ L+@ P@ %
d @ %j@ $-Y @ @ Tk@ RQ @ 1 @ AT@ 9d @ 1j@ +^ @ K]@ EI @ (+@ 'K @ t@ - @ ~@ ^ @ !]@ 2 @ 2q@ 1w @ $ @ $ @ &L@ &3 @ RE@ PT @ V@ V+ @ Uh@ Tr @ @ 2 @ N @ Kj @ 9Q@ 6M @ +O@ *% @ E9@ Ad @ %j"@ X@ %j&@ %j6 @ %j@ @ {@ %jI@ @ %jR@ %ji@ @ %ju@ %k@ %k @ %k9@ X @ %kC@ ; @ %kM @ %kV@ %km D@ %kw@ %l @ %@ %l @ e @ %l*@ & @ %l5 @ ,@ %lW@ a@ %l\@ C @ O@ %ld@ B@ %lp@ %m@ v@ %m@ %m @ l@ @
c @ %aZ @ %Cf @ $z% @ $`C @ $> @ $#` @ #|@ #~h@ $C@ $u(@ $X@ +^@ $@ $#=@ $X@ @ $ @ $n@ $V @ $* @ $ @ $IC @ %6@ %1s@ %1e@ %<m @ $0n @ #w' @ $ @ %=[ @ "4! @ $HP@ $