Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/mmcm.elib
There are no other files named mmcm.elib in the archive.
xW
[0+8+FQ(+4)[1
0FO10F"G+Q1
'W+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
uMXOV^es|+:G*4EKWe	>	E.55;[csz

		&.:0<S^Ye$.mxnxCO
E
R.'..*Q*)'q'fu!L!Y(j(s%i%}!\!f$%*?*H(V&c%i%w'H'U&
m.m& tags setup hookm.vtags setup hook
m.m& babyl reply hookm.vbabyl reply hook
m.m^r character searchu.S
m.m^r reverse character searchu.R
m.m^r incremental searchu...S
m.m^r compileu..Z
m.m^r various quantitiesu.Q
m.m^r load kbdmacu:.X(()
m.m^r load wordabu... 
m.m^r comma-argf(f(u.,)u..,)u...,
m.m^r frob lisp conditionalu...&
m.m^r babylu:.X(R)
m.m^r mini visited fileu:.X()
:i*INFO-MMCMm.vDont Reply To
"*5+1:f..d|
`*5+1:f..d'
,*5+1:f..d'
@*5+1:f..d'
fs%tofci"n
65fs^rinit,27fs^rcmac'
fsosteco"n
36.fs:etmode
er<emacs>emacs.init'
"#
@:i*|1fssail|m.vLISP Mode Hook
@:i*|0fssail|m.vTECO Mode Hook
eremacs;* emacs'
etmmcm;foo >:i..9
fjh(hk)"e
-1f[^hprint1f[sail
i f[bbind
iEMACS qemacs versionm(m.mdeutsch)
i in TECO fsversiom(m.mdeutsch)
ht-3fsqpun'
zj.f[vb@y:m(hfx*(f]vb))^R Date edit:jgcomment start
qbuffer filenamesf"nf[dfile'
<ig(fsdsname)>ig(fsdfn1).ig(fsdfn2).i
fsdversif"ewe[ere]fsifvers+1'\i, 
0,-1fsfdconvfsxunam, Edit by 0

j,.^R Compileiqbuffer filenames"n
1m(m.m^r save file)'
f+0fsechochar
fsosteco"nex'
"#1m(m.mcompile)'
What tag?j.[1f[sstring[30[4
0fo..qtag table buffer[..o
qbuffer filenamesm(m.m& tag table find file)[2
q2"l:i*file not listed in tag tablefserr'
q2j2l
<,1a-"e0;'
fb\u3
q3-q1f"l-(q4-q1)"g
q3-q1u4.u2''
l>
q2j0fb@0t
0& Tags Setup HookFm.margsu./
0[tags setup hook
m(m.m& setup tags library)
0AIL Mode& FAI Mode=M(M.MMIDAS Mode)
:IModeFAIL
:M(M.M& Set Mode Line)^R Load KBDMAC"m(m.mload)kbdmac
@:m:.X(()^R Load WORDAB/m(m.mload)wordab
m(m.mwordab)
@:m... Resequencef[vz[0[2fsbcons[3
-(f"ew1fo..qResequencing Increment')[1
<-l1a:f"c!<!>'u0fwl1a-:"e
q0:"d0;''>c.f[vb
<.-z;l3,1a:f"c!<!>'u0fwl1a-:"e
q0"d0l\u22f=$:"e
q3[..oz"ni'
iq2\i$]..o''"#0;''>
0lb,.fsbound
j<:s3f"l(rfk+2d)*q1\$i'"#0;'>
^R Various Quantitiesy

q..0[2
!get1!M.IFI:FC[00[1
q0"Dq0-0u1-3u0
<%0;M.I:FI"Dq1*8+(FI-0)u1!<!>'0;>
.,(,q1I).'
q0->"Gq0-["Lofoo''
.,(,Q0i).
!foo!fsEchoDisplayCfsEchoDisplay
q0-F"E^ftForward :i1^R Quantity Forward'
q0-B"E^ftBackward :i1^R Quantity Backward'
q0-D"E^ftDelete :i1^R Quantity Delete'
q0-R"E^ftRubout :i1^R Quantity Rubout'
q0-T"E^ftTwiddle :i1^R Quantity Twiddle'
q0-@"E^ftMark :i1^R Quantity Mark'
q0-U"E^ftUppercase :i1^R Quantity Uppercase'
q0-L"E^ftLowercase :i1^R Quantity Lowercase'
q0-S"E^ftSave :i1^R Quantity Save'
q0-M"E^ftMode (mungs ^F, ^B, ^D, Rubout, ^T): :i1& Quantity Mode Set'
q0-?"E:ftm(m.mDescribe Macro)^R Various Quantities
q2u..0]1]0oget1'
q1"E:i*IQO	Invalid Quantity Operation: 0FG'
[7
!get2!0fsEchoActive
fsListen"E0^v'
FI:FCu00[2
q0-C"E:i7Character:i2'
q0-W"E:i7Word:i2fw'
q0-A"E:i7Atom:i2@fw'
q0-S"E:i7Sentence
^:i2/[0.[1
.,(q0"Gq0m(m.m^R Forward Sentence)'
"#-q0m(m.m^R Backward Sentence)'w).f(q1j]1]0)/'
q0-P"E:i7Paragraph^:i2/[0.[1.,(q0m(m.m^R Forward Paragraph)w).f(q1j]1]0)/'
q0-L"E:i7Line:i2[0.[1.,(Q0L).f(q1j]1]0)'
q0-&"E:i7Buffer:i2h'
q0--"E:i7S-expression:i2^fl'
(q0-()*(q0-))"E:i7List:i2fl'
q0-D"E:i7Defun
^:i2/[0.[1.,(q0"Lq0:S
("EJ'"#L''"#
q0:S
("EZJ'"#R'').f(q1j]1]0)/'
q0-14."E:i7Page^:i2/[0
.[1.,(q0:s


"E'"#q0"G-2'"#3'c').f(q1j]1]0)/'
q0-?"E^ft
Type quantity name: C character, W word, S sentence, P paragraph,
L line, - S-expression, ( or ) list, D defun, ^L page, & Buffer
]2oget2'
q2"E:i*IQT	Invalid Quantity Type: 0FG'
^ft70fsEchoActive
q2[.Q:m(m.m1)^R Quantity Forward-.[0.QR
q0M(M.M& Maybe Push Point)
1^R Quantity Backward..[0-.QL
q0M(M.M& Maybe Push Point)
1^R Quantity Delete[9.Q:m(m.m& Kill Text)^R Quantity Rubout -[9-.Q:m(m.m& Kill Text)^R Quantity Twiddle!q.Q,:m(m.m& Transpose Subr)^R Quantity Mark).QR-.Q[2[1
"Gq2jq1'"#q1jq2':1^R Quantity Uppercase.Qf(f(@fc)r)^R Quantity Lowercase.Qf(f(fc)r)^R Quantity SaveNFS^RPREV-1001"E
.Q@X:..K(0)1'
Q..K[..OZJ-5DJ5,0I]..O
.QX:..K(0)1& Quantity Mode Seta]*
0fo..QQuantity Mode Set Save Vector[0
q0"E6*5fsQVectoru0q0m.VQuantity Mode Set Save Vector
q.Fu:0(0)
q.Bu:0(1)
q.Du:0(2)
q?u:0(3)
q.Tu:0(4)
qSet Mode Line Hooku:0(5)
m.m& Maybe Push Pointm.vMM & Maybe Push Point'
f=.Q"E
q:0(0)u.F
q:0(1)u.B
q:0(2)u.D
q:0(3)u?
q:0(4)u.T
q:0(5)uSet Mode Line Hook
M(m.m& Set Mode Line)
1'
m.m^R Quantity Forwardu.F
m.m^R Quantity Backwardu.B
m.m^R Quantity Deleteu.D
m.m^R Quantity Ruboutu?
m.m^R Quantity Twiddleu.T
q:0(5)u0
^:ISet Mode Line Hook/0+0[1FQ1"L:I1':I*1 <7>(]1)/
M(m.m& Set Mode Line)
1^R Comma-ArgD[.1
:i*NULL[.2
q.2fs^rargw
@m(m.m^r autoargument)w
fs^rarg-q.2"E0fs^rargpw'
1,[email protected]
q..0fs^rindirectfs^rcmacro[.3
-1fsrereadw-1fs^rlastw
,(fs^rargp"Nfs^rarg'"#w')m.3Deutsch	"eizero'
.f[vbm.m& deutsch
0fo..qdeutsch kleinf"n[.0
qdeutsch medium[.1
qdeutsch gross[.2'
"#
m.m& fill q-vector
mbdeutsch kleineinzweidreivierfuenfsechssiebenachtneunzehnelfzwoelfdreizehnvierzehnfuenfzehnsechszehnsiebzehnachtzehnneunzehn[.0
mbdeutsch mediumzwanzigdreissigvierzigfuenfzigsechzigsiebzigachtzigneunzig[.1
mbdeutsch grosstausandMillionMilliard[.2'
f"lwiminus-'ma
j1@fc
fs%toovr"n
<:sueoe;-di"!'!>'
fs%tosai"n
<:sss;>'
zjheutsch:[0[1-1[21000000000[3-2[4
<q0-q3:"l
q0/q3u1q0-(q1*q3)u0
%2"g32i'
1,q1ma
q4"lq1-1"eei'
32i'"#-1u2'
g:.2(-q4)'
%4-1;q3/1000u3>
q0"g%2"g32i'
q0/100[6q0-(100*q6)[7
q6"gg:.0(q6-1)ihundert'
q7"nq7-20"lg:.0(q7-1)'
"#q7-(q7/10*10)u6
q6"gg:.0(q6-1)q6-1"esi'
iund'
g:.1(q7/10-2)''
"eq7-1"esi'''
& Fill Q-Vectorr:i*[00[1[2
<:i*u2fq2@;q2(%1>
q1*5fsqvector[3
!lupo!q1-1f"loexit'u1
)u:3(q1)olupo
!exit!q3m.v0

^R Babyl#m(m.mRun Library)BABYLBabyl& Babyl Reply HookNm.m^r babyl add to-recipient[...T
m.m^r babyl add subject: field[...S^R Frob LISP conditionalCff&2"e-1'"#'[az-.[b
qa:s(COND(AND(OR[0
q0"e@feSFLfserr'
qa"gfk+1'c1a"'u[1.[2
z-qbj0[cqa"l:s
(fkc.[d-:s
(<.-qd;0,qdfuc>
qc&777777.ucz-qbj'
qc"ni
qc,)ii
z-.ud'q2j
q0+1"e@fwk2fdl
:sNOTNULL+3"g
-ful.(@fll-d)jd@fwk
@f 	kq2j
iOR'
"#q2jiAND'
@f 	l
.(@fll-d)jd'
"#r@fll-fdl)ir0[3
<-@fllq2-.;%3>q2j
ff&1"e0'"#1-'[4
q4+q3-3"l@fwkiCOND
:@fll(i'
"#iCOND ((.(
q4f"gwful'"#+q3@fll'
)i)-1j'
q0+3"e.(@fll)i)ji(NOT ''
q1"eq2,.fc'
q0+3"e-2'"#-'ful
@m(m.m^r indent sexp)
@fll-fdl.u2
qc"nz-qdj-k-2dq2-."gz-qbj''
q2j^R Mini Visited Fileo[1FF"E:I1Buffer Filenames'
"#:I1Minibuffer'
[0q..o,2(f[bbind
iET g(FF"nfsdfile'"#qBuffer Filenamesf"ewfsdfile'')
i  
)m(m.m& minibuffer)1
f=:.n(0)..o"n
q.n[..ozj-5d
j5,0i]..o
hx:.n(0)'
f]bbind]0]1m:.n(0)~Filename~	EMACS~DOC~ ~Filename~=MMcM's EMACS init -*-teco-*-, should run on 20X or ITS.
~DOC~ & Setup EMACS LibraryC Setup my init file.
~DOC~ ^R Date edit^R Write BBN TECO style edit message at start of file.
Inserts name of presumed output file, time and date of edit and user.
~DOC~ ^R Compile^^R repeat last ccl command or valret compilation.
Writes out current buffer if changed.
~DOC~ What tag?tC Name of current function from tag table.
Print the closest (preceding) function to point in the echo
area.
~DOC~ & Tags Setup Hook S Setup C-/ to do MM Args.
~DOC~ FAIL Mode~DOC~ & FAI Mode,C Setup things for editting FAIL code.
~DOC~ ^R Load KBDMAC8^R Load up keyboard macros and start defining one.
~DOC~ ^R Load WORDAB*^R Load up wordab and call expander.
~DOC~ ResequencedC Renumber local PALX labels around point.
Numeric arg is amount to increment new numbers by.
~DOC~ ^R Various Quantities#^R Quotes non-letters, otherwise hacks various Quantities.
Note that @ and ? are letters.  If followed by a number, inserts that
octal character <arg> number of times.
First character following is operation:
  F forward, B backward, D delete, R rubout, T twiddle, @ mark region, S save,
  or M to change the Mode of ^F, ^B, ^D, rubout, and ^T but not ^@
Second character following is quantity type:
  C character, W word, S sentence, P paragraph, L line, A atom,
  - S-expression, ( or ) list, D defun, ^L page seperated by ^Ls
Numeric arguments are obeyed.  ? for help.
Note that Q-register .Q is used to remember the current mode.  It contains an "fw-macro"
~DOC~ ^R Quantity Forward/^R Forward by quantities determined by .Q
~DOC~ ^R Quantity Backward0^R Backward by quantities determined by .Q
~DOC~ ^R Quantity Delete+^R Delete quantities determined by .Q
~DOC~ ^R Quantity Rubout+^R Rubout quantities determined by .Q
~DOC~ ^R Quantity Twiddleu^R Twiddle quantities determined by .Q
See documentation on ^R Twiddle Characters for how the argument is used
~DOC~ ^R Quantity Mark1^R Mark region as quantity determined by .Q
~DOC~ ^R Quantity Uppercase.^R Uppercase quantities determined by .Q
~DOC~ ^R Quantity Lowercase.^R Lowercase quantities determined by .Q
~DOC~ ^R Quantity Save7^R Put quantity determined by .Q on the kill-ring
~DOC~ & Quantity Mode SetS Subroutine for ^QMx
~DOC~ ^R Comma-Arg%^R Give pre- and post-comma arguments to a ^R command.
Numeric argument becomes the pre-comma argument.
Leaves ..0 set to char after the post-comma argument.
~DOC~ Deutsch4C Insert argument into the buffer as a number.
~DOC~ & Deutsch
S Handle a single number, possibly recursing.
This macro knows what is in q.0, q.1, q.2 and qa.
Pre-comma arg means dont eins-ify.
~DOC~ & Fill Q-Vector.S Generate a Q-vector full of strings.
Reads string arguments, the first of which is the name for
the q-vector and successive ones are strings to be stuffed
into it.
~DOC~ ^R Babyl^R Read mail.
~DOC~ & Babyl Reply HookS Setup for sending mail.
"~DOC~ ^R Frob LISP conditional]^R Change CONDs to ANDs and vice versa.
When changing to COND, point is left in such a place that LF will add another
clause to this condition, and M-) will add another condition.  Also in this case
an argument specifies the number of clauses that are left in the
consequent, the default is 1, i.e. all clauses but the last are assumed to
be for value, and to belong in the antecedent.
A pre-comma argument specifies the search count for finding it (default is -1).
~DOC~ ^R Mini Visited FileS^R Minibuffer setting defaults to buffer filenames.
With no argument, runs a minibuffer initialized with
an ET command containing the current buffer's filenames.
Thus, the default filenames get set to the buffer filenames.
With an argument, puts the old defaults in the ET.
This doesn't change the defaults;  it just shows them.
~DIRECTORY~}& Setup EMACS Library
^R Date edit
^R Compile
What tag?
& Tags Setup Hook
FAIL Mode
& FAI Mode
^R Load KBDMAC
^R Load WORDAB
Resequence
^R Various Quantities
^R Quantity Forward
^R Quantity Backward
^R Quantity Delete
^R Quantity Rubout
^R Quantity Twiddle
^R Quantity Mark
^R Quantity Uppercase
^R Quantity Lowercase
^R Quantity Save
& Quantity Mode Set
^R Comma-Arg
Deutsch
& Deutsch
& Fill Q-Vector
^R Babyl
& Babyl Reply Hook
^R Frob LISP conditional
^R Mini Visited File


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