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

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 7-Dec-2025 16:28:01" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;914
 186683 
+
(FILECREATED "31-Dec-2025 23:10:18" {WMEDLEY}<library>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}<library>TEDIT>TEDIT-SCREEN.;913)
+      :PREVIOUS-DATE " 7-Dec-2025 16:28:01" {WMEDLEY}<library>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