Re: XPL shortcuts etc.

["..." adpf@xxxxxxxx]

Ahoy, Robert. What am I missing here? The purpose of some PFUN
instructions baffles me. The CL parse seems to me extraneous and
restrictive, limiting CMline conversion to func symbols that use ascii
128, excluding the two-thirds that involve ascii 129 and 130. (Cf.
encoded file.)

A v4 thing? That section just doesn't work in v3; without it, a retroport
works fine except for trouble with trailing nulls (I added a kludge
exception handler that you'd have coded much more gracefully).

When I bought The Book I was still using v3.52. I so craved a way to
search function symbols I retroported The Herb's code. The laborious
no-parse rewrite has served me well ever since. But the virtue of a
program that's barely more than a tenth of the size is unarguable. Thanks!

Actually, the v3 version of your PFUN I'm using, like my no-parse rewrite
of the "XR" converter, does only CMline conversion--expects to find
an arg waiting, no {rc}s--but needs an ldpm. I don't want to get into
that here, so the version in the encoded file is a straight retroport
of your PFUN (i.e., does {rc}s, not CMline args). I do textual pfun
from a .kbd sequence that converts the last two chars typed and needs
no xpl except the same ldpm (echoes the CMline to a s/g). My version of
your PFUN also does the two chars that precede the cursor--wherever it
is on the CMline. 			--a

!PFUN_QQQ.UUE ======================================================

section 1 of 1 of file pfun_qqq.zip < uuencode 95 (v40) by R.E.M. >

begin 644 pfun_qqq.zip
M4$L#!!0````(`,%HFB&3E=;'5@0``)@,```(````4$953E]145'M5MUNXT04
MEGI'4%X`+CA=5:A1G=23Q%JQNPUH*[4%"E05:$$50JXS24P=V_*,TX2J(ND;
M\`R(*R3/LR`>8>^Y7W%ASIFQG62[*U2V@ANLQ!G/G/_SG<]Y-II!&$GX/A42
M6JT6U&OUVM65$P_2\/H:3@Z^^AS@M/5)ZR@*QL.$AP#M76?W@P[);63^()NX
M6Y="/>DQE9V?^44^/\-[)F@_G_]&B[;U[M%X$I]68%V[N7BRQ-.K"IJ[OM]OL"OOP8
MA'0EASZ7W)-1`B*"5/`$>(C'ER.>3]Q_6:Q*>$(V2Q=;3F4YFX
MX$5]#CZJ1,F%FT0IJ0_0GN?&[KD?^'(&YZD?2&R\C&#2M>JU.$@%:GL\EGX4
MPL@-^P%/C!J:1*5P"&$:!`+P""[X#,W[<@1QP@?^E(O&(THI%>Z0/X+]@+L)
M['^&6ES+RUG,"5OU6I,NP"M!"&QJ()P)#M]]6Z^!N0B"J#_AX*6)0/\83V&*
MHBF7:>CI4,5L?!X%5J6.(N-HJ8P)2JR*5B5OCS%+[J624[C4\(Y5X%<5B.NH
M'D(.)_!#'8J.4:,9"C@S6P/*5AHP;2OSXDJYK7HV@N:LP)T^0:U\[E4"9'QY
M2K+:+.'75A7J>T^,=''""C/C?/Y[)E+RBC8<:_LCX?^PC>$P6S4:S>H1HVLT
MF=W0KG2\*(!S]+,B.+=Q]=X+=/T"K3.&$_2-*JSZ@U43--*%Q/-JFE]ACH)\
M:.6+7W`KO_F)S)
MOE0"A_+97$G0,0D:J*XS6,%A'*ZSJ*&4J:>JV+!I-6;WVQ:F9ZGX\ALTC'L2?\AF\
M?P3;O#5L-0PQW($Z_@O6&/D2BL@IHRH+'9EFDG5:>!VM$&AHSG69-6Y[U6#=
M$Y4$Y[UJ:L>O9A1]=OT/.*6QSB%CUP_SQ9]EIZ^N]BW:PK\-U(\=&&&58)"X
M8R[T^V%CA7?LO^4=>XUWF`8Q8ROO\==R4=N"];%"D6*(NJ4&R=F6QKE!N$UW
M8@L]Z$0=&$J1W4:9GOE75/WU63;VY-2\+ZK7Q2VZ+(?N34FR2[-PS29;-
MN2[],%-E9ORL<:9!W__,>4?FU(A[YR]02P$"%``4````"`#!:)HADY76QU8$
M``"8#```"````````````"``````````4$953E]145%02P4&``````$``0`V
)````?`0`````
`
end
sum -r/size 10507/1717 section (from "begin" to "end")
sum -r/size 64693/1224 entire input file

============================= adpFisher  nyc