Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/lunar.elib
There are no other files named lunar.elib in the archive.
HW
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
I d 4 o 4T } 3L 4T 4@
i , p 8 $Y K /j [ I d 9F t 7& { #L ' $! 6$ ! /6 ) 0c 2 5t 9 6 A '( L / T .c [ 'o c .L n 1! w 0x 1 9I 4| \ + s 6 F A @ N " X c I m x 6 ( # D & x 0 g : G 5{ R VD Z PN h Pd y PC Pd PY " : 4 F\ B G X M l :T x V+ V Fw # G . G = SH F LJ Q Mp ] R h Rz s G1
Kr
K
GJ
! I:
. N>
; N
G N*
S V7
_ Po
n E
} E Dn F+ ) E~ 6 E0 D FA Q ED ` F o G` | Fh
;;
@
' >
4 B
C R]
R :
\ :
c Z &Findi.FaslsDefun &aFindcFundamentalaDefun &FindvLisp Defun &IFindaMidasrDefun &oFindsTecoDefun &eLoad AirlessOEnvironment &iQuantitytMode^Set& &SReinitializeLAirlessMEnvironment! &RSendComsatcSpecialiRequest &iTwiddledSubr &^WRDABnProcesscOptions Hook BolioDMode CreateaLunar Macros FailedaMail InstallLunar Macrosy Mark ^R Quantity Rubout ^R Quantity Save ^R Quantity Twiddle ^R Quantity Uppercase ^R Select Buffer ^R Twiddle Buffers ^R Twiddle Characters ^R Twiddle Sexps ^R Twiddle Words ^R Various Quantities ^R View This Buffer ~DIRECTORY~ ~DOC~ & Find .Fasl Defun" ~DOC~ & Find Fundamental Defun ~DOC~ & Find Lisp Defun ~DOC~ & Find Midas Defun ~DOC~ & Find Teco Defun$ ~DOC~ & Load Airless Environment ~DOC~ & Quantity Mode Set, ~DOC~ & Reinitialize Airless Environment' ~DOC~ & Send Comsat Special Request ~DOC~ & Twiddle Subr& ~DOC~ & WRDAB Process Options Hook ~DOC~ Bolio Mode ~DOC~ Create Lunar Macros ~DOC~ Failed Mail ~DOC~ Install Lunar Macros ~DOC~ Interlisp ~DOC~ Kill Message ~DOC~ Load Teco File ~DOC~ Rain Damage ~DOC~ Reverse Mail ~DOC~ SAIL Character Set ~DOC~ Show Message ~DOC~ Show Queue ~DOC~ Spice Output ~DOC~ Type Mailing List ~DOC~ ^R Defun Search ~DOC~ ^R Load KBDMAC ~DOC~ ^R Load WORDAB ~DOC~ ^R McCapitalize ~DOC~ ^R Mini Visited File ~DOC~ ^R Quantity Backward ~DOC~ ^R Quantity Delete ~DOC~ ^R Quantity Forward ~DOC~ ^R Quantity Lowercase ~DOC~ ^R Quantity Mark ~DOC~ ^R Quantity Rubout ~DOC~ ^R Quantity Save ~DOC~ ^R Quantity Twiddle ~DOC~ ^R Quantity Uppercase ~DOC~ ^R Select Buffer ~DOC~ ^R Twiddle Buffers ~DOC~ ^R Twiddle Characters ~DOC~ ^R Twiddle Sexps ~DOC~ ^R Twiddle Words ~DOC~ ^R Various Quantities ~DOC~ ^R View This Buffer ~DOC~ ~Filename~ ~Filename~
~INVERT~A hkfj0,0a-3"E-d'
0,-1a-15."E-2d'
j:s "N
.,(zj^i//).fx*(-d)'"#0'(
z"Nhfx*'"#0'(
0fsModified
fsXUname:F6[1
F=1MOON5"E:I1MOON'
Q1M.VUser Name
:I1EMACS < 1>
Q1UEditor name:I..J 1 EDITOR
]1M(M.M& Set Mode Line)
m.m^R Character Searchu.S
m.m^R Defun Searchu...S
1m.vTags Find File
1uInhibit Write
0m.VDisplay Matching Paren
m.m^R Reposition Windowu.R
q:.X(26.)u:.X(5)
m.m^R View This Bufferu:.X( V)
m.m^R Prefix Controlu.^
m.m^R Prefix Control-Metau.\
10.^fs^RInit,10.^fs^RCmacro
"*5+1:F..D|
`*5+1:F..D'
,*5+1:F..D'
&*5+1:F..DA
:i*.!?m.vFill Extra Space List
^:I...!/-1fspjatyw/
m.m^R Twiddle Charactersu.T
m.m^R Twiddle Wordsu..T
m.m^R Twiddle Sexpsu...T
m.m^R Various Quantitiesu.Q
m.m^R Twiddle Buffersu...L
m.m^R McCapitalizeu...M
fsOspeedf"N-1201"L
1m.vNext Screen Context Lines
-1fs^RMore''
M.M^R Select Bufferu:.X(2)
M.M^R Mini Visited Fileu:.X(24.)
0USpace Indent Flag
m.m^R Exchange Point And Marku...
m.m^R Set/Pop Marku..
q..?u.?
m.m^R Load Kbdmacu:.X( ()
m.m^R Indent RelativeU. I
fsosteco-2"E
f[dfile
m(m.mLoad Library)<EMACS>SYMBOLICS
FSJNAME:F6[J
FSLISPT"NFSCCLFNAMU0
0FSSUPERIOR
F~jLEDIT"e
1,m(m.m & Get Library Pointer)LEDIT"e
m(m.m Load Library)<LM>LEDIT'''
]Jf]dfile
'
F=User NameDLW"E
.*5:F..D
%*5:F..D
$*5:F..D
fsosteco-2"E
fsrgetty"E
ft
Are you at home?
fi:fc- Y"EftYes.
mmset terminal typec1000fsi&dlinew0fsi&dchrw'"#ftNo.
''
q:.X(32.)u.Z
m.m^R Prefix Control-Metau.C
0FSEchoError
'
'
F=User NameMOON"E
fsosteco-2"E
fsrgetty"E
ft
Are you at home?
fi:fc- Y"EftYes.
mmset terminal typedm25000fsi&dlinew0fsi&dchrw'"#ftNo.
''
q:.X(32.)u.Z
'
1000000.U.H
1uAuto Directory
q.Xu.C
qEMACS Version-154"L
:i*C.X uPrefix Char List'
"#:i*Control-C Q.X
uPrefix Char list'
q.Wu.X
q.Gu.W
m.m^R Just One Spaceu..
fsosteco"E
^:I*|
33.^fs^Rinit[..
^:I*/:s--Text follows this line--
w
fsHPos"N15.i12.i'
.F[VBFSZ-.F[VZ.:WG5
FF"E
z:wj4m(m.m^R Indent Rigidly)w'
B:wb(f]vzwf]vbw
m.m^R Delete Blank Lines[2m2w)jm2wZJH
/[...Y
.-z(j:sHEADER-FORCE:"N0kk'
)+zj
|M.VRMAIL Reply Hook
^:I*/DSK:MOON;LSPISH MAIL/M.VRMAIL O Filename
'
'
1f[REREAD
FSXJNAME:F6[J
F~JLISPT"'E(F~JMACST"'E)"N
M(M.MLOAD LIBRARY)LISPT'
F~JMAILT"E:IEditor TYPE[MAIL]
M(M.MTEXT MODE)'
!F~JRMAIL"E)w)w:i*MMRMAIL (0('!
]J
FS%TOFCI"E
M.M^R Autoarg[0460.-1[1
10.<Q0,%1^FS^RCMAC>
]1]0'
fsmsnamefsdsnameetgazonk .del
)F"Nfsdfilew1:<fsecholines-3"G3fsecholinesw'MMFind File>f"n^:fg
)w0(''
f]reread
13.f?
0fsQPun
5426m..l
0u..H
)f"N[01:<m(q0(]0))>f"n^fg''
v [5[2[3[4
"G1 5R-2 5L.[01 5R
<.u31 5R-1 5fx4z-.u2
q3j-1 5fx3g4z-q2jg3>
q0,. '
"L-1 5L1 5R.[0
-<z-.u3-2 5L1 5fx4.u2
z-q3j-1 5fx3g4q2jg3>
q2,q0 '
.,(w).f u2j
1 5R-1 5L.u0
q2j1 5R-1 5fx4z-.u2
q0j1 5fx3g4z-q2j.u2g3
q0q0,.(q2j) E ff"E13,1a-13"E
0a(-d-c)ic-2 ''
:i* ,:m(m.m& Twiddle Subr)" :i*fw,:m(m.m& Twiddle Subr)# :i*^fl,:m(m.m& Twiddle Subr)y
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! fsEchoDisplay CfsEchoDisplay
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 '
^ft 70fsEchoActive
q2[.Q:m(m.m 1)- .[0 .QR
q0M(M.M& Maybe Push Point)
1 . .[0- .QL
q0M(M.M& Maybe Push Point)
1 [9 .Q:m(m.m& Kill Text) -[9- .Q:m(m.m& Kill Text) q.Q,:m(m.m& Twiddle Subr)) .QR- .Q[2[1
"Gq2jq1'"#q1jq2':1 .Qf(f(@fc)r) .Qf(f(fc)r) N FS^RPREV-1001"E
.Q@X:..K(0)1 '
Q..K[..OZJ-5DJ5,0I]..O
.QX:..K(0)1 a ]*
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 W QPrevious Buffer[3
1,Q3M(M.M& Find Buffer)"LQ:.B(1)U3'
q3m(m.mSelect Buffer) + fsosteco"E
MMRun LibraryPurifyGenerate LibraryDSK:MOON;LUNARDSK:MOON;LUNAR >
'"#MMRun LibraryPurifyGenerate LibraryDSK:<MOON>LUNARDSK:<MOON>LUNAR.EMACS'p [0[1[2
^:i1{:i2 f6 2u0fsMachine-q0"N
^ft -> 2e _dsk:moon;lunar elib 2:'{
m1AIm1MLm1MC
1 ^ 1fs^Pcasew1fs^Mprintw0FSSail
F=User NameMOON"E
0fsfnamsyntax'
35fs%end
fsOspeedf"N-1201"L85fs%end''
75fsadline
75uFill Column
fsrgetty"e1fslinesw1fsttmode'
fs%TOOVR"n:i..A []H'
fsecholines-3"G3fsecholines'
1fsEchoErrors
fsosteco-2"ef=User NameDLW"e
0fsechoerror''
:ft
fs%tolwr"e^FT --- .(
200[0Z-200"LZU0'0JQ0<1A-140."G1A-173."L0;''C>
q0-."E^FTUPPER'"#^FTLOWER-1F$\^'
^FT CASE ---
]0w30)J'
'
qEmacs Version:\[1
^FT
Emacs 1 in Teco
fsVersion^:=^ft in operation.
Z"E^ft(empty)'"#^ft(bloated)'
0fsEchoActivew]1
-5426"N0u..H '? endsk:.mail.;failed stuffbad >
mmrmaildsk:.mail.;bad > [0.(
j<:s ;.-1,(:s "Nr'"#zj').k>
j<:s _;r1a#107.id>
j<:s^ ;r1a#125.id>
^:i*/~}/[1
j<:s}~f(u0);-d-q0-1,-q0g1>
)j {R j<:s ;-d>
j:sTRANSIENT ANALYSIS"N
s- - - -l
<.-z;w@f k:l-@f kl>'
j i
[0[1[2[3[4[5[6[7[8
fsQPPtru8
fsBCons[..O
i # Buffer (Mode) Filename [$ r/o, * mod, - no auto sv, . cur]
2u7
0u4fq.b/5u5
<q4-q5;
q:.b(q4+4)[..o
0u1
fsReadOnly"nq11u1'
fsModified"nq12u1'
fsXModified"nq14u1'
fsZu3
]..o
.u04,32i
q1&2"n.-3f*'
q1&1"n.-3f$'
q1&4"n.-2f-'
2,q:.b(q4+7)\
i g:.b(q4+1)
17-(.-q0):f"gw1',32i
q:.b(q4+3)u1
qBuffer Index-q4"e
qModeu1q0u6
.(q0+3j2a-32"ec'f.)j'
i( 1)
32-(.-q0):f"gw1',32i
q:.b(q4+2)u1q1"ng1
qEmacs Version-153"G
Q:.B(Q4+9):"L
I (Q:.B(Q4+9)\I)'
Q:.B(Q4+12)"GI (R-O)'
Q:.B(Q4+12)"LI (BufR-O)'''
"#q3\i Characters'
i
%7w
q:.b(q4)+q4u4
>
q6"nq6j'
fsLinesu6q6"efsHeight-(fsEchoLines)-1u6'
q7+1-q6"lq7+1f[Lines'
0f[Window
0fs^RInitf[^RNormal
33.fs^Rinit[ w
:i*Buffer Menu[..J
1f[ReadOnly
0[..F
@:i*|m(m.mDescribe)^R Select Buffer|f[HelpMac
@:i*|0l@fDS *-$.l\[1q1"e0lfg1 '
q1m(m.m& Find Buffer)u1
q:.b(q1+4)[..o0fsModifiedw0fsXModifiedw]..o
0f[ReadOnly
0l.+1f .+1,.+3 |[~
@:i*|0l0,1a-32"nfg1 '
0f[ReadOnly
fD1 |[DqD[.D
@:i*|0l0,1a-32"nfg1 '
0f[ReadOnly
fS1 |[S
@:i*|0l0,1a- D"n0,1a- S"nfg1 ''
0f[ReadOnly
f 1 |[U
!BACK!
0l0,1a- D"e
@ftKilling Current Buffer; Select Another0fsEchoAct
fgoBACK'
@fS *-$.l\u1
q..ou2q8fsQPUnwind
q2[..ojl
<:s
;
0a- D"e@f *-$.l\u3q3"n
q3-q:.b(qBuffer Index+7)"e
q1"n]..oq1m(m.mSelect Buffer)wq2[..o''
q3m(m.mKill Buffer)'!<!>'
0a- S"e@f *-$.l\u3q3"n
]..oq3m(m.mSelect Buffer)
m(m.m^R Save File)wq2[..o'!<!>'
>
]..o
q1"nq1-q:.b(qBuffer Index+7)"n
q1m(m.mSelect Buffer)''
q2fsBKill - MMRun LibraryTMACSType Mailing List ? m(m.m& Send Comsat Special Request)(SPECIAL-REQ SHOW-Q)0 h fsMachine:f6[1
:i1(SPECIAL-REQ SHOW-MSG <[MIT- 1]. >)
m(m.m& Send Comsat Special Request) 10 h fsMachine:f6[1
:i1(SPECIAL-REQ KILL-MSG <[MIT- 1]. >)
m(m.m& Send Comsat Special Request) 10 r f[BBind
iFROM-JOB:fsJnamef6i
SENT-BY:fsUnamef6i'
AUTHOR:fsXunamef6i
HEADER-FORCE:ITS
TO:"(fsXunamef6i (R-OPTION SMALL-CLI))
ATTRIBUTE:
TEXT;0
etDSK:.MAIL.;MAIL >eipwef
@ft
Comsat Request Entered
0fsEchoActive * [1f[BBind
er ^yhx1]..o
:m(q1(]1))" m(m.mload)kbdmac
@:m:.X( ()/ m(m.mload)wordab
m(m.mwordab)
@:m... W f[sstringwf[inslenqmode[.2
(m.m& Find .2 Defun)u.2
:i*Forwards [.5[.7
"L:i.5Backwards '
-1"E:i.5BJ '+1"E:i.5ZJ '
1,(:i*)m(m.m& Read Line) .5Defun Search: [.1
fq.1"Lfg0 '
fq.1"EqDefun Search Lastu.1'"#q.1m.vDefun Search Last'
.[.4fnq.4j
-1"Ebj'"#+1"Ezj''
"Lb[.6-1'"#z[.61'[.3
"L0'@l
<(q.3m.2f(u.7))"L(.-q.6)"Efg0 ''
.u.5:s .1w
q.5-."nq.5j0;'
q.3@l
>
q.4m(m.m& Maybe Push Point)
q.7j0@l
.(0@L
QComment Start[1
Q1"E:i1;'
<B-.;-@L
@F R
1A-13"NFQ1 F~ 1"N
<@L@F R
1A-13:@;>
0;''
>
-1F[^RInhibitw0@vF]^RInhibit
0@:f
)J.u.4
0 } !retry!
:s(def"E-1 '
.[1
"Gfkc'c
7 f~defprop"E"Lr'oretry'
@fwl@f
L
<(0,1a*5+1:g..d- ()"n0;'c>
q1 j "Lb'"#z'[1
0@l
<q1-."E-1 '
(.,(.+7)f~.entry )*(.,(.+7)f~.entry )"E0;'
@l>
.u16c@f lq1 ( :s
!*"E-1 '
"Lfkc'r.-1 Q "Lb'"#z'[10@l[2
<q1-."E-1 '
0,1a*5:g..d- A"E
.u2fwl0,1a- :"Eq2j. ''
@l>o [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) :i*0 u m(m.mView Buffer)w : bj0u0
<:s ;5,q0\w%0w>
:s $:ll
bj<:s ;w:kw> bji;lftmar 150
;rgtmar 0
;dfont GACHA8,GACHA8,GACHA8I,TIMESROMAN8I,TIMESROMAN12B
;skip 1
;list
14.I15.I12.I
<:S;3 f=|"E-d3d'
"#1AF"L@FTUnknown font here! '
-D177.I1IC'>
bjfsmsnamefsdsname
etdsk:. .eipwef
:dover . ./xgp/delete@ m(m.mText Mode)
m.mMake Local Q-Register[.q
^:i*{6i60.i.-2,. {m.q...0
^:i*{6i61.i.-2,. {m.q...1
^:i*{6i62.i.-2,. {m.q...2
^:i*{6i63.i.-2,. {m.q...3
^:i*{6i64.i.-2,. {m.q...4
^:i*{6i65.i.-2,. {m.q...5
^:i*{6i66.i.-2,. {m.q...6
^:i*{6i67.i.-2,. {m.q...7
^:i*{6i70.i.-2,. {m.q...8
^:i*{6i71.i.-2,. {m.q...9
^:i*{6ii*.-2,. {m.q...*
^:i*{6ii*.-2,. {m.q...:
1,m(m.m& Get Library Pointer)WORDAB"E
m(m.mLoad Library)WORDAB
m(m.mRead Word Abbrev File)ai:lmman;.dlw wordab
1m(m.mWord Abbrev Mode)'
1M(M.M& Set Mode Line)Bolio y m.m^R Forward Word[0
"Lm0'"#1m0w-1m0'
.,( f"ew1'<
fw@fc
.(<fw:fbMc;-1 fc>)j
.(<fw:fbMac;-2 fc>)j
fwr>). LUNAR Moon's -*-TECO-*- Libraryx S This is my init file
It's here so that comments will get compressed.
Argument is a string which is the user nameM S Subroutine used by twiddle functions.
arg1 is a string which is "fw" for the appropriate chunk-type. It will
always get an arg. arg2 is the ^R-arg, see the documentation of ^R Twiddle Characters.! ^R Interchange the characters before and after the cursor.
With a positive argument it interchanges the characters before and
after the cursor, moves right, and repeats the specified number of
times, dragging the character to the left of the cursor right. With a
negative argument, it interchanges the two characters to the left of
the cursor, moves between them, and repeats the specified number of
times, exactly undoing the positive argument form. With a zero
argument, it interchanges the characters at point and mark.
With no argument at the end of a line, as a special feature it twiddles
the two characters to the left rather than messing up the cr-lf~ ^R Interchange the words before and after the cursor.
With a positive argument it interchanges the words before and
after the cursor, moves right, and repeats the specified number of
times, dragging the word to the left of the cursor right. With a
negative argument, it interchanges the two words to the left of
the cursor, moves between them, and repeats the specified number of
times, exactly undoing the positive argument form. With a zero
argument, it interchanges the words at point and mark.& ^R Interchange the S-expressions before and after the cursor.
With a positive argument it interchanges the S-expressions before and
after the cursor, moves right, and repeats the specified number of
times, dragging the S-expression to the left of the cursor right. With a
negative argument, it interchanges the two S-expressions to the left of
the cursor, moves between them, and repeats the specified number of
times, exactly undoing the positive argument form. With a zero
argument, it interchanges the S-expressions at point and mark.! ^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"- ^R Forward by quantities determined by .Q. ^R Backward by quantities determined by .Q) ^R Delete quantities determined by .Q) ^R Rubout quantities determined by .Qs ^R Twiddle quantities determined by .Q
See documentation on ^R Twiddle Characters for how the argument is used/ ^R Mark region as quantity determined by .Q, ^R Uppercase quantities determined by .Q, ^R Lowercase quantities determined by .Q5 ^R Put quantity determined by .Q on the kill-ring S Subroutine for ^QMx ^R Select Previous Buffer C Generate my library) C Copy Lunar macros to other machines
S My ..L& C Process Comsat dead letters file3 C Convert Buffer from SAIL to ITS Character set, C Renders Spice output in buffer legible4 C Display information about all buffers.
A recursive ^R is entered on a list of all buffers. On exit the buffer
on the current line is selected. D will mark buffer for deletion on
exit, S will mark for saving, U will unmark buffer, and ~ will
clear modified flags of buffer.
Point is initially on line of current buffer and space is bound
to exit ^R mode, so this is very much like MM List Buffers.
(Borrowed from Tmacs)6 C Prints entry for STRINGARG in .MAIL.;NAMES.
If STRINGARG is of form <name>@<site>, <site>:.MAIL.;NAMES is used.
Only final @ indicates site, so you can do something like:
MM Type Mailing List$BUG-@@AI$
A numeric ARG limits depth of recursion on EQV-LIST members.
(Default depth is 3.)
<name>@<site> entries in EQV-LIST are not followed.
Prints "Done." when done, since it sometimes is slow.
(Auto-loads from Tmacs)9 C Asks Comsat to mail his queue back to you.
Use Rmail to haul it out of your mail file when it arrives.
(Maybe someday this will mail to a file and wait for the file
to appear?)1 C Asks Comsat to disgorge a particular message
by mailing it back to you, also qsending so you know when you have it.
String argument is the number part of the message-ID., C Asks Comsat to flush a particular message
by causing it to fail to all recipients. Also mails it back to you.
String argument is the number part of the message-ID. S Subroutine for doing what its name says
String argument is what to put after "attribute:"
Claims message is from a dummy name so that a CLI will happen.= C Takes a file name, executes that file as Teco commands.6 ^R Load up keyboard macros and start defining one.( ^R Load up wordab and call expander.
^R Search for the 'definition' of something.
What a 'definition' is depends on the major mode. What to search for
is asked for in the echo area; typing just a blank line searches for
the same thing as last time. Search-magic characters (^B, ^X, ^O) work
in the name of the something. Normally it searches from the front of
the file; an argument of ^U searches from where you are, an argument of
-1 searches backwards from the end of the file, and other negative
arguments search backwards from where you are. S See Defun Search S See Defun Search S See Defun Search S See Defun SearchQ ^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. C Compensate for moisture in the phone line.
This disables the rubout key. Use meta-rubout or control-D.
Safe when used as directed.: ^R View the current buffer without asking which buffer C Reverse order of messages in buffer.
The buffer should contain a sequences of text items separated by
control-underscores. Their order is reversed. C Format Interlisp code in the buffer for Dover and print it.
This works on a file produced by the Interlisp prettyprinter to have
many fonts; it translates the Interlisp font change codes, and produces
output suitable for the Dover. You read the file into your buffer,
and it formats it and writes it out to a file called ". .", and
then it valrets a :DOVER command without the CR at the end. You type
CR if you want to run :DOVER. The contents of the buffer are destroyed.
Fonts used:
0 GACHA8 not used
1 GACHA8 Normal text
2 GACHA8I Clisp words
3 TIMESROMAN8I Comments
4 TIMESROMAN12B Function headings
8 C Set up for editing text which is Bolio source code ? Dead, fucking bears ^R Capitalize Mc word & Load Airless Environment
& Twiddle Subr
^R Twiddle Characters
^R Twiddle Words
^R Twiddle Sexps
^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 Twiddle Buffers
Create Lunar Macros
Install Lunar Macros
& Reinitialize Airless Environment
Failed Mail
SAIL Character Set
Spice Output
^R Select Buffer
Type Mailing List
Show Queue
Show Message
Kill Message
& Send Comsat Special Request
Load Teco File
^R Load KBDMAC
^R Load WORDAB
^R Defun Search
& Find Lisp Defun
& Find .Fasl Defun
& Find Teco Defun
& Find Midas Defun
& Find Fundamental Defun
^R Mini Visited File
Rain Damage
^R View This Buffer
Reverse Mail
Interlisp
Bolio Mode
& WRDAB Process Options Hook
^R McCapitalize
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2