Google
 

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
0fo10f"g+q1'
+fq()+4u1
fq1"l 0'
,q1:m(q1+4(]1]0))m61GDV@d
k
s"~,93
/"& Insert Writable Word Abbrevs& Setup WRITE-SOME LibraryWrite 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,1fWord 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
|'"#
@i|m.m& Make Non-Usage Abbrev Variable
|'
 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
-7f~ Abbrev"n oNEXT' -7d
q5j 2f~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
>
hs0m.CReadable Word Abbrev Files* Non-0 means write human-readable kind
0fo..qWRITE-SOME Setup Hookf"n[0m0w'4Extension to WORDAB, to write just some abbrevs.7C 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.bS 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:31YWrite 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