Interlisp.medley/library/tedit/TEDIT-ABBREV.LCOM

(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

(FILECREATED "30-Apr-2026 11:55:15" ("compiled on " {MEDLEY}<library>tedit>TEDIT-ABBREV.;59) 
"29-Apr-2026 23:35:41" brecompiled exprs%: \TEDIT.ABBREV.EXPAND in "FULL 29-Apr-2026 ..." dated 
"29-Apr-2026 23:35:50")
(FILECREATED "30-Apr-2026 11:55:15" {MEDLEY}<library>tedit>TEDIT-ABBREV.;59 18372 :EDIT-BY rmk 
:CHANGES-TO (FNS \TEDIT.ABBREV.EXPAND) :PREVIOUS-DATE "23-Jan-2026 15:49:26" 
{MEDLEY}<library>tedit>TEDIT-ABBREV.;58)
\TEDIT.ABBREV.EXPAND :D8
(P 11 CH P 10 J P 9 I P 6 LEN P 5 EXPANSION P 4 ABBREV P 3 BACKSLASH P 2 FIRSTCHNO P 1 POINTSELECTION P 0 LASTCHNO I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) 
JBÉ
kÙaBÉkñhðY‘k‚Bɺh[\]¾@H
o
”HmÿÔ¸@H
l\ð²>i»h¹lkHkÙkOOó³#OOó³@O
_	©Ol\ð²3OºHmÿÔ¸J²;@JHIµ-@JHIi
µ I³@JH°OmÿÔ_¿OkÔ_°žh\µ@oi@
]²ìL
	^HNÙkØZK—HkÔ¸NkÔ¾BJNgg
MAhJA
É@B@oKœL
o
<00>L
oMo
i(327 TEDIT.PROMPTPRINT 321 CONCAT 301 CONCAT 281 \TEDIT.REPLACE.SELPIECES 274 \TEDIT.SELPIECES.FROM.STRING 267 \TEDIT.CHTOPC 257 \TEDIT.UPDATE.SEL 221 NCHARS 211 \TEDIT.ABBREV.EXPANSION 204 TEDIT.PROMPTPRINT 170 \TEDIT.ABBREV.PARSE.CHARCODE 157 \TEDIT.ABBREV.PARSE 144 \TEDIT.ABBREV.PARSE 115 IMAGEOBJP 108 TEDIT.NTHCHARCODE 67 TEDIT.NTHCHARCODE 54 MEMB 44 TEDIT.NTHCHARCODE 4 \TEDIT.ABBREV.TREE)
(251 NORMAL 246 RIGHT 10 SELECTION)
( 315 "%"" 309 "%" with %"" 296 "\" 287 "Replaced %"" 198 "No abbreviation to expand" 49 (13 12 269))
\TEDIT.ABBREV.EXPANSION :D8
(P 2 CH P 1 EXPANSION P 0 KEY I 1 TSTREAM I 0 ABBREV) ¡@
@
Id‘
Y³Hi
Zd¢±…	I	¥Id3@ð™Ii
ZµåI	›Ii
ZµÔIId
³Ìd3@ð²Ii
Zµ¼I	šJµ²AHlIIµ#H`
Yd²
d3@ð´I
	´I	(158 EVAL 150 \DEFINEDP 131 SASSOC 104 \DEFINEDP 95 CHARCODE.DECODE 71 CHARCODE.DECODE 63 STRINGP 54 CHARCODE.DECODE 40 STRINGP 33 CHARACTER 22 CHARCODE.DECODE)
(126 TEDIT.ABBREVS)
()
\TEDIT.ABBREV.TREE :D8
(P 1 A I 0 ALWAYS) Ä
@®``ô’±³h`1Hµ``
Y
gð³~gI
		º`µ
J
hhJIh¿I
k
gð³@oI

I¹gI
		»`µ
K
hhKIh¿HX±ÿbh(185 EXTENDMULTI-PAIR 158 DREVERSE 152 UNPACK 136 PACK* 116 NTHCHAR 107 EXTENDMULTI-PAIR 80 DREVERSE 74 UNPACK)
(177 \TEDIT.ABBREVS.TREE 164 \TEDIT.ABBREVS.TREE 145 ABBREV 121 \ 99 \TEDIT.ABBREVS.TREE 86 \TEDIT.ABBREVS.TREE 67 ABBREV 59 * 50 \TEDIT.ABBREVS.TREE 45 \TEDIT.ABBREVS.INTREE 40 TEDIT.ABBREVS 27 TEDIT.ABBREVS 22 \TEDIT.ABBREVS.TREE 11 \TEDIT.ABBREVS.INTREE 6 TEDIT.ABBREVS)
( 129 "\")
\TEDIT.ABBREV.PARSE :D8
(P 6 MATCH P 5 CH P 3 TREE P 2 DCH P 1 CHNO I 4 CASEINSENSITIVE I 3 POINTSELECTION I 2 LASTCHNO I 1 FIRSTCHNO I 0 TSTREAM) \ABdAÙkØ`4HIó³9@I
½D²MKgg‚MK[²gK^µ€¼ImÿÔ¹°ÆC«JN
	ð¡hL(84 NCHARS 47 CL:ASSOC 26 TEDIT.NTHCHAR)
(59 ABBREV 42 STRING.EQUAL 37 :TEST 11 \TEDIT.ABBREVS.TREE)
()
\TEDIT.ABBREV.PARSE.CHARCODE :D8
(P 1 CHARCODE P 0 STRING I 2 LASTCHNO I 1 FIRSTCHNO I 0 TSTREAM) 9@ABAÙkØj
H	l\ð˜Hl
€Hi
Y´HI	h(51 CHARACTER 41 CHARCODE.DECODE 33 SUBSTRING 21 CHCON1 12 TEDIT.SEL.AS.STRING)
NIL
()
\TEDIT.EXPAND.DATE :D8
(P 3 DAY P 2 MONTH P 1 YEAR P 0 DATE I 1 CH I 0 STREAM) <1H
H¸¹H
H¸ºH
H¸»oJkØ

oKoI
(57 CONCAT 38 NTH 4 \UNPACKDATE)
NIL
( 50 ", " 44 " " 30 ("January" "February" "March" "April" "May" "June" "July" "August" "September" "October" "November" "December"))
(PRETTYCOMPRINT TEDIT-ABBREVCOMS)
(RPAQQ TEDIT-ABBREVCOMS ((FNS \TEDIT.ABBREV.EXPAND \TEDIT.ABBREV.EXPANSION \TEDIT.ABBREV.TREE 
\TEDIT.ABBREV.PARSE \TEDIT.ABBREV.PARSE.CHARCODE) (FNS \TEDIT.EXPAND.DATE) (GLOBALVARS TEDIT.ABBREVS 
\TEDIT.ABBREVS.TREE \TEDIT.ABBREVS.INTREE) (INITVARS (\TEDIT.ABBREVS.TREE NIL) (\TEDIT.ABBREVS.INTREE 
NIL) (TEDIT.ABBREVS (QUOTE (("b" "357,146" Bullet) ("n" "357,44" Endash) ("--" "357,44" Endash) ("m" 
EMDASH) ("---" EMDASH) ("T" THINSPACE) ("d" "357,60" Dagger) ("D" "357,61" DoubleDagger) ("s" "0,247" 
Section) ("'" "0,271" RSQ) ("`" "0,251" LSQ) ("%"" LEFT-DOUBLEQUOTE) ("~" RIGHT-DOUBLEQUOTE) ("1/4" 
"0,274") ("1/2" "0,275") ("3/4" "0,276") ("1/3" "357,375") ("2/3" "357,376") ("c" "0,323" Copyright) (
"c/o" "357,100" c/o) ("%%" "357,100" c/o) ("->" "0,256" Rightarrow) ("ra" "0,256" Rightarrow) ("|" 
"0,257" Downarrow) ("da" "0,257" Downarrow) ("L" "0,243" English-pound) ("o" "0,260" Degree) ("Y" 
"0,245" Yen) ("+-" "0,261" PlusMinus) ("x" "0,264" Times) ("/" "0,270" Divide) ("lra" "357,121") ("p" 
"0,266" Paragraph) ("r" "0,322" Register) ("t" "0,324" Trademark) ("tm" "0,324" Trademark) ("bbox" 
"42,43" Blackbox) ("wbox" "43,42" Whitebox) ("-" SOFT-HYPHEN) ("=" NONBREAKING-HYPHEN) ("nbsp" 
NONBREAKING-SPACE) (" " NONBREAKING-SPACE "original, but deprecated") ("un" "357,127") ("int" 
"357,126") ("subset" "357,131") ("superset" "357,130") ("&" "357,266") ("or" "357,267") ("not" 
"357,152") ("all" "357,265") ("exist" "357,264") ("def" "357,162") (in "357,112" Member) ("compose" 
"357,147") ("!" "0,241") (* ; " Inverted !") ("?" "0,277") (* ; " Inverted ?") ("u" "0,265" MicroSign)
 ("<<" "0,253") (* ; " Left double guillemet") (">>" "0,273") (* ; " Right double guillemet") ("DATE" 
\TEDIT.EXPAND.DATE) (">>DATE<<" \TEDIT.EXPAND.DATE)))))))
(RPAQ? \TEDIT.ABBREVS.TREE NIL)
(RPAQ? \TEDIT.ABBREVS.INTREE NIL)
(RPAQ? TEDIT.ABBREVS (QUOTE (("b" "357,146" Bullet) ("n" "357,44" Endash) ("--" "357,44" Endash) ("m" 
EMDASH) ("---" EMDASH) ("T" THINSPACE) ("d" "357,60" Dagger) ("D" "357,61" DoubleDagger) ("s" "0,247" 
Section) ("'" "0,271" RSQ) ("`" "0,251" LSQ) ("%"" LEFT-DOUBLEQUOTE) ("~" RIGHT-DOUBLEQUOTE) ("1/4" 
"0,274") ("1/2" "0,275") ("3/4" "0,276") ("1/3" "357,375") ("2/3" "357,376") ("c" "0,323" Copyright) (
"c/o" "357,100" c/o) ("%%" "357,100" c/o) ("->" "0,256" Rightarrow) ("ra" "0,256" Rightarrow) ("|" 
"0,257" Downarrow) ("da" "0,257" Downarrow) ("L" "0,243" English-pound) ("o" "0,260" Degree) ("Y" 
"0,245" Yen) ("+-" "0,261" PlusMinus) ("x" "0,264" Times) ("/" "0,270" Divide) ("lra" "357,121") ("p" 
"0,266" Paragraph) ("r" "0,322" Register) ("t" "0,324" Trademark) ("tm" "0,324" Trademark) ("bbox" 
"42,43" Blackbox) ("wbox" "43,42" Whitebox) ("-" SOFT-HYPHEN) ("=" NONBREAKING-HYPHEN) ("nbsp" 
NONBREAKING-SPACE) (" " NONBREAKING-SPACE "original, but deprecated") ("un" "357,127") ("int" 
"357,126") ("subset" "357,131") ("superset" "357,130") ("&" "357,266") ("or" "357,267") ("not" 
"357,152") ("all" "357,265") ("exist" "357,264") ("def" "357,162") (in "357,112" Member) ("compose" 
"357,147") ("!" "0,241") (* ; " Inverted !") ("?" "0,277") (* ; " Inverted ?") ("u" "0,265" MicroSign)
 ("<<" "0,253") (* ; " Left double guillemet") (">>" "0,273") (* ; " Right double guillemet") ("DATE" 
\TEDIT.EXPAND.DATE) (">>DATE<<" \TEDIT.EXPAND.DATE))))
NIL