github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-10 09:25:44 +00:00
Code Issues Projects Releases Wiki Activity
Files
bbf9f73cda151bec030352f8e71b237b46cb09c2
Interlisp.medley/library/tedit/TEDIT-LOOKS.LCOM
rmkaplan d0d9b2329a Cleanup the piece datatype, address a few issues
2026-05-07 20:57:58 -07:00

469 lines
37 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "10-Apr-2026 09:34:11" ("compiled on " {WMEDLEY}<library>tedit>TEDIT-LOOKS.;469)
"10-Apr-2026 00:42:33" brecompiled exprs%: \TEDIT.MCCS.TRANSLATE in "FULL 10-Apr-2026 ..." dated
"10-Apr-2026 00:42:42")
(FILECREATED "10-Apr-2026 09:34:11" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;469 155253 :EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.MCCS.TRANSLATE) :PREVIOUS-DATE " 9-Apr-2026 17:25:54"
{WMEDLEY}<library>tedit>TEDIT-LOOKS.;468)
\TEDIT.CHARLOOKS.DEFPRINT :D8
(P 3 INFO P 2 FACE P 1 FONT P 0 LOC I 3 NOLOC I 2 CPL I 1 STREAM I 0 LOOKS) ”@ @ÉYg
J J h ZIg
i
Ig
Jo
•o€J [C’d°!oHoHoKo
h(143 CONCAT 106 CONCAT 93 STREQUAL 82 FONTPROP 71 L-CASE 65 FONTPROP 53 CONCATCODES 45 CHCON1 37 CHCON1 27 FONTPROP 5 LOC)
(77 SIZE 60 FAMILY 22 FACE 14 CHARLOOKS)
( 137 "}" 131 ":" 124 "/" 117 "{CL" 99 "" 88 "MR")
\TEDIT.PARALOOKS.DEFPRINT :D8
(P 0 LOC I 1 STREAM I 0 PARALOOKS) U@ oHoHo@Ékl o@Éo@Éo
h(80 CONCAT 43 SUBSTRING 5 LOC)
(67 PARALOOKS 54 PARALOOKS 33 PARALOOKS)
( 74 "}" 61 "-" 48 "-" 27 ":" 20 "/" 13 "{PL")
\TEDIT.CREATE.FACE.MENU :D8
NIL E`do¿di ¿do¿dg ¿dg¿jdnÿdhHdI
¿NIL
(43 DEFAULTMENUHELDFN 34 CLRPROMPT 4 |MENUTYPE#|)
( 25 "Face:" 11 (Bold Italic Bold% Italic Regular))
\TEDIT.CREATE.SIZE.MENU :D8
NIL K`do¿di ¿dl¿do¿dg ¿dg¿jdnÿdhHdI
¿NIL
(49 DEFAULTMENUHELDFN 40 CLRPROMPT 4 |MENUTYPE#|)
( 31 "Type Size:" 11 (6 7 8 9 10 11 12 14 18 24 30 36))
\TEDIT.CHARLOOKS.FEATURE.CHECK :D8
(P 4 FTAIL I 1 TSTREAM I 0 LOOKSLIST) ‚@óy@ ³q@d£d‘hAH\µ I´]AµI²IoI°HId²*o°)`
ªL»Jµ KhZ¹L°ÄK&º°øo
i ‹oI
Ih(124 ERROR 111 TEDIT.PROMPTPRINT 105 CONCAT 72 MEMB 13 FONTP)
(67 TEDIT.CHARLOOKS.FEATURES 5 CHARLOOKS)
( 117 "Invalid character property" 100 " is not a valid character property--aborted" 59 " are not valid character properties--aborted"
46 "Invalid character properties")
\TEDIT.CHARLOOKS.FROM.FONT :D8
(I 1 NOERROR I 0 FONT) o@ ³+@d3@ð²@ Ö@ ‹@hdddA
b€@Ø@ b¿`d@¿dg¿ghhHdI
¿dj¿(61 \TEDIT.COERCE.FONTCLASS 45 FONTCREATE 32 GETTOPVAL 20 GETTOPVAL 5 FONTP)
(89 CLUSERINFO 81 BLACK 69 |CHARLOOKSTYPE#| 54 FONTCLASS 25 FONTCLASS)
()
\TEDIT.EQCLOOKS :D8
(L (1 CLOOK2 0 CLOOK1)) #@A𵂱@ÉAÉð´‚±@Ê jðhðAÊ jðhðð´‚±÷@Ê0jðhðAÊ0jðhðð´‚±à@ÊjðhðAÊjðhðð´‚±É@ÊjðhðAÊjðhðð´‚±²@Ê jðhðAÊ jðhðð´‚±›@Ê jðhðAÊ jðhðð´‚±„@Ê0jðhðAÊ0jðhðð´p@ÊjðhðAÊjðhðð´]@ÊjðhðAÊjðhðð´J@ÉAÉð´A@ÊjðhðAÊjðhðð´.@ÉAÉð´%@ÉAÉô´@Ê0jðhðAÊ0jðhðð´ @É
AÉ
ôNIL
NIL
()
\TEDIT.SAMECLOOKS :D8
(P 3 F P 2 FONT2 P 1 FONT1 I 2 FEATURES I 1 CLOOK2 I 0 CLOOK1) B@ÉAÉHµi[dgð²¿Ig
Jg
ð±Ógð²Ig
Jg
ð±±Kdgð²¿Ig
Jg
ð±Œgð²Ig
Jg
ð±jKdgð²¿Ig
Jg
ð±Egð™@ÉAÉð±4Kdgð²¿@Ê0jðhðAÊ0jðhðð±gð²@ÊjðhðAÊjðhðð±ùKdgð²¿@Ê jðhðAÊ jðhðð±Úgð²@Ê0jðhðAÊ0jðhðð±¾Kdgð²¿@ÊjðhðAÊjðhðð±Ÿgð²@Ê jðhðAÊ jðhðð±ƒKdgð²¿@Ê0jðhðAÊ0jðhðð°dgð˜@ÉAÉô°TKdgð²¿g@É
gAÉ
ð°2gð²Ig
Jg
ô<>Ko
¡hHX±ýÿ(517 ERROR 512 CONCAT 499 FONTPROP 488 FONTPROP 191 FONTPROP 180 FONTPROP 154 FONTPROP 143 FONTPROP 120 FONTPROP 109 FONTPROP 83 FONTPROP 72 FONTPROP 49 FONTPROP 38 FONTPROP)
(494 FACE 483 FACE 474 FACE 461 CLCHARENCODING 451 CLCHARENCODING 442 CHARENCODING 424 COLOR 396 UNBREAKABLE 366 UNDERLINE 337 STRIKEOUT 307 OVERLINE 278 PROTECTED 248 SELECTPOINT 219 INVISIBLE 200 SUPERSCRIPT 186 WEIGHT 175 WEIGHT 165 WEIGHT 149 SLOPE 138 SLOPE 129 SLOPE 115 EXPANSION 104 EXPANSION 94 EXPANSION 78 SIZE 67 SIZE 58 SIZE 44 FAMILY 33 FAMILY 23 FAMILY)
( 507 " is an unknown feature of character looks. Detected in SAMECLOOKS")
TEDIT.CARETLOOKS :D8
(P 0 TEXTOBJ I 1 LOOKS I 0 TSTREAM) 4@ Ad²'HÉ4H b´HA
b´HÉ4HA4¿(32 \TEDIT.CARETLOOKS.VERIFY 21 \TEDIT.PARSE.CHARLOOKS.LIST 5 TEXTOBJ)
(45 TEXTOBJ)
()
TEDIT.COPY.LOOKS :D8
(P 2 TOOBJ P 1 SOURCESTREAM P 0 TEXTOBJ I 2 DEST I 1 SOURCE I 0 STREAM) ¸@ bdÉ!AÃ<00>Aɵ@Y°,Ad3 ²!¿@¹HÉ Ak b„ ¿Bò@dBÉð³?¿Bɲ8o@
°*Bd3 ²¿HÉ Bk b„ ¿@AÉI
É B (181 \TEDIT.CHANGE.CHARLOOKS 173 \TEDIT.CHTOPC 157 \ILLEGAL.ARG 149 \TEDIT.UPDATE.SEL 142 \TEDIT.COPYSEL 115 \LISPERROR 81 \ILLEGAL.ARG 73 \TEDIT.UPDATE.SEL 66 \TEDIT.COPYSEL 5 TEXTSTREAM)
(165 SELECTION 137 SELECTION 130 TEXTOBJ 88 SELECTION 61 SELECTION 54 TEXTOBJ 31 SELECTION 24 SELECTION 13 STREAM)
( 109 "Destination selection is not in stream ")
\TEDIT.UNPARSE.CHARLOOKS.LIST :D8
(P 7 PVAL P 6 PNAME P 2 NEWLOOKS P 1 FONT P 0 OFFSET I 0 LOOKS) £@@É@ÉjHñ˜gjHÙŠHjñ´ gHhg@Êjð¥g„gg@Ê jð¥g„gg@Êjð¥g„gg@Ê0jð¥g„gg@Ê0jð¥g„gg@Ég@Ég@Ê0jð¥g„gg@Ê jð¥g„gg@Êjð¥g„ggg@É
h
ZIÚgIh°TIg
Ig
Ig
Ig
Ig
ho2Lµ…¾Kµ MJ
_¿MNOh
½L¼K»°Õ(408 \NCONC2 391 \NCONC2 358 FONTPROP 347 FONTPROP 336 FONTPROP 325 FONTPROP 314 FONTPROP 284 \NCONC2)
(353 EXPANSION 342 SLOPE 331 WEIGHT 320 SIZE 309 FAMILY 297 FONT 291 FONTCLASS 251 CLUSERINFO 246 USERINFO 241 OFF 235 ON 223 SELECTPOINT 218 OFF 212 ON 200 PROTECTED 195 OFF 189 ON 177 INVISIBLE 169 STYLE 161 COLOR 156 OFF 150 ON 138 UNBREAKABLE 133 OFF 127 ON 115 OVERLINE 110 OFF 104 ON 92 STRIKEOUT 87 OFF 81 ON 69 UNDERLINE 64 OFF 58 ON 46 INVERTED 37 SUPERSCRIPT 23 SUBSCRIPT 5 CHARLOOKS)
( 369 (FAMILY SIZE WEIGHT SLOPE EXPANSION))
\TEDIT.MODIFYLOOKS :D8
(P 2 FONT P 1 CURY P 0 CURX I 4 LINEBASEY I 3 CLOOKS I 2 DS I 1 STARTX I 0 LINE) àC´‚±ÚhB
hB
CÉCÊ jð³*AIjØ@ÉÙkØB ¿HAÙjkgB
¿CÊ0jð³(AIJ ÈkÙØB ¿HAÙjkgB
¿CÊjð³)AIJ ÈlÛØB ¿HAÙjkgB
¿CÊjð³(nÿÿBAIJ È ÙHAÙJ È
g
¿HDB (221 MOVETO 212 BLTSHADE 199 FONTCREATE 187 FONTCREATE 166 RELDRAWTO 148 MOVETO 136 FONTCREATE 119 RELDRAWTO 101 MOVETO 90 FONTCREATE 73 RELDRAWTO 55 MOVETO 20 DSPYPOSITION 13 DSPXPOSITION)
(206 INVERT 159 PAINT 112 PAINT 66 PAINT 44 LINEDESCRIPTOR)
()
TEDIT.NEW.FONT :D8
(P 0 NAME I 0 TEXTOBJ) N@o
H´8`Hd Yd´dið¬3µ gIhhh
H (75 U-CASE 64 \NCONC2 33 U-CASE 15 \TEDIT.MAKEFILENAME 10 TEDIT.GETINPUT)
(69 TEDIT.KNOWN.FONTS 50 QUOTE 26 TEDIT.KNOWN.FONTS)
( 5 "Name of font: ")
\TEDIT.CARETLOOKS.VERIFY :D8
(P 1 LOOKS P 0 CARETFN I 1 NEWLOOKS I 0 TEXTOBJ) 7@g
H´ A@lHYddgð™¿@É4µ@É@µA@
(52 \TEDIT.UNIQUIFY.CHARLOOKS 10 GETTEXTPROP)
(31 DON'T 5 CARETLOOKSFN)
()
\TEDIT.CARETPIECE :D8
(I 0 TEXTOBJ) @ @
(11 \TEDIT.CHTOPC 5 TEDIT.GETPOINT)
NIL
()
\TEDIT.GET.INSERT.CHARLOOKS :D8
(P 3 LOOKS P 2 PC I 1 SEL/CHNO I 0 TEXTOBJ) æ @ÉAò8AÉdgð™¿@A
°gð™@A
kÙ‹o €AHdIñ‘¿IkHñ¡H€k@
1JÊjð¨JÉ
”JÉ
Z€J“JÉ Ž@É@µ ` [dÊ jð³K`K
djÏ ¿djÏ¿0KÉ
°d\L¾OµNh_<10>N&_¿µçO½dM
¿»@K
(227 \TEDIT.CARETLOOKS.VERIFY 158 NCREATE2 133 \TEDIT.CHARLOOKS.FROM.FONT 93 \TEDIT.CHTOPC 63 \TEDIT.THELP 50 TEDIT.GETPOINT 34 TEDIT.GETPOINT)
(179 CHARLOOKS 152 |CHARLOOKSTYPE#| 140 CHARLOOKS 128 DEFAULTFONT 41 RIGHT 24 LEFT 16 SELECTION 8 SELECTION)
( 58 "BAD POINT")
\TEDIT.GET.TERMSA.WIDTHS :D8
(P 2 I P 0 NWIDTHS I 1 FONT I 0 TERMSA) Mngjd !lÿjº¹JIó‘HHJdA@ KÉKl
LØÐMÍJkÔZ°Î(62 \GETBASEFIXP 38 TEDIT.CHARWIDTH 14 ARRAY)
(55 ARRAYP 47 ARRAYP 7 SMALLP)
()
\TEDIT.PARSE.CHARLOOKS.LIST :D8
(I 2 TEXTOBJ I 1 DEFAULTCLOOKS I 0 NEWLOOKS) !@Ñ@@ –@ @AB (30 \TEDIT.CHANGE.CHARLOOKS.NEW 21 \TEDIT.CHARLOOKS.FROM.FONT 14 FONTP)
(5 CHARLOOKS)
()
\TEDIT.MCCS.TRANSLATE :D8
(P 23 I P 21 FAT P 20 STRING P 19 OLDCODE P 18 OFFSET P 13 CLOOKSLIST P 12 TOMCCSFN P 11 CLFONT P 10 CLOOKS P 9 PC P 0 TEXTOBJ I 0 TSTREAM) @Ñ@‡@É<11> H ƒOÉd³¢±%P
H ± _Êlð³ÛOÉ ÉɲÌOµÏi°ÌO(Êjð§O( „O(ʇlDð_*¿OO*’l<04>lÏ¿OO(¿Oh¿OO*’l€k¿OÉg𒱌OOOµ~O\Oµ LhO_d`O
Og
jhg ¹dI¿0OÉ
°dZJ_¿Oµ Oh_ ‚O&_¿µãO »dK
¿H
¿ ¿OɵIO–H ¿H½g^dMÉ\µM_¿NhOÉ\_¿OO\¿Oddg¿O$kÔ_$¿°0_Êlð³¦OÉ _É_É_²‘OÉkÙj2OO$
_&¿O$O"ó’±ÿrO&dkOð³«OÉ _(¿OÉkÙjO.O,ó’±þiO(O.kØOO.
kO ¿O.kÔ_.°Ù(530 RPLCHARCODE 520 \TEDIT.PIECE.NTHCHARCODE 483 ALLOCSTRING 451 \TEDIT.PIECE.NTHCHARCODE 334 \TEDIT.UNIQUIFY.ALL 312 \TEDIT.UNIQUIFY.CHARLOOKS 245 \COERCECHARSET 233 FONTPROP 221 NCREATE2 111 %%ARRAY-TYPE-NUMBER 55 \TEDIT.FIRSTPIECE 33 \TEDIT.FIRSTPIECE)
(426 FONTDESCRIPTOR 401 PIECE 383 MCCS 343 CHARENCODING 262 CHARLOOKS 240 CHARCOERCIONS 228 SPEC 214 |CHARLOOKSTYPE#| 176 MCCS 169 FONTDESCRIPTOR 84 FONTDESCRIPTOR 63 PIECE 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.CONVERT.TO.FORMATTED :D8
(P 4 CRLF P 3 CHANGED P 2 CHNO P 0 TEXTOBJ I 2 END I 1 START I 0 TSTREAM) @ÉHÊ:jð´‚±îHÉYjð’±ãI™I ’±ÕA£kb¿B¥HÉb¿ABñ’±ÀA!@AkÙ
¿@ dl
ð²¿@Jl
¿i»JH
kÏ°Il
ð²EJkØH
É
kϿ@i
l
ð²&i¼BmÿÔb¿JkØJkØH H
¿@J
¿i[¿BJñ³DHkÏ:¿K´:Hh¿HÊ,jðhðið­Hi
¿HkÏ,¿@L•g„gABAÙkØ hJkÔZ±ÿJ(261 \TEDIT.UPDATE.LINES 229 \TEDIT.WINDOW.TITLE 188 \TEDIT.TEXTSETFILEPTR 180 \TEDIT.DELETEPIECES 174 \TEDIT.SELPIECES 148 \TEDIT.TEXTPEEKBIN 134 \TEDIT.ALIGNEDPIECE 114 \TEDIT.CHTOPC 104 \TEDIT.RPLCHARCODE 85 \TEDIT.TEXTSETFILEPTR 47 \FZEROP)
(250 CHANGED 244 DELETION 12 TEXTOBJ 5 STREAM)
()
\TEDIT.UNIQUIFY.CHARLOOKS :D8
(P 3 PREVTAIL P 2 LOOK P 1 LOOKTAIL I 1 TEXTOBJ I 0 NEWLOOK) Q@´0AÉV1HYµA@AÉVV@º@J
² KµJI¿AJAÉVV¿°çI[°¼(42 \TEDIT.EQCLOOKS)
(66 TEXTOBJ 59 TEXTOBJ 26 TEXTOBJ 19 TEXTOBJ)
()
\TEDIT.UNIQUIFY.PARALOOKS :D8
(P 3 PREVTAIL P 2 LOOK P 1 LOOKTAIL I 1 TEXTOBJ I 0 NEWLOOK) SAÉX1HYµA@AÉXX@º@J
² KµJI¿AJAÉXX¿°çI[°¼(44 \TEDIT.EQFMTSPEC)
(68 TEXTOBJ 61 TEXTOBJ 28 TEXTOBJ 21 TEXTOBJ 5 TEXTOBJ)
()
\TEDIT.UNIQUIFY.ALL :D8
(P 0 PC I 0 TEXTOBJ) «@hV@hX@ °8XHÉ @
 ¿HHÉ@
¿HɵÊ@É@²@@É@@
@¿@@É4@
4@@É:@
IJ:J(160 \TEDIT.UNIQUIFY.PARALOOKS 138 \TEDIT.UNIQUIFY.CHARLOOKS 115 \TEDIT.UNIQUIFY.CHARLOOKS 76 \TEDIT.UNIQUIFY.PARALOOKS 53 \TEDIT.UNIQUIFY.CHARLOOKS 26 \TEDIT.FIRSTPIECE)
(152 TEXTOBJ 146 TEXTOBJ 130 TEXTOBJ 124 TEXTOBJ 107 TEXTOBJ 101 TEXTOBJ 91 TEXTOBJ 68 PIECE 62 PIECE 45 PIECE 39 PIECE 33 PIECE 14 TEXTOBJ 5 TEXTOBJ)
()
\TEDIT.FLUSH.UNUSED.LOOKS :D8
(P 3 PC P 1 PARALOOKS P 0 CHARLOOKS I 0 TEXTOBJ) Ù @ÉV@ÉXHŒdjÏ¿µòIŒdjÏ(¿µò@ °[É kÏ¿KÉkÏ(¿Kɵè@HALµMV@IALµ3MZXJ_dÊjð³jÏ¿O_¿NµOh^]¿L\°ÂO&^°ö_dÊ(jð³jÏ(¿O_¿NµOh^]¿L\°ªO&^°ö(63 \TEDIT.FIRSTPIECE)
(116 TEXTOBJ 98 TEXTOBJ 70 PIECE 45 PARALOOKS 27 CHARLOOKS 13 TEXTOBJ 5 TEXTOBJ)
()
TEDIT.LOOKS :D8
(I 3 LEN I 2 SELORCH# I 1 NEWLOOKS I 0 TSTREAM) H@ bdABÃ’B°'Bž@BCg °@ÉÉ @A
@(68 TEDIT.CARETLOOKS 61 \TEDIT.CHANGE.CHARLOOKS 34 TEDIT.SETSEL 5 TEXTSTREAM)
(56 SELECTION 49 TEXTOBJ 42 STREAM 29 LEFT 15 SELECTION)
()
TEDIT.GET.LOOKS :D8
(I 1 CH#ORCHARLOOKS I 0 TEXTOBJ) j@ bAÃ’A°S@ÉHjðµ
H´H ”@É4°6Ad3 ³(Ã’A°Aµ@É„ É@
É (103 \TEDIT.UNPARSE.CHARLOOKS.LIST 96 \TEDIT.CHTOPC 83 \ILLEGAL.ARG 39 \FZEROP 5 TEXTOBJ)
(88 SELECTION 77 SELECTION 70 TEXTOBJ 57 SELECTION 13 CHARLOOKS)
()
TEDIT.SUBLOOKS :D8
(P 13 FIRSTCHANGEDCHNO P 12 SEL P 11 CHANGEMADE P 10 PC P 9 CH# P 8 FEATURELIST P 7 NEWLOOKS P 6 OLDLOOKS P 5 NCHARSCHANGED P 0 TEXTOBJ I 2 NEWLOOKSLIST I 1 OLDLOOKSLIST I 0 TSTREAM) 'A B @ HÉYjð’±I™I ’±újAhH BhH 0A<>dºKµJh\<5C>J&»µïLkE
H µ±„_¿NOÉ O ²gO³>i_¿HÉ_¿hd@h ¿Hh¿HÊ,jðhðið­Hi
¿HkÏ,¿OBOÉ H H
 ¿O¤O_¿MOÉÔ½Oɵ)O´$H ²@gOM ¿Oi@ O_¿OOÉÔ_¿±ÿNh(267 \TEDIT.SHOWSEL 257 \TEDIT.UPDATE.LINES 241 \TEDIT.PRIMARYPANE 207 \TEDIT.UNIQUIFY.CHARLOOKS 201 \TEDIT.PARSE.CHARLOOKS.LIST 181 \TEDIT.WINDOW.TITLE 157 \TEDIT.SHOWSEL 122 \TEDIT.SAMECLOOKS 97 \TEDIT.FIRSTPIECE 61 \TEDIT.PARSE.CHARLOOKS.LIST 53 \TEDIT.PARSE.CHARLOOKS.LIST 40 \FZEROP 17 TEXTOBJ 11 \TEDIT.CHARLOOKS.FEATURE.CHECK 5 \TEDIT.CHARLOOKS.FEATURE.CHECK)
(275 PIECE 249 LOOKS 145 SELECTION 138 TEXTOBJ 107 PIECE)
()
TEDIT.FINDLOOKS :D8
(P 10 PC1 P 9 FOUNDCH# P 8 PCLAST P 7 PC P 6 FEATURELIST P 5 OLDLOOKS P 0 TEXTOBJ I 2 CH# I 1 OLDLOOKSLIST I 0 TEXTSTREAM)  @ Bd3 œ¿kBñ¦BHÉñ²)BÚHB
b°BµHdÉ
b„ ¿HÉYj𒱬I™I ’±žAhH 0A<>dºKµJh\<5C>J&»µïL2 BH
°mOÉd³Bµ[O_¿OH
_¿HOO OÉØOÙg ¿H ¿HÉ _¿MOÉ N ³¦Oµ©i°¦É
°§Oɵh_¿MOÉ N ²å
O±ÿy(264 \TEDIT.SAMECLOOKS 224 \TEDIT.SAMECLOOKS 204 \TEDIT.COPYSEL 195 TEDIT.NORMALIZECARET 188 TEDIT.SETSEL 170 \TEDIT.PCTOCH 157 \TEDIT.PCTOCH 132 \TEDIT.CHTOPC 96 \TEDIT.PARSE.CHARLOOKS.LIST 84 \FZEROP 63 \ILLEGAL.ARG 55 TEDIT.GETPOINT 39 TEDIT.GETPOINT 5 TEXTOBJ)
(250 PIECE 210 PIECE 183 RIGHT 31 SELECTION)
()
\TEDIT.CHANGE.CHARLOOKS :D8
(P 23 NEWCHARLOOKS P 21 OLDCHARLOOKS P 20 NEWCHARLOOKS P 19 UNDOLIST P 18 PC P 16 ORIGFILEPTR P 15 FIRSTCHAR P 13 PTAIL P 11 OLDCHARLOOKS P 10 PC P 4 DIRTY P 3 FONT P 2 NEWLOOKSLIST P 1 SELPIECES P 0 TEXTOBJ I 2 TARGETSEL I 1 NEWLOOKS I 0 TSTREAM) @ QBµHÉbÉ jð<6A>@oi hA´‚±"BÊjð’±@hBÉ ’±BÉHÉñ’±ôkBÉñ’±æAÑAŽA ²%Ai
H
b¿BhH Yda Nµ\±«A@
’±§Ag'[²ÚA
O_µh²Ëho
² @oOo id ¿i°ÒO°Æ¿NÉ_¿NÉ_¿OÉ _¿AÑAˆAOH d²_¿OµOh__¿OdOð²¿OZdµhO&_¿°èÉ_°³IÉ@ IdO"µ±‘¿O"É_$¿O"É_,¿Oµ°k_(¿O$É _*¿OO$ÉÔ_¿O*O(
•h_*¿°2O$O(H
 ¿L³"Hh¿HÊ,jðhðið­Hi
¿HkÏ,¿i¼OO*O&_&¿O$dO,ð²l¿HdgIhddAL´ O& 

¿L´‚±Ø@ ¢±Íhd@h ¿Ag'dgð²/¿HÉjg °CÉ_$¿O_±ÿgð²*HÉBÉBÉ g ¿Hd kÙ½kMñ¡M€kH
É
¿H ¿@gIÉIÉ ¿hi@ ¿@O
L(785 \TEDIT.TEXTSETFILEPTR 776 \TEDIT.SHOWSEL 767 \TEDIT.UPDATE.LINES 739 \TEDIT.RESET.EXTEND.PENDING.DELETE 732 TEDIT.CARETLOOKS 725 \TEDIT.CHTOPC 709 TEDIT.GETPOINT 701 \TEDIT.UPDATE.SEL 634 \TEDIT.UPDATE.SEL 592 \TEDIT.SHOWSEL 579 \TEDIT.PRIMARYPANE 565 \TEDIT.HISTORYADD 560 \TEDIT.HISTORY.EVENT 553 DREVERSE 502 \TEDIT.WINDOW.TITLE 473 \TEDIT.UNIQUIFY.CHARLOOKS 456 \TEDIT.EQCLOOKS 378 \TEDIT.TEXTGETFILEPTR 308 \TEDIT.CHANGE.CHARLOOKS.NEW 245 TEDIT.PROMPTPRINT 238 CONCAT 217 MEMB 175 \TEDIT.CHARLOOKS.FEATURE.CHECK 157 \TEDIT.SELPIECES 146 \TEDIT.UNIQUIFY.CHARLOOKS 140 \TEDIT.CHARLOOKS.FROM.FONT 131 FONTP 82 \TEDIT.READONLY 48 TEDIT.PROMPTPRINT 5 TEXTOBJ)
(760 SELPIECES 752 SELPIECES 746 LOOKS 696 RIGHT 689 SELECTION 681 SELECTION 675 SELECTION 668 TEXTOBJ 659 OFF 643 PIECE 629 LEFT 623 SELECTION 616 TEXTOBJ 606 ON 599 INVISIBLE 538 :CharLooks 416 PIECE 404 PIECE 394 SELPIECES 370 SELPIECES 360 PIECE 296 CHARLOOKS 280 PIECE 269 PIECE 260 SELPIECES 185 FONT 122 CHARLOOKS 109 SELECTION 92 SELECTION 75 SELECTION 31 SELECTION 24 SELECTION 17 TEXTOBJ)
( 233 "--aborted" 225 "Cannot specify both FONT and font attributes like " 212 (FAMILY FACE SIZE SLOPE WEIGHT BOLD ITALIC EXPANSION)
42 "No characters are selected")
\TEDIT.CHANGE.CHARLOOKS.NEW :D8
(P 5 NEWCHARLOOKS P 4 VAL P 3 NEWFONT P 2 NLTAIL I 2 TEXTOBJ I 1 OLDCHARLOOKS I 0 NEWLOOKS)  A³8B™BÉ@µ)`dg¿ghhHdI
¿dj¿b¿@qIº@g'gð<>Boi h@AB [´ö`A
dK¿0 AÉ
°d^N_¿Oµ Oh_‚O&_¿µãO_¿dO
¿½JµM\o
‘h¼Jdgðœ¿ML‘k€jÏ0± dgð—¿ML±dgð™¿MjLÙ±þdgðœ¿ML‘k€jÏ ±édgðœ¿ML‘k€jÏ ±Ôdgð—¿ML±Ädgðœ¿ML‘k€jÏ0±¯dgð—¿ML±Ÿdgðœ¿ML‘k€jϱŠdgð›¿ML‘k€jÏ°udgð¨dgð²¿ML‘k€jÏ¿ML¡k€jÏ°Ndgð²¿ML‘k€jÏ¿ML¡k€jÏ°/dgðŸ¿MLA”AɵjØ°gðžML‘k€j_Ï0¿O¿JZ±þ²(193 MEMB 112 NCREATE2 98 \TEDIT.CHARLOOKS.CHANGE.FONT 88 TEDIT.PROMPTPRINT)
(488 INVISIBLE 465 OFFSETINCREMENT 434 SELBEFORE 403 SELAFTER 395 SELECTPOINT 375 INVERTED 354 STRIKEOUT 338 COLOR 317 UNBREAKABLE 301 STYLE 280 UNDERLINE 259 PROTECTED 241 SUBSCRIPT 225 SUPERSCRIPT 204 OVERLINE 126 CHARLOOKS 106 |CHARLOOKSTYPE#| 74 OFF 68 DEVICE 34 CLUSERINFO 26 BLACK 19 |CHARLOOKSTYPE#| 10 TEXTOBJ)
( 188 (NEUTRAL OFF) 82 "Please specify a particular font device")
\TEDIT.CHARLOOKS.CHANGE.FONT :D8
(P 13 D P 11 TEMP P 10 FONTSPEC P 9 OLDFONT P 8 SIZEINCREMENT P 7 SIZE P 6 EXPANSION P 5 SLOPE P 4 WEIGHT P 3 FACE P 2 NEWFAMILY P 1 NEWFONT P 0 DEVICE I 2 TEXTOBJ I 1 OLDCHARLOOKS I 0 NEWLOOKS F 14 TEDIT.FONTDEVICES) 9@g'@g'@g'@g'@g'@g'@g'@g' @g'AÉ* Iµ6Jo
¬gJO_¿L³O@g'dgð²1¿g°6 µI µBIo
id h¹°§gð´g¼M³&@g'dgð–¿gŒgð´g½L¦M¢N²*LœgLO_¿MœgMO_¿N²gN‡KœgKO_¿Od3 ²¿O²$Boi ho
˜O_¿h_<0E>O˜gO°O²"gAÉO
d¢±»O_¿I²O<14>Boi hHo
²eIµ‚±ŒOÚOOB O _W
OµO¦O_¿hˆO_¿O_¿OOOgOOB ¿°ÇO _Iµ$OgHOB Yd´
OHI OgH °å(565 FONTCOPY 551 SETFONTCLASSCOMPONENT 538 \TEDIT.FONTCOPY 515 \TEDIT.COERCE.FONTCLASS 505 SETFONTCLASSCOMPONENT 500 \TEDIT.FONTCOPY 442 \TEDIT.COERCE.FONTCLASS 434 \TEDIT.FONTCOPY 407 MEMB 394 TEDIT.PROMPTPRINT 364 \TEDIT.FONT.NEXTSIZE 318 MEMB 306 TEDIT.PROMPTPRINT 162 TEDIT.PROMPTPRINT 155 CONCAT 141 FONTCREATE 133 FONTP 87 MEMB 60 MKATOM)
(559 DEVICE 527 DEVICE 488 DEVICE 423 FONTDESCRIPTOR 355 CHARLOOKS 349 SIZE 336 SIZE 274 FACE 265 EXPANSION 249 SLOPE 234 WEIGHT 219 REGULAR 211 OFF 205 ITALIC 197 ON 190 ITALIC 180 REGULAR 172 OFF 126 BOLD 117 ON 110 BOLD 93 FAMILY 66 SIZEINCREMENT 54 SIZE 47 EXPANSION 40 SLOPE 33 WEIGHT 26 FACE 19 FAMILY 12 FONT 5 DEVICE)
( 402 (ALL OFF NIL) 388 "Cannot specify both FONT and separate font attributes--aborted" 313 (+ -) 300
"Cannot specify both SIZE and SIZEINCREMENT font attributes--aborted" 150 " isn't a valid font descriptor--aborted"
82 (NIL OFF))
\TEDIT.FONT.NEXTSIZEA0001 :D8
(I 1 F2 I 0 F1) @g
Ag
ýñ(21 FONTPROP 10 FONTPROP)
(16 SIZE 5 SIZE)
()
\TEDIT.FONT.NEXTSIZE :D8
(P 3 FTAIL P 2 FSIZE P 0 FONTS I 1 INCREMENT I 0 FONT) ™A3 <20>@g
AØ@g@g
@g
@g
i
g
Agð—H X€H@g
I[´$JKg
ð²K´Kg
K°×(146 FONTPROP 125 FONTPROP 104 FONTPROP 90 DREVERSE 73 SORT 63 FONTSAVAILABLE 56 FONTPROP 45 FONTPROP 34 FONTPROP 14 FONTPROP)
(141 SIZE 120 SIZE 99 SIZE 82 - 68 \TEDIT.FONT.NEXTSIZEA0001 51 DEVICE 40 ROTATION 29 FACE 23 * 9 SIZE)
()
\TEDIT.LOOKSA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 8 NEWLOOKS P 7 SIZE P 6 FACE P 5 FONT P 4 POS P 3 REGION P 0 SEL I 0 SI::*CLEANUP-FORMS* F 9 TEXTOBJ F 10 SI::*RESETFORMS*) y oW hWcWÉ!WÉ ÉKKKØmÿØAHÉWÉñ’±(HÊjð’±jK
WÉ
`do¿` ggWhhh
¹dI¿di ¿dg ¿dg¿jdnÿdhºdJ
¿L
]`L
dgð—¿g°.dgð—¿g°dgð–¿gŒgð´g^`L
_M´ gMh_NœgNO_¿O<0E>gOO_<10>O´ WOH Woi h(372 TEDIT.PROMPTPRINT 358 TEDIT.LOOKS 296 MENU 224 MENU 212 MENU 160 \NCONC2 135 COPY 110 CURSORPOSITION 101 CREATEPOSITION 40 \INSUREWINDOW 11 \TEDIT.MARKACTIVE)
(335 SIZE 319 FACE 306 FAMILY 290 TEDIT.SIZE.MENU 284 STANDARD 276 Regular 270 BOLDITALIC 262 Bold% Italic 254 ITALIC 246 Italic 238 BOLD 230 Bold 218 TEDIT.FACE.MENU 186 DEFAULTMENUHELDFN 177 CLRPROMPT 145 TEDIT.NEW.FONT 140 Other 130 TEDIT.KNOWN.FONTS 115 |MENUTYPE#| 69 SELECTION 26 TEXTOBJ)
( 366 "Please select some text to modify" 122 "Font:" 4 (PROGN (\TEDIT.MARKINACTIVE OLDVALUE)))
\TEDIT.LOOKS :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 TEXTOBJ F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 \TEDIT.LOOKSA0001)
(8 SI::RESETUNWIND)
()
\TEDIT.FONTCOPYA0001 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FONT F 3 NEWSPECS F 4 SI::NLSETQ-VALUE) i@RS
hcg(11 FONTCOPY)
(20 :NORMAL)
()
\TEDIT.FONTCOPY :D8
(P 4 MSG P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 2 TEXTOBJ I 1 NEWSPECS I 0 FONT F 5 *PROCEED-CASES* F 6 *CONDITION-HANDLER-BINDINGS*) œA¡@`UioVI gð´HµeoAg'µ
@g
oAg'µ
@g
oAg'µ
@g
o
Bµ
L hLid °ö(152 TEDIT.PROMPTPRINT 142 ERROR 130 CONCAT 119 FONTPROP 94 FONTPROP 69 FONTPROP 30 \TEDIT.FONTCOPYA0001)
(114 FACE 105 FACE 89 SIZE 80 SIZE 64 FAMILY 55 FAMILY 36 :NORMAL 11 SI::NLSETQ-PROCEED-CASE)
( 124 "--aborted" 99 " " 74 " " 49 "Can't find font " 19 (CL:ERROR . SI::NLSETQHANDLER))
\TEDIT.COERCE.FONTCLASS :D8
(P 1 D P 0 NEWCLASS I 0 FONT F 2 TEDIT.FONTDEVICES) H`dg
¿djÏ¿R°)d¹HI@Ãœ@gI †@I
¿µØH(63 SETFONTCLASSCOMPONENT 58 FONTCLASSCOMPONENT 50 FONTCOPY)
(44 DEVICE 37 FONTDESCRIPTOR 11 TEDIT-FONTCLASS 4 |FONTCLASSTYPE#|)
()
\TEDIT.FONTCLASS.TO.FONT :D8
(P 3 F P 2 DISPLAYFONT P 1 D I 0 FONTCLASS F 4 TEDIT.FONTDEVICES) ‚T1@hddg
ºHµJYgð³Z@hddI
»Jg
Kg
ð²3Jg
Kg
ô²Jg
Kg
ð¡@HX°–(119 FONTPROP 108 FONTPROP 94 FONTPROP 83 FONTPROP 69 FONTPROP 58 FONTPROP 46 FONTCREATE 18 FONTCREATE)
(114 SIZE 103 SIZE 89 FACE 78 FACE 64 FAMILY 53 FAMILY 32 DISPLAY 12 DISPLAY)
()
\TEDIT.EQFMTSPEC :D8
(I 1 PARALOOK2 I 0 PARALOOK1) Q@A@A𵂱=@ÉAÉð´‚±0@É AÉ ð´‚±#@É"AÉ"ð´‚±@ÉAÉð´‚± @ÉAÉð´‚±ü@ÉAÉð´‚±ï@ÊjðhðAÊjðhðð´‚±Ø@É$AÉ$ð´‚±Ë@ÉAÉð´‚±¾@ÉAÉð´‚±±@Ê(jðhðAÊ(jðhðð´‚±š@É*AÉ*ð´‚±<00>@É&AÉ&ð´‚±€@ÉAÉ
´r@ÉAÉ
´e@ÉAÉ
´X@ÉAÉ
´K@ÉAÉ
´>@É
AÉ
´1@É AÉ
´$@ÉAÉô´@ÉAÉô´@É.AÉ.ð´ @É0AÉ0ô(298 EQP 285 EQP 272 EQP 259 EQP 246 EQP 233 EQP 220 EQP)
(11 PARALOOKS 5 PARALOOKS)
()
TEDIT.GET.PARALOOKS :D8
(P 7 PROPNAME P 6 PROP P 2 PARALOOKS P 1 PC P 0 TEXTOBJ I 1 SELORCH# I 0 TSTREAM) #@ AÃ’A°4Ad3 ³(Ã’A°AµHÉ„ ÉH
IµSHÉ:ºoJÉJÉJÉJÉJÉJÉJÉ
JÉ JÉ.JÉ0 JÉJÉJÉJÉJÉJÉJÉJÉ ™gˆÉ°µgJÉ"•g„gJÊjð¥g„gJÉ$JÊ(jð¥g„gJÉ*JÉ&h2Lµ…¾KµM_¿MONh
½L¼K»°Ü(280 \NCONC2 123 COPY 68 \TEDIT.CHTOPC 55 \ILLEGAL.ARG 5 TEXTOBJ)
(218 OFF 212 ON 197 OFF 191 ON 179 OFF 173 ON 164 OFF 154 ON 80 TEXTOBJ 60 SELECTION 49 SELECTION 42 TEXTOBJ 29 SELECTION 14 PIECE)
( 88 (QUAD 1STLEFTMARGIN LEFTMARGIN RIGHTMARGIN PARALEADING POSTPARALEADING LINELEADING BASETOBASE TABS STYLE CHARSTYLES USERINFO SPECIALX SPECIALY TYPE SUBTYPE NEWPAGEBEFORE NEWPAGEAFTER HEADINGKEEP KEEP HARDCOPY REVISED COLUMN))
\TEDIT.PARSE.PARALOOKS.LIST :D8
(P 39 TABS P 38 DEFTAB P 37 CHARSTYLESSET P 36 CHARSTYLES P 35 STYLESET P 34 STYLE P 33 SPECYSET P 32 SPECIALY P 31 SPECXSET P 30 SPECIALX P 29 USERINFOSET P 28 USERINFO P 27 COLUMNSET P 26 COLUMN P 25 REVISEDSET P 24 REVISED P 23 BASESET P 22 BASETOBASE P 21 HEADINGKEEPSET P 20 HEADINGKEEP P 19 KEEPSET P 18 KEEP P 17 NEWAFTER P 16 NEWAFTERSET P 15 NEWBEFORE P 14 NEWBEFORESET P 13 SUBTYPESET P 12 TYPESET P 11 SUBTYPE P 10 TYPE P 9 NLOOKSAVE P 8 QUADD P 7 TABSPEC P 6 LLEAD P 5 LEADA P 4 LEADB P 3 RIGHT P 2 LEFT P 1 1STLEFT P 0 NEWPARALOOKS I 1 OLDPARALOOKS I 0 NEWLOOKS) õ(@Ñ@ðð 'A™@A
b€@g'Y@g'Z@g'[@g'\@g']@g'^g@_@g'_g@_@g'_g@_@g'_g@_ @g'_"g@_*@g'_(g@_&@g'_$@g'_,g@_.@g'_0g@_2@g'_@g'_4g@_6@g'_8g@_:@g'_<g@_>@g'_@g@_B@g'_Dg@_F@g'_Hg@_J@g'_L@g'_N@g'_dšd_L¿O_N¿Ogð³vOgð³lOgð³bOgð³XOd²RgðªOdgð—¿g°7gð³*Odgð—¿g°gð¨Ogð•g„g_¿AÃœ`A
°`dj
¿dj¿dj¿XI”dI¿J”HJ¿K”HK¿L”HL¿M”HM¿N”HN
¿ON•HON0¿OL•HOL.¿O•HO¿O•HO¿O•HO¿O•HO ¿O •HO""¿O*²HO(gð‘k€jÏ¿O&•HO$$¿O.•HO, ¿O2•HO0*¿O6•HO4&¿O>•HO<¿OB•HO@¿OF•HOD¿OJ•HOH¿O:”HO8H(523 NCREATE2 27 \APPEND2)
(664 ON 530 |PARALOOKSTYPE#| 517 |PARALOOKSTYPE#| 511 PARALOOKS 502 LEFT 496 CENTERED 489 CENTER 480 C 473 RIGHT 465 R 454 L 447 JUSTIFIED 439 J 429 JUST 416 JUSTIFIED 406 CENTERED 396 RIGHT 386 LEFT 363 TABSPEC 354 TABS 345 DEFAULTTAB 335 CHARSTYLES 327 CHARSTYLES 317 STYLE 309 STYLE 299 SPECIALY 291 SPECIALY 281 SPECIALY 273 SPECIALY 263 USERINFO 255 USERINFO 245 COLUMN 237 COLUMN 228 QUAD 218 REVISED 210 REVISED 200 BASETOBASE 192 BASETOBASE 183 KEEP 173 KEEP 165 HEADINGKEEP 155 HEADINGKEEP 147 NEWPAGEAFTER 137 NEWPAGEAFTER 129 NEWPAGEBEFORE 119 NEWPAGEBEFORE 111 SUBTYPE 101 SUBTYPE 93 TYPE 83 TYPE 76 LINELEADING 68 POSTPARALEADING 60 PARALEADING 52 RIGHTMARGIN 44 LEFTMARGIN 36 1STLEFTMARGIN 5 PARALOOKS)
()
TEDIT.PARALOOKS :D8
(P 1 TARGETSEL P 0 TEXTOBJ I 3 LEN I 2 SELORCH# I 1 NEWLOOKS I 0 TSTREAM) r@ bdÉBÃ’B°B<>@BCg ŒHÉYdÊjð³)HhIÉ µIÉHÉñ¨@AI h(109 \TEDIT.CHANGE.PARALOOKS 86 \TEDIT.READONLY 43 TEDIT.SETSEL 5 TEXTSTREAM)
(94 SELECTION 79 SELECTION 64 SELECTION 57 SELECTION 50 TEXTOBJ 38 RIGHT 24 SELECTION 13 STREAM)
()
\TEDIT.CHANGE.PARALOOKS :D8
(P 12 PTAIL P 10 UNDOLIST P 9 OLDPARALOOKS P 8 NEWPARALOOKS P 7 PC P 5 ORIGFILEPTR P 4 FIRSTCHAR P 3 FIRSTPARAPIECE P 2 PARAPIECES P 1 PROPNAMES P 0 TEXTOBJ I 2 TARGETSEL I 1 NEWLOOKS I 0 TSTREAM) 
@ oHÉjð<6A>@oi hB¯HÉb¿A´‚±ÏBÊjð’±ÄHhBÉ ’±±BÉHÉñ’±¡kBÉñ’±“Aò.AH
b¿BhH ZiJÉ@ JT NµF±A O_µh²ÑhI
³#Od²¿@Oo
id ¿i°ÓO°Ç¿NÉ_¿NÉ_¿K²~O©hd@h ¿OÉ_¿AÑAˆAOH _¿OO
³JOH
_¿O²A<03>Agð”A² Hh¿HÊ,jðhðið­Hi
¿HkÏ,¿LOO_¿OO¿LOÉÔ¼OÊjðhð»OdOð²d¿HdgJhddAO 

¿O²6H ².H ¿@gJÉJÉ ¿hi@ ¿@M
hÉ_¿±þõ(517 \TEDIT.TEXTSETFILEPTR 509 \TEDIT.SHOWSEL 500 \TEDIT.UPDATE.LINES 472 \TEDIT.RESET.EXTEND.PENDING.DELETE 464 \TEDIT.PRIMARYPANE 453 \TEDIT.HISTORYADD 448 \TEDIT.HISTORY.EVENT 441 DREVERSE 372 \TEDIT.WINDOW.TITLE 325 \TEDIT.UNIQUIFY.PARALOOKS 315 \TEDIT.EQFMTSPEC 303 \TEDIT.CHANGE.PARALOOKS.NEW 277 \TEDIT.SHOWSEL 224 TEDIT.PROMPTPRINT 217 CONCAT 193 MEMB 159 \TEDIT.TEXTGETFILEPTR 143 \TEDIT.PARAPIECES 132 \TEDIT.UNIQUIFY.PARALOOKS 83 \TEDIT.READONLY 31 TEDIT.PROMPTPRINT 5 TEXTOBJ)
(526 PIECE 493 SELPIECES 485 SELPIECES 479 LOOKS 429 :ParaLooks 342 HARDCOPY 291 PARALOOKS 259 PIECE 248 PIECE 239 SELPIECES 151 SELPIECES 123 PARALOOKS 110 SELECTION 93 SELECTION 76 SELECTION 48 SELECTION 41 TEXTOBJ)
( 212 " is not a valid paragraph property--aborted" 25 "No text to modify" 10 (1STLEFTMARGIN LEFTMARGIN RIGHTMARGIN PARALEADING POSTPARALEADING LINELEADING BASETOBASE QUAD TYPE SUBTYPE SPECIALX SPECIALY NEWPAGEBEFORE NEWPAGEAFTER HEADINGKEEP KEEP HARDCOPY USERINFO REVISED STYLE CHARSTYLES COLUMN TABS DEFAULTTAB MARGINBAR))
\TEDIT.CHANGE.PARALOOKS.NEW :D8
(P 3 NEWPARALOOKS P 2 VAL P 1 NLTAIL I 2 TEXTOBJ I 1 OLDPARALOOKS I 0 NEWLOOKS) A¬BšBÉ:b¿@1H¹Aœ`A
°`dj
¿dj¿dj¿»IµKZo
‘hºIdgð—¿KJ±œdgð—¿KJ±Œdgð—¿KJ±|dgð—¿KJ±ldgð—¿KJ±\dgð—¿KJ
±Ldgð—¿KJ ±<dgð²¿J¢±.KJ ±!dgð²¿KJgð´g±dgð—¿KJ±ódgð—¿KJ±ãdgð—¿KJ±Ódgð—¿KJ ±Ãdgð—¿KJ"±³dgðœ¿KJ‘k€jϱždgð—¿KJ$±Ždgð›¿KJ‘k€jÏ(°ydgð–¿KJ°jdgð–¿KJ*°[dgð–¿KJ°Ldgð–¿KJ°=dgð–¿KJ&°.dgð²¿J•KJ0°KJ0¿JŸKJˆgð”KJ.¿IY±þ;(215 U-CASE 76 MEMB 33 NCREATE2)
(500 DEFAULTTAB 468 TABS 453 COLUMN 438 CHARSTYLES 423 STYLE 408 REVISED 393 USERINFO 373 HARDCOPY 357 KEEP 336 HEADINGKEEP 320 NEWPAGEAFTER 304 NEWPAGEBEFORE 288 SPECIALY 272 SPECIALX 256 SUBTYPE 245 PAGEHEADING 237 ON 226 TYPE 199 QUAD 183 BASETOBASE 167 LINELEADING 151 POSTPARALEADING 135 PARALEADING 119 RIGHTMARGIN 103 LEFTMARGIN 87 1STLEFTMARGIN 40 |PARALOOKSTYPE#| 27 |PARALOOKSTYPE#| 9 TEXTOBJ)
( 71 (NEUTRAL OFF))
TEDIT.COPY.PARALOOKS :D8
(P 3 DESTOBJ P 2 LOOKS P 1 SOURCESTREAM P 0 TEXTOBJ I 2 DEST I 1 SOURCE I 0 TSTREAM) ¹@ bdÉ1AÃ<00>Aɵ@Y°,Ad3 ²!¿@¹HÉ Ak b„ ¿Bò@dBÉð³?¿Bɲ8o@
°*Bd3 ²¿HÉ Bk b„ ¿@AÉI
ÉB h(181 \TEDIT.CHANGE.PARALOOKS 173 \TEDIT.CHTOPC 157 \ILLEGAL.ARG 149 \TEDIT.UPDATE.SEL 142 \TEDIT.COPYSEL 115 \LISPERROR 81 \ILLEGAL.ARG 73 \TEDIT.UPDATE.SEL 66 \TEDIT.COPYSEL 5 TEXTSTREAM)
(165 SELECTION 137 SELECTION 130 TEXTOBJ 88 SELECTION 61 SELECTION 54 TEXTOBJ 31 SELECTION 24 SELECTION 13 STREAM)
( 109 "Destination selection is not in stream ")
\TEDIT.PARABOUNDS :D8
(P 7 PC P 6 PC P 4 END P 3 START P 2 START-OF-PIECE P 1 CHPIECE I 1 CH# I 0 TEXTOBJ) <00>@ÉHjðµ
H´H “jdPA@ɽdMñ‘¿M@i YJ[I°^ÊjðœKjNÉÙÔ»NÉ
µéJkÙ\I°_¿LOÉÔ¼OÊjð•OɵåKL(48 \TEDIT.CHTOPC 21 \FZEROP)
(98 PIECE 62 PIECE)
()
TEDIT.SUBPARALOOKS :D8
(P 11 FIRSTCHANGEDCHNO P 10 SEL P 9 CHANGEMADE P 8 PC P 7 CH# P 6 FEATURELIST P 5 OLDLOOKS P 4 NCHARSCHANGED P 0 TEXTOBJ I 2 NEWLOOKSLIST I 1 OLDLOOKSLIST I 0 TSTREAM)  @ bdÑ@‡@ÉjA 0A<>d¹JµIh[<5B>I&ºµïKkD H µ°w_¿MOÉN ²\O³4i_¿HÉ_¿hd@h ¿Hh¿HÊ,jðhðið­Hi
¿HkÏ,¿OBOÉ
H
¿O¤O_¿LOÉÔ¼Oɵ)O´$@ ²@gOL ¿Oi@ O_¿OOÉÔ_¿±ÿZ(232 \TEDIT.SHOWSEL 222 \TEDIT.UPDATE.LINES 206 \TEDIT.PRIMARYPANE 172 \TEDIT.UNIQUIFY.PARALOOKS 166 \TEDIT.PARSE.PARALOOKS.LIST 147 \TEDIT.WINDOW.TITLE 123 \TEDIT.SHOWSEL 98 SAMEPARALOOKS 75 \TEDIT.FIRSTPIECE 39 \TEDIT.PARSE.PARALOOKS.LIST 5 TEXTSTREAM)
(240 PIECE 214 LOOKS 84 PIECE 29 TEXTOBJ 22 STREAM 13 TEXTOBJ)
()
SAMEPARALOOKS :D8
(P 1 F I 2 FEATURES I 1 PARALOOKS2 I 0 PARALOOKS1) [@ABHµiYdgðœ¿@ÉAÉÙjð±'gð›@ÉAÉÙjð±Idgðœ¿@ÉAÉÙjð±þgð™@ÉAÉð±íIdgðœ¿@ÉAÉÙjð±×gð›@ÉAÉÙjð±ÄIdgðœ¿@É
AÉ
Ùjð±®gð™@É.AÉ.ð±<00>Idgðš¿@É0AÉ0ô±‰gð˜@É AÉ ð°xIdgð™¿@É"AÉ"ð°egðš@ÉAÉÙjð°SIdgð›¿@ÉAÉÙjð°>gð²@ÊjðhðAÊjðhðð°#Idgð˜¿@ÉAÉôŽo
¡hHX±þº(336 \TEDIT.THELP 331 CONCAT)
(310 STYLE 281 HEADINGKEEP 262 SPECIALY 242 SPECIALX 225 NEWPAGEAFTER 207 NEWPAGEBEFORE 189 TABS 170 DEFAULTTAB 150 LINELEADING 129 PARALEADING 109 POSTPARALEADING 90 QUAD 70 RIGHTMARGIN 49 1STLEFTMARGIN 29 LEFTMARGIN 11 PARALOOKS 5 PARALOOKS)
( 326 " is an unknown feature of paragraph looks")
\TEDIT.MARK.REVISION :D8
(P 0 SCALE I 3 LINE I 2 IMAGESTREAM I 1 PARALOOKS I 0 TEXTOBJ) ChB
nÿÿBCÉl HÚ ØCÉH CÉ g
(64 BLTSHADE 45 FIXR 30 FIXR 6 DSPSCALE)
(58 PAINT 51 LINEDESCRIPTOR 37 LINEDESCRIPTOR 19 LINEDESCRIPTOR)
()
(PRETTYCOMPRINT TEDIT-LOOKSCOMS)
(RPAQQ TEDIT-LOOKSCOMS ((* ;;
"Support for Character looks (font, italic/bold, sub/superscripting, etc) and paragraph looks (margins, centered/justified, tabs, etc.). Uses compiled create functions in case DWIM is not available at loadup time."
) (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (RECORDS CHARLOOKS PARALOOKS) (MACROS \WORDSETA) (MACROS
ONOFF) (MACROS GETCLOOKS SETCLOOKS FGETCLOOKS FSETCLOOKS CHARLOOKS!) (MACROS GETPLOOKS SETPLOOKS
FGETPLOOKS FSETPLOOKS PARALOOKS!))) (INITRECORDS CHARLOOKS PARALOOKS PENDINGTAB) (FNS
\TEDIT.CHARLOOKS.DEFPRINT \TEDIT.PARALOOKS.DEFPRINT) (COMS (* ;;
"Added by yabu.fx, for SUNLOADUP without DWIM. Not sure any of these are needed/used.") (FNS
\TEDIT.CREATE.FACE.MENU \TEDIT.CREATE.SIZE.MENU)) (INITVARS (TEDIT.DEFAULT.FOLIO) (TEDIT.KNOWN.FONTS (
QUOTE ((Classic (QUOTE CLASSIC)) (Modern (QUOTE MODERN)) (Terminal (QUOTE TERMINAL)) (Titan (QUOTE
TITAN)) (Gacha (QUOTE GACHA)) (Helvetica (QUOTE HELVETICA)) (Times% Roman (QUOTE TIMESROMAN))))) (
TEDIT.DEFAULT.TAB 36) (TEDIT.DEFAULT.PARALOOKS (BQUOTE (QUAD LEFT LEFTMARGIN 0 1STLEFTMARGIN 0
RIGHTMARGIN 0 PARALEADING 0 POSTPARALEADING 0 DEFAULTTAB 36))) (TEDIT.DEFAULT.FMTSPEC
TEDIT.DEFAULT.PARALOOKS)) (VARS TEDIT.CHARLOOKS.FEATURES (TEDIT.FACE.MENU (\TEDIT.CREATE.FACE.MENU)) (
TEDIT.SIZE.MENU (\TEDIT.CREATE.SIZE.MENU))) (FNS \TEDIT.CHARLOOKS.FEATURE.CHECK) (GLOBALVARS
TEDIT.CHARLOOKS.FEATURES TEDIT.KNOWN.FONTS TEDIT.FACE.MENU TEDIT.SIZE.MENU) (ADDVARS (FONTVARS (
TEDIT.PROMPT.FONT DEFAULTFONT) (TEDIT.ICON.FONT MENUFONT))) (COMS (* ; "Character looks functions") (
FNS \TEDIT.CHARLOOKS.FROM.FONT \TEDIT.EQCLOOKS \TEDIT.SAMECLOOKS TEDIT.CARETLOOKS TEDIT.COPY.LOOKS
\TEDIT.UNPARSE.CHARLOOKS.LIST \TEDIT.MODIFYLOOKS TEDIT.NEW.FONT \TEDIT.CARETLOOKS.VERIFY
\TEDIT.CARETPIECE \TEDIT.GET.INSERT.CHARLOOKS \TEDIT.GET.TERMSA.WIDTHS \TEDIT.PARSE.CHARLOOKS.LIST) (
COMS (FNS \TEDIT.MCCS.TRANSLATE \TEDIT.CONVERT.TO.FORMATTED) (MACROS \TEDIT.MCCS.TRANSLATE.CHARLOOKS))
(FNS \TEDIT.UNIQUIFY.CHARLOOKS \TEDIT.UNIQUIFY.PARALOOKS \TEDIT.UNIQUIFY.ALL
\TEDIT.FLUSH.UNUSED.LOOKS) (* ;; "Public entries") (FNS TEDIT.LOOKS TEDIT.GET.LOOKS TEDIT.SUBLOOKS
TEDIT.FINDLOOKS) (FNS \TEDIT.CHANGE.CHARLOOKS \TEDIT.CHANGE.CHARLOOKS.NEW \TEDIT.CHARLOOKS.CHANGE.FONT
\TEDIT.FONT.NEXTSIZE \TEDIT.LOOKS \TEDIT.FONTCOPY \TEDIT.COERCE.FONTCLASS \TEDIT.FONTCLASS.TO.FONT))
(COMS (* ; "Paragraph looks functions") (FNS \TEDIT.EQFMTSPEC TEDIT.GET.PARALOOKS
\TEDIT.PARSE.PARALOOKS.LIST TEDIT.PARALOOKS \TEDIT.CHANGE.PARALOOKS \TEDIT.CHANGE.PARALOOKS.NEW
TEDIT.COPY.PARALOOKS \TEDIT.PARABOUNDS) (* ;; "For making paragraph-looks substitutions.") (FNS
TEDIT.SUBPARALOOKS SAMEPARALOOKS)) (FNS \TEDIT.MARK.REVISION) (* ; "Revision-mark support") (DECLARE%:
DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA)))))
(/DECLAREDATATYPE (QUOTE CHARLOOKS) (QUOTE (POINTER POINTER POINTER FLAG FLAG FLAG FLAG FLAG POINTER
FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER POINTER POINTER POINTER FLAG FLAG POINTER)) (QUOTE ((
CHARLOOKS 0 POINTER) (CHARLOOKS 2 POINTER) (CHARLOOKS 4 POINTER) (CHARLOOKS 4 (FLAGBITS . 0)) (
CHARLOOKS 4 (FLAGBITS . 16)) (CHARLOOKS 4 (FLAGBITS . 32)) (CHARLOOKS 4 (FLAGBITS . 48)) (CHARLOOKS 2
(FLAGBITS . 0)) (CHARLOOKS 6 POINTER) (CHARLOOKS 6 (FLAGBITS . 0)) (CHARLOOKS 6 (FLAGBITS . 16)) (
CHARLOOKS 6 (FLAGBITS . 32)) (CHARLOOKS 6 (FLAGBITS . 48)) (CHARLOOKS 2 (FLAGBITS . 16)) (CHARLOOKS 2
(FLAGBITS . 32)) (CHARLOOKS 2 (FLAGBITS . 48)) (CHARLOOKS 8 POINTER) (CHARLOOKS 10 POINTER) (CHARLOOKS
12 POINTER) (CHARLOOKS 14 POINTER) (CHARLOOKS 14 (FLAGBITS . 0)) (CHARLOOKS 14 (FLAGBITS . 16)) (
CHARLOOKS 16 POINTER))) (QUOTE 18))
(DEFPRINT (QUOTE CHARLOOKS) (FUNCTION \TEDIT.CHARLOOKS.DEFPRINT))
(/DECLAREDATATYPE (QUOTE PARALOOKS) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER
POINTER POINTER POINTER POINTER POINTER POINTER POINTER FLAG POINTER POINTER POINTER POINTER POINTER
POINTER POINTER FLAG FLAG POINTER POINTER POINTER POINTER)) (QUOTE ((PARALOOKS 0 POINTER) (PARALOOKS 2
POINTER) (PARALOOKS 4 POINTER) (PARALOOKS 6 POINTER) (PARALOOKS 8 POINTER) (PARALOOKS 10 POINTER) (
PARALOOKS 12 POINTER) (PARALOOKS 14 POINTER) (PARALOOKS 16 POINTER) (PARALOOKS 18 POINTER) (PARALOOKS
20 POINTER) (PARALOOKS 22 POINTER) (PARALOOKS 24 POINTER) (PARALOOKS 26 POINTER) (PARALOOKS 26 (
FLAGBITS . 0)) (PARALOOKS 28 POINTER) (PARALOOKS 30 POINTER) (PARALOOKS 32 POINTER) (PARALOOKS 34
POINTER) (PARALOOKS 36 POINTER) (PARALOOKS 38 POINTER) (PARALOOKS 40 POINTER) (PARALOOKS 40 (FLAGBITS
. 0)) (PARALOOKS 40 (FLAGBITS . 16)) (PARALOOKS 42 POINTER) (PARALOOKS 44 POINTER) (PARALOOKS 46
POINTER) (PARALOOKS 48 POINTER))) (QUOTE 50))
(DEFPRINT (QUOTE PARALOOKS) (FUNCTION \TEDIT.PARALOOKS.DEFPRINT))
(/DECLAREDATATYPE (QUOTE PENDINGTAB) (QUOTE (POINTER POINTER POINTER POINTER FULLXPOINTER POINTER)) (
QUOTE ((PENDINGTAB 0 POINTER) (PENDINGTAB 2 POINTER) (PENDINGTAB 4 POINTER) (PENDINGTAB 6 POINTER) (
PENDINGTAB 8 FULLXPOINTER) (PENDINGTAB 10 POINTER))) (QUOTE 12))
(RPAQ? TEDIT.DEFAULT.FOLIO)
(RPAQ? TEDIT.KNOWN.FONTS (QUOTE ((Classic (QUOTE CLASSIC)) (Modern (QUOTE MODERN)) (Terminal (QUOTE
TERMINAL)) (Titan (QUOTE TITAN)) (Gacha (QUOTE GACHA)) (Helvetica (QUOTE HELVETICA)) (Times% Roman (
QUOTE TIMESROMAN)))))
(RPAQ? TEDIT.DEFAULT.TAB 36)
(RPAQ? TEDIT.DEFAULT.PARALOOKS (BQUOTE (QUAD LEFT LEFTMARGIN 0 1STLEFTMARGIN 0 RIGHTMARGIN 0
PARALEADING 0 POSTPARALEADING 0 DEFAULTTAB 36)))
(RPAQ? TEDIT.DEFAULT.FMTSPEC TEDIT.DEFAULT.PARALOOKS)
(RPAQQ TEDIT.CHARLOOKS.FEATURES (DEVICE FAMILY SIZE FACE ITALIC WEIGHT SLOPE BOLD EXPANSION FONT
INVERTED INVISIBLE OFFSET OFFSETINCREMENT OVERLINE PROTECTED SELECTPOINT SELAFTER SELBEFORE
SIZEINCREMENT SMALLCAPS STRIKEOUT STYLE SUBSCRIPT SUPERSCRIPT UNBREAKABLE UNDERLINE USERINFO
OFFSETTYPE COLOR))
(RPAQ TEDIT.FACE.MENU (\TEDIT.CREATE.FACE.MENU))
(RPAQ TEDIT.SIZE.MENU (\TEDIT.CREATE.SIZE.MENU))
(ADDTOVAR FONTVARS (TEDIT.PROMPT.FONT DEFAULTFONT) (TEDIT.ICON.FONT MENUFONT))
(PUTPROPS \TEDIT.MCCS.TRANSLATE.CHARLOOKS MACRO (OPENLAMBDA (TEXTOBJ CLOOKS CLFONT) (* ;;
"Macro because CLOOKSLIST is set. The alist avoids creating and then uniquifying each time we want to make the same translation."
) (OR (GETMULTI CLOOKSLIST CLOOKS) (PUTMULTI CLOOKSLIST CLOOKS (\TEDIT.UNIQUIFY.CHARLOOKS (create
CHARLOOKS using CLOOKS CLFONT _ (CAR (\COERCECHARSET (FONTPROP CLFONT (QUOTE SPEC)) 0 NIL (QUOTE
CHARCOERCIONS)))) TEXTOBJ)))))
NIL
Reference in New Issue View Git Blame Copy Permalink