Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/backq.elib
Click emacs/backq.elib to
see without markup as text/plain
There are no other files named backq.elib in the archive.
( W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
J Y s f & o h y H 3 ! 1 b = z J ) \ ng Backquote ~DIRECTORY~$ ~DOC~ & Flash Matching Backquote ~DOC~ & Setup BACKQ Library ~DOC~ ^R Backquoted , ~DOC~ ^R Backquoted @$ ~DOC~ ^R Show Matching Backquote ~DOC~ ~Filename~ ~Filename~
~INVERT~I @:i*|@ft(Not in backquote or too many commas)0fsechoactive
|m.vBackquote: Too Many Commas
:i*fgfo..qAnnounce Backquote Errorm.vAnnounce Backquote Error
:i*
:i*fo..QLisp Mode Hook[0
@:i*| 0wm.m^R Backquoted ,m.q,
m.m^R Show Matching Backquotem.q..`
m.m^R Backquoted @f(m.q@w)m.q.w|m.vLisp Mode Hook .[0fnq0j[0
1:<-@fl(>"n.,b'"#)': :fb,"e
:<-:@fl: :fb,:;-ful>"l
@ft(Not in comma context)0fsechoactivew0 ''
qBackquote: Too Many Commas[Announce Backquote Error
qDisplay Matching Paren[0q0:"g
q0"e2'"#-q0'[Display Matching Paren'
:m(m.m& Flash Matching Backquote) f@m(q )f
:"g0 '
.[0fnq0j[0
,-1a[0q0*5+1:g..D[1
q1- A"eq0- ."n0 ''
q1- /"e0 '
r
:m(m.m& Flash Matching Backquote)'\ f@m(qA)f
:"g0 '
.[0fnq0j[0
0,-1a- ,"e
2r:m(m.m& Flash Matching Backquote)'
0 f [0[1
qDisplay Matching Parenu1
0u0
:f<!Done!
<1:<-:@fl(>"nb,.'"#)': :fb`,;
1a- `"eq0"ef;Done'%0'
"#q0-1u0'>
-ful>"l
qAnnounce Backquote Errorf"n[0m0w]0'
0 '
q1"e0 '
q1"l.-(fswindow)"l0 ''
0@v30*(q1 ):
0 BACKQ Backquote hacks$ S Set up , and ,@ and ,. to workr ^R Show the ` corresponding to innermost ,
It is an error to invoke this command when not in a comma context.0 ^R Flash backquote matching this ,-like charr ^R Flash backquote matching this @-like char.
Will work fairly well for ,. also by just putting this on dot * S Internal entry to flashing `, pairs u & Setup BACKQ Library
^R Show Matching Backquote
^R Backquoted ,
^R Backquoted @
& Flash Matching Backquote
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2