Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/complain.elib
There are no other files named complain.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 e B 6 P < b H j + x Z ` J ) 6 0 s & My Push To Buffer & Setup COMPLAIN Library% Bitch at Last Editer of This File ~DIRECTORY~ ~DOC~ & My Push To Buffer" ~DOC~ & Setup COMPLAIN Library+ ~DOC~ Bitch at Last Editer of This File ~DOC~ ~filename~ ~filename~
~INVERT~
COMPLAINR [0[1[2[3[4
1u4
.( j l -:s-*-"n 2l'
-:sEd: Edit by Edit by: "e
@ft
No Date Edit line found. 0fsechoac'"#
fkc
0u4
.u0
:l
qComment Endf"nu1
.,q0:fb 1w'
q0,.f x1
0l qComment Startf"nu2
.,q0:fb 2w'
.u0 s, r q0,.f x3
:l .u0 0l
.,q0:fb["n
.u2 .,q0:fb]"e :i* Unmatched parens in edit line fg '
q2,.-1f x2'
"# 0u2'
'w)j
q4"n '
1,m.m& Mail Messagef"nu4'"#
m(m.mLoad Library)BABYLM
m.m& Mail Messageu4'w
m(m.m& My Push to Buffer)*Mail*
j iTo: g1 q2"n i@ g2' i
Re: g3 i
gBabyl Header/Text Separator i
1m4
" [Previous Buffer
qBuffer Name[0
@:i*|m(m.mSelect Buffer) 0|(]0)[..n
m(m.mSelect Buffer)
ff&1"e
0j
b,zdw'
0fsModifiedw 0fsXModifiedw
: ( 0fo..qCOMPLAIN Setup Hookf"n[0m0w' - For sending mail to last editer of a file C ... just that.
Look for a Date Edit line at beginning of file, then set up Babyl
mail sending template with last editer as primary recipient._ S Push-select buffer STRARG.
When caller returns, the original buffer will be re-selected.[ S IVORY-Generated Setup -- Calls hook.
This object file was compressed on 10:58pm Monday, 17 January 1983
by SHSU on MIT-OZ from the following source libraries:
PS:<EMACS>COMPLAIN.EMACS.1, 01/17/83 21:43:05V Bitch at Last Editer of This File
& My Push To Buffer
& Setup COMPLAIN 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