From 5b4ccbb4d81df43bbd1d8a5acfab990e4f462547 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Thu, 1 Jan 2026 18:06:38 -0800 Subject: [PATCH] LOAD character names as suggested in PR #2398 (Trivial change not relevant to hardcopy/printing, but including here to avoid merging problems) --- library/tedit/TEDIT-SCREEN | 50 ++++++++++++++++---------------- library/tedit/TEDIT-SCREEN.LCOM | Bin 33435 -> 33515 bytes 2 files changed, 25 insertions(+), 25 deletions(-) diff --git a/library/tedit/TEDIT-SCREEN b/library/tedit/TEDIT-SCREEN index cdc04516..c5d199f0 100644 --- a/library/tedit/TEDIT-SCREEN +++ b/library/tedit/TEDIT-SCREEN @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 7-Dec-2025 16:28:01" {WMEDLEY}TEDIT>TEDIT-SCREEN.;914 186683 +(FILECREATED "31-Dec-2025 23:10:18" {WMEDLEY}tedit>TEDIT-SCREEN.;915 186658 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.FORMATLINE.SETUP.PARA) + :CHANGES-TO (VARS TEDIT-SCREENCOMS) - :PREVIOUS-DATE "21-Nov-2025 16:36:15" {WMEDLEY}TEDIT>TEDIT-SCREEN.;913) + :PREVIOUS-DATE " 7-Dec-2025 16:28:01" {WMEDLEY}tedit>TEDIT-SCREEN.;914) (PRETTYCOMPRINT TEDIT-SCREENCOMS) @@ -22,7 +22,6 @@ LINEDESCRIPTOR!)) (MACROS HCSCALE HCUNSCALE SCALEUP SCALEDOWN) (GLOBALVARS TEDIT.DONT.BREAK.CHARS TEDIT.DONT.LAST.CHARS) - (ALISTS (CHARACTERNAMES SOFT-HYPHEN NONBREAKING-HYPHEN NONBREAKING-SPACE)) (MACROS DIACRITICP) (MACROS \TEDIT.LINE.TALLP) (COMS (* ; "Formatting slots held by THISLINE") @@ -36,6 +35,7 @@ (* ;; "incharslots can be used only if THISLINE is properly bound in the environment, to provide upperbound checking. Operand can be THISLINE (= FIRSTCHARSLOT) or a within-range slot pointer. The latter case is not current checked for validity (some \HILOC \LOLOC address calculations?). backcharslots runs backwards.") (I.S.OPRS incharslots backcharslots] + (ALISTS (CHARACTERNAMES SOFT-HYPHEN NONBREAKING-HYPHEN NONBREAKING-SPACE)) (FNS \TEDIT.LINEDESCRIPTOR.DEFPRINT) (INITRECORDS THISLINE LINEDESCRIPTOR LINECACHE) (DECLARE%: EVAL@COMPILE DONTCOPY (* ; "Not exported") @@ -298,10 +298,6 @@ (GLOBALVARS TEDIT.DONT.BREAK.CHARS TEDIT.DONT.LAST.CHARS) ) - -(ADDTOVAR CHARACTERNAMES (SOFT-HYPHEN "357,043") - (NONBREAKING-HYPHEN "357,042") - (NONBREAKING-SPACE "357,041")) (DECLARE%: EVAL@COMPILE (PUTPROPS DIACRITICP MACRO (OPENLAMBDA (CHAR) @@ -460,6 +456,10 @@ (* "END EXPORTED DEFINITIONS") ) + +(ADDTOVAR CHARACTERNAMES (SOFT-HYPHEN "357,043") + (NONBREAKING-HYPHEN "357,042") + (NONBREAKING-SPACE "357,041")) (DEFINEQ (\TEDIT.LINEDESCRIPTOR.DEFPRINT @@ -2863,21 +2863,21 @@ (\TEDIT.LINE.TALLP LINE PHEIGHT))))]) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (26225 28441 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26235 . 28439)) (35895 119527 ( -\TEDIT.FORMATLINE 35905 . 71011) (\TEDIT.FORMATLINE.SETUP.PARA 71013 . 76207) ( -\TEDIT.FORMATLINE.HORIZONTAL 76209 . 81026) (\TEDIT.FORMATLINE.VERTICAL 81028 . 83479) ( -\TEDIT.FORMATLINE.JUSTIFY 83481 . 89502) (\TEDIT.FORMATLINE.TABS 89504 . 97532) (\TEDIT.SCALE.TABS -97534 . 98325) (\TEDIT.FORMATLINE.PURGE.SPACES 98327 . 99754) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN -99756 . 100833) (\TEDIT.FORMATLINE.EMPTY 100835 . 105655) (\TEDIT.FORMATLINE.UPDATELOOKS 105657 . -111838) (\TEDIT.FORMATLINE.LASTLEGAL 111840 . 115290) (\TEDIT.LINES.ABOVE 115292 . 118903) ( -\TEDIT.CHNO.TO.YTOP 118905 . 119525)) (119804 140384 (\TEDIT.DISPLAYLINE 119814 . 132324) ( -\TEDIT.DISPLAYLINE.TABS 132326 . 135130) (\TEDIT.LINECACHE 135132 . 135860) (\TEDIT.CREATE.LINECACHE -135862 . 136698) (\TEDIT.BLTCHAR 136700 . 139327) (\TEDIT.DIACRITIC.SHIFT 139329 . 140382)) (140999 -186660 (\TEDIT.BACKFORMAT 141009 . 143563) (\TEDIT.PREVIOUS.LINEBREAK 143565 . 146368) ( -\TEDIT.UPDATE.LINES 146370 . 152676) (\TEDIT.PANE.CREATELINES 152678 . 154968) ( -\TEDIT.SUFFIXLINE.CREATE 154970 . 156585) (\TEDIT.LINES.BELOW 156587 . 161197) (\TEDIT.MEASURED.LINES -161199 . 163208) (\TEDIT.VALID.LASTCHNOS 163210 . 166986) (\TEDIT.VALID.NEXTCHNOS 166988 . 170462) ( -\TEDIT.LASTVALIDLINE 170464 . 175135) (\TEDIT.NEXTVALIDLINE 175137 . 178107) ( -\TEDIT.CLEARPANE.BELOW.LINE 178109 . 180215) (\TEDIT.INSERTLINE 180217 . 181603) (\TEDIT.LINE.BOTTOM -181605 . 184835) (\TEDIT.SHOW.AT.BOTTOMP 184837 . 185947) (\TEDIT.SHOW.AT.TOPP 185949 . 186658))))) + (FILEMAP (NIL (26200 28416 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26210 . 28414)) (35870 119502 ( +\TEDIT.FORMATLINE 35880 . 70986) (\TEDIT.FORMATLINE.SETUP.PARA 70988 . 76182) ( +\TEDIT.FORMATLINE.HORIZONTAL 76184 . 81001) (\TEDIT.FORMATLINE.VERTICAL 81003 . 83454) ( +\TEDIT.FORMATLINE.JUSTIFY 83456 . 89477) (\TEDIT.FORMATLINE.TABS 89479 . 97507) (\TEDIT.SCALE.TABS +97509 . 98300) (\TEDIT.FORMATLINE.PURGE.SPACES 98302 . 99729) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN +99731 . 100808) (\TEDIT.FORMATLINE.EMPTY 100810 . 105630) (\TEDIT.FORMATLINE.UPDATELOOKS 105632 . +111813) (\TEDIT.FORMATLINE.LASTLEGAL 111815 . 115265) (\TEDIT.LINES.ABOVE 115267 . 118878) ( +\TEDIT.CHNO.TO.YTOP 118880 . 119500)) (119779 140359 (\TEDIT.DISPLAYLINE 119789 . 132299) ( +\TEDIT.DISPLAYLINE.TABS 132301 . 135105) (\TEDIT.LINECACHE 135107 . 135835) (\TEDIT.CREATE.LINECACHE +135837 . 136673) (\TEDIT.BLTCHAR 136675 . 139302) (\TEDIT.DIACRITIC.SHIFT 139304 . 140357)) (140974 +186635 (\TEDIT.BACKFORMAT 140984 . 143538) (\TEDIT.PREVIOUS.LINEBREAK 143540 . 146343) ( +\TEDIT.UPDATE.LINES 146345 . 152651) (\TEDIT.PANE.CREATELINES 152653 . 154943) ( +\TEDIT.SUFFIXLINE.CREATE 154945 . 156560) (\TEDIT.LINES.BELOW 156562 . 161172) (\TEDIT.MEASURED.LINES +161174 . 163183) (\TEDIT.VALID.LASTCHNOS 163185 . 166961) (\TEDIT.VALID.NEXTCHNOS 166963 . 170437) ( +\TEDIT.LASTVALIDLINE 170439 . 175110) (\TEDIT.NEXTVALIDLINE 175112 . 178082) ( +\TEDIT.CLEARPANE.BELOW.LINE 178084 . 180190) (\TEDIT.INSERTLINE 180192 . 181578) (\TEDIT.LINE.BOTTOM +181580 . 184810) (\TEDIT.SHOW.AT.BOTTOMP 184812 . 185922) (\TEDIT.SHOW.AT.TOPP 185924 . 186633))))) STOP diff --git a/library/tedit/TEDIT-SCREEN.LCOM b/library/tedit/TEDIT-SCREEN.LCOM index fc170b8170150dc290d59fbe4bc332aa4eafb964..5181485e0f04e6c19aed9a1889d677d48154872c 100644 GIT binary patch delta 822 zcmZuvO>fgc5LI%3%IX0%X-ZU3wg!o~BF4^F6Bk9=*qg?xW4m6rQ6vuZOEjWtQIfVv z3Iq-n94T`|9Jz9!5=SI{0US9X1m_;%2Xqoz^+Ubvj{Roly?HzD_JW6d!8g@#N=+E6 z%Za3t%#dVCQx#3k?LWSKueG{TZxwuIn0|um9%HsVomVpw5yX^oTB78%Oj=9j_rFAX z8=I}Q`o<$t-ymXX-m=KqL|K+ava*P6FYSVnz>Tz;*7~QFGiD<6J7EEWJCk*5yBAGg!OwDS^ zoTjMoJ1{zS!f~D=eJ~tcell92y613Wn0TAMsk;)13-GNm4u_4|aUp(;>t*VZ{!tyA zx<%>qXMn(>31t+fDbHpbvpBQ_$~j$K4UW=(r0!Ck5|c)3-$W|=lK z7(R>X`i@7CY|9UEy1)jx#Bl!K0%W)S5OJApV7*U^D6C|2%zwXa!BThxUdTg8yBH3^ z*p3QIkr+%wL(tuk`snby+qcDXoLNo=z|XJ%zYrX1PhgqU&cefX45MCqW|TY__$wPG zcP(1$OGF~Kcpd(>bMTc$Fz?6Ko!~Tq^-dl?K6EDGdq;+kb5V$Nqo8yp{9EhF@VYyR z(I<@lbSHblabsR~sxtLu-*H_@!fm03;XC-U13RhiGtZ_K#z~wzB|lNFxn*YK8fB*L gD(RGnv!6BdJe<4;54`SgYUWD6Ton&uyHBqk0kEIvjQ{`u delta 711 zcmZuuJ#W)M7?#@s^(sC@oRA=-9xkGBrCj5r35kn}F7c%`acpBdjVd8QKOzwoQIwF+ zw(69D3Bo%v@e2yd!hovojLeLP0cN^#`4EakmwVsmx%cC_=YDmk-gl?omPC9nqLp_d zv1lxTm82R=snJ+(@6M9PG~HVro)I_eFlLgKw6ZK?B;mwFOG=GL)wt3-4M0Y`4j;+v zapeV;az(?ylZAv338USuSLI!N!Gz_gB%^RnHyGbV`C4A|zcNL_2c-hj47Pc6|9NG* zx>aqDG)^eJGM0*!R5F>0Lq)hXoikmaqL0f%cV(>F4%^VJq8ripDlEm6h`HbR=RrKF zDhW6f{5LK(A>RKj?7R$8Lw7wFhqLR{p;?bPCM_@*BZ$`Lz^?nF1)6m%7i&6?x~FGt z8HdN*SOu>kHE>+@E|q4c+!4XHVJ$-aHDzpLU3&s~s8A9Rj`W033Gw d@UBBRd)8SL$D`eKt3;?rJj=G_{{F$?rN1TA%9#KF