Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/wrsome.elib
There are no other files named wrsome.elib in the archive.
( W [0 +8+fq(+4)[1
0fo1 0f"g+q1 '
+fq()+4u1
fq1"l 0 '
,q1:m(q1+4(]1]0)) m 6 1 G D V @ d
k
s " ~ , 9 3
/" & Insert Writable Word Abbrevs & Setup WRITE-SOME Library Write Some Word Abbrevs ~DIRECTORY~( ~DOC~ & Insert Writable Word Abbrevs$ ~DOC~ & Setup WRITE-SOME Library! ~DOC~ Write Some Word Abbrevs ~DOC~ ~FILENAME~ ~FILENAME~
~INVERT~ WRITE-SOMEc [.0[.1[.2[.3[.4[.5 f[DFile
1f[FnamSyntax
0fo..qLast Word Abbrev Filef"n fsDFilew'
"#w etDSK:WORDAB DEFNS fsHSnamefsDSnamew'
4,1f Word Abbrev Filef"ew 'u.0
et .0 fsDFileu.0
q.0m.vLast Word Abbrev Filew
f[BBind
qReadable Word Abbrev Files"n
m(m.m& Insert Writable Word Abbrevs)
oWRITE'
:fo..qX u.2
q.2"L -q.2u.2'
ff&1"E
@i|m.m& Make Usage Abbrev Variable[V
|'"#
@i|m.m& Make Non-Usage Abbrev Variable[V
|'
iq..q[..o
0s
fq..q/5-q.2/3(
q.2-1u.2
)< q:..Q(%.2)u.3
q:..Q(%.2)u.4
q:..Q(%.2)u.5
q.4fp"L oNEXT'
f~(0,2:g.3)X "N oNEXT'
f~(fq.3-7,fq.3:g.3) Abbrev"N oNEXT'
f~(fq.3-14,fq.3:g.3)-WABMAC Abbrev"e
f~(0,6:g.4)!NoWr!"e oNEXT''
"#
0:g.5- #"e
0,fq.3-7:g.3u.1
f~(0,6:g(q:..q(:fo..q .1-WABMAC Abbrev+1)))!NoWr!"e
oNEXT'''
iMV .3
.(g.4)j <:s; r i c> zj i
ff&1"E g.5 i '
i
!NEXT! >
!WRITE!
eihpef .0
er fsIFileu.0 ec @ft
Written: .0
0uWord Abbrevs Modified
0fsEchoActivew 1 & [1[2[3[4[5[6[7 [9
.f[VB fsZ-.f[VZ
:fo..qX u9 q9"l -q9u9'
fq..q/5-q9/(q:..q(0))(
q9-1u9
)<
q:..q(%9)u2
q:..q(%9)u3
q:..q(%9)u4
.u5
q3fp"l oNEXT'
g2
-7 f~ Abbrev"n oNEXT' -7d
q5j 2 f~X "n oNEXT' 2d
f~(fq2-14,fq2:g2)-WABMAC Abbrev"e
f~(0,6:g3)!NoWr!"e oNEXT''
"#
0:g4- #"e
0,fq2-7:g2u.1
f~(0,6:g(q:..q(:fo..q .1-WABMAC Abbrev+1)))!NoWr!"e
oNEXT'''
@:f l d .u6
zj .u7 g3
!INS!
q6j
.,q7f=*"e
d i: '
"# q7-zu7
i: (
q7+zj i) '
g4
i "
<@:f"l .-z; i" c>
i"
!''''!
.u5
!NEXT!
q5,zk
>
h s 0m.CReadable Word Abbrev Files* Non-0 means write human-readable kind
0fo..qWRITE-SOME Setup Hookf"n[0m0w' 4 Extension to WORDAB, to write just some abbrevs.7 C Write some abbrevs to a file.
Like Write Word Abbrev File, except that certain abbrevs are marked as
unwritable by libraries that want to provide some standard abbrevs. These
standard abbrevs, however, are not to be "mixed" with the user's abbrevs,
i.e. written to the user's word abbrev file.
Stringarg filename. Default is WORDAB DEFNS.
Argument present means do not write out usage counts.
Normally writes a fast-loading format file, but if you have the
Readable Word Abbrev Files option variable set to 1, it will write
a human-readable format file (like that used by
List Word Abbrevs ).
Default filenames come from last definition filename used.< S Insert a list of the writable word abbrev definitions.b S IVORY-Generated Setup -- Calls hook.
This object file was compressed on 6:00am Saturday, 16 July 1983
by JLH.BRADFORD on Sierra from the following source libraries:
PS:<EMACS162>WRSOME.EMACS.1, 06/08/83 03:35:31Y Write Some Word Abbrevs
& Insert Writable Word Abbrevs
& Setup WRITE-SOME Library
\ +8+fq(+4)[2 0[3
< %3,-q2f2u3 q3&1@; q3"l 0 ' >
f[BBind q3-1*5,q3*5g2 q:..o(0)+q2