Fix GRAPHER so that when a DISPLAYLINKFN is specified but the specifed function is not defined, it uses the default DRAWLINK function instead and promptprints a notice.

* Remove stale files, add README, correct XCCS-164 JIS

* Remake UNICODE-FORMATS to be sure it reflects current files

---------

Co-authored-by: Matt Heffron <heffron@alumni.caltech.edu>

.gitignore

@@ -43,6 +43,9 @@ loadups/gitinfo
 *.sysout
 *.SYSOUT
 
+# GITFNS deleted subdirectory
+deleted/**
+
 #compiled code -- leave in for now
 
 # *.lcom

library/GRAPHER

@@ -1,21 +1,18 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "14-Mar-2021 20:40:30" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHER.;5
 214171 
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-      changes to%:  (VARS GRAPHERCOMS)
+
(FILECREATED "14-Apr-2026 22:19:19" {DSK}<home>frank>il>medley>library>GRAPHER.;3
 215302 
 
-      previous date%: "14-May-2018 10:24:38" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHER.;4)
+      :EDIT-BY "FGH"
 
+      :CHANGES-TO (FNS DISPLAYLINK/RL DISPLAYLINK/LR DISPLAYLINK/BT DISPLAYLINK/TB)
+
+      :PREVIOUS-DATE "14-Mar-2021 20:40:30" {DSK}<home>frank>il>medley>library>GRAPHER.;1)
 
-(* ; "
-Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
-")
 
 (PRETTYCOMPRINT GRAPHERCOMS)
 
 (RPAQQ GRAPHERCOMS

-       [(COMS                                                (* ; "Graph Editing")

+       [(COMS                                                (* ; "Graph Editing")

               (FNS ADD/AND/DISPLAY/LINK APPLYTOSELECTEDNODE CALL.MOVENODEFN CHANGE.NODEFONT.SIZE 
                    DEFAULT.ADDNODEFN DELETE/AND/DISPLAY/LINK DISPLAY/NAME DISPLAYGRAPH DISPLAYLINK 
                    DISPLAYLINK/BT DISPLAYLINK/LR DISPLAYLINK/RL DISPLAYLINK/TB DISPLAYNODE 
@@ -38,18 +35,18 @@ Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
                  (CL:WHEN (GETD 'MODERNWINDOW.SETUP)
                      (MODERNWINDOW.SETUP 'APPLYTOSELECTEDNODE))]
               
-              (* ;; "Support for EDITSUBGRAPH and EDITREGION")

+              (* ;; "Support for EDITSUBGRAPH and EDITREGION")

 
               (FNS EDITMOVEREGION EDITMOVESUBTREE NOT.TRACKCURSOR RECURSIVE.COLLECTDESCENDENTS 
                    MOVEDESCENDENTS COLLECT.CHILD.NODES CREATE.NEW.NODEPOSITION 
                    GETBOXPOSITION.FROMINITIALREGION COLLECTDESCENDENTS))
-        (COMS                                                (* ; 
-
                                                   "functions for finding larger and smaller fonts")

+        (COMS                                                (* ; 
+
                                                     "functions for finding larger and smaller fonts")

               (FNS NEXTSIZEFONT DECREASING.FONT.LIST SCALE.FONT)
               [DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (DECREASING.FONT.LIST (DECREASING.FONT.LIST]
               (GLOBALVARS DECREASING.FONT.LIST))
-                                                             (* ; 
-
                                                      "functions for LAYOUTGRAPH And LAYOUTLATTICE")

+                                                             (* ; 
+
                                                        "functions for LAYOUTGRAPH And LAYOUTLATTICE")

         (FNS BRH/LAYOUT BRH/LAYOUT/DAUGHTERS BRH/OFFSET BRHC/INTERTREE/SPACE BRHC/LAYOUT 
              BRHC/LAYOUT/DAUGHTERS BRHC/LAYOUT/TERMINAL BRHC/OFFSET BRHL/LAYOUT BRHL/LAYOUT/DAUGHTERS
              BRHL/MOVE/RIGHT BROWSE/LAYOUT/HORIZ BROWSE/LAYOUT/HORIZ/COMPACTLY BROWSE/LAYOUT/LATTICE
@@ -95,7 +92,7 @@ Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
         (LOCALVARS . T)
         (RECORDS GRAPHNODE GRAPH)
         (DECLARE%: DONTCOPY (MACROS HALF))
-        (COMS                                                (* ; "Grapher image objects")

+        (COMS                                                (* ; "Grapher image objects")

               (FNS GRAPHERIMAGEFNS)
               (FNS GRAPHERCOPYBUTTONEVENTFN GRAPHOBJ.FINDGRAPH)
               (FNS ALIGNMENTNODE GRAPHOBJ.CHECKALIGN)
@@ -303,96 +300,112 @@ Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
                 NIL])
 
 (DISPLAYLINK/BT

-  [LAMBDA (TRANS GNB GNT WIDTH OPERATION STREAM PARAMS)

+  [LAMBDA (TRANS GNB GNT WIDTH OPERATION STREAM PARAMS)
      (* ; "Edited 14-Apr-2026 22:08 by FGH")


                                                           (* ; "Edited 29-Apr-94 13:59 by sybalsky")

 
-         (* draws a line from the bottom edge of GNB to the top edge of GNT translated 
-
       by TRANS)

+         (* draws a line from the bottom edge of GNB to the top edge of GNT translated by 
+
         TRANS)

 
-    (APPLY* (OR (LISTGET PARAMS 'DRAWLINKFN)
-                'DRAWLINE)
-           (IPLUS (fetch
 XCOORD of
 TRANS)
-                  (fetch
 XCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNB)))
-           (IPLUS (fetch
 YCOORD of
 TRANS)
-                  (SUB1 (GN/BOTTOM
 GNB)))
-           (IPLUS (fetch
 XCOORD of
 TRANS)
-                  (fetch
 XCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNT)))
-           (IPLUS (fetch
 YCOORD of
 TRANS)
-                  (ADD1 (GN/TOP
 GNT)))
-           (OR (LISTGET PARAMS 'LINEWIDTH)
-               WIDTH 1)
-           OPERATION STREAM (LISTGET PARAMS 'COLOR)
-           (LISTGET PARAMS 'DASHING)
-           PARAMS])
+    (LET* [(FN (LISTGET PARAMS 'DRAWLINKFN))
+           (DFN (AND FN (GETD FN]
+          (if
 (AND FN (NOT DFN))
+              then
 (PROMPTPRINT (CONCAT "DISPLAYLINK: DRAWLINKFN " FN " NOT FOUND")))
+          (APPLY* (OR (AND DFN FN)
+                      'DRAWLINE)
+                 (IPLUS (fetch
 XCOORD of
 TRANS)
+                        (fetch
 XCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNB)))
+                 (IPLUS (fetch
 YCOORD of
 TRANS)
+                        (SUB1 (GN/BOTTOM
 GNB)))
+                 (IPLUS (fetch
 XCOORD of
 TRANS)
+                        (fetch
 XCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNT)))
+                 (IPLUS (fetch
 YCOORD of
 TRANS)
+                        (ADD1 (GN/TOP
 GNT)))
+                 (OR (LISTGET PARAMS 'LINEWIDTH)
+                     WIDTH 1)
+                 OPERATION STREAM (LISTGET PARAMS 'COLOR)
+                 (LISTGET PARAMS 'DASHING)
+                 PARAMS])
 
 (DISPLAYLINK/LR

-  [LAMBDA (TRANS GNL GNR WIDTH OPERATION STREAM PARAMS)

+  [LAMBDA (TRANS GNL GNR WIDTH OPERATION STREAM PARAMS)
      (* ; "Edited 14-Apr-2026 22:09 by FGH")


                                                           (* ; "Edited 29-Apr-94 13:59 by sybalsky")

 
-         (* draws a line from the left edge of GNL to the right edge of GNR, translated 
-
       by TRANS)

+         (* draws a line from the left edge of GNL to the right edge of GNR, translated by 
+
         TRANS)

 
-    (APPLY* (OR (LISTGET PARAMS 'DRAWLINKFN)
-                'DRAWLINE)
-           (IPLUS (fetch
 XCOORD of
 TRANS)
-                  (SUB1 (GN/LEFT
 GNL)))
-           (IPLUS (fetch
 YCOORD of
 TRANS)
-                  (fetch
 YCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNL)))
-           (IPLUS (fetch
 XCOORD of
 TRANS)
-                  (ADD1 (GN/RIGHT
 GNR)))
-           (IPLUS (fetch
 YCOORD of
 TRANS)
-                  (fetch
 YCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNR)))
-           (OR (LISTGET PARAMS 'LINEWIDTH)
-               WIDTH 1)
-           OPERATION STREAM (LISTGET PARAMS 'COLOR)
-           (LISTGET PARAMS 'DASHING)
-           PARAMS])
+    (LET* [(FN (LISTGET PARAMS 'DRAWLINKFN))
+           (DFN (AND FN (GETD FN]
+          (if
 (AND FN (NOT DFN))
+              then
 (PROMPTPRINT (CONCAT "DISPLAYLINK: DRAWLINKFN " FN " NOT FOUND")))
+          (APPLY* (OR (AND DFN FN)
+                      'DRAWLINE)
+                 (IPLUS (fetch
 XCOORD of
 TRANS)
+                        (SUB1 (GN/LEFT
 GNL)))
+                 (IPLUS (fetch
 YCOORD of
 TRANS)
+                        (fetch
 YCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNL)))
+                 (IPLUS (fetch
 XCOORD of
 TRANS)
+                        (ADD1 (GN/RIGHT
 GNR)))
+                 (IPLUS (fetch
 YCOORD of
 TRANS)
+                        (fetch
 YCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNR)))
+                 (OR (LISTGET PARAMS 'LINEWIDTH)
+                     WIDTH 1)
+                 OPERATION STREAM (LISTGET PARAMS 'COLOR)
+                 (LISTGET PARAMS 'DASHING)
+                 PARAMS])
 
 (DISPLAYLINK/RL

-  [LAMBDA (TRANS GNR GNL WIDTH OPERATION STREAM PARAMS)

+  [LAMBDA (TRANS GNR GNL WIDTH OPERATION STREAM PARAMS)
      (* ; "Edited 14-Apr-2026 22:09 by FGH")


                                                           (* ; "Edited 29-Apr-94 13:59 by sybalsky")

 
-         (* draws a line from the right edge of GNR, to the left edge of GNL translated 
-
       by TRANS)

+         (* draws a line from the right edge of GNR, to the left edge of GNL translated by 
+
         TRANS)

 
-    (APPLY* (OR (LISTGET PARAMS 'DRAWLINKFN)
-                'DRAWLINE)
-           (IPLUS (fetch
 XCOORD of
 TRANS)
-                  (ADD1 (GN/RIGHT
 GNR)))
-           (IPLUS (fetch
 YCOORD of
 TRANS)
-                  (fetch
 YCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNR)))
-           (IPLUS (fetch
 XCOORD of
 TRANS)
-                  (SUB1 (GN/LEFT
 GNL)))
-           (IPLUS (fetch
 YCOORD of
 TRANS)
-                  (fetch
 YCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNL)))
-           (OR (LISTGET PARAMS 'LINEWIDTH)
-               WIDTH 1)
-           OPERATION STREAM (LISTGET PARAMS 'COLOR)
-           (LISTGET PARAMS 'DASHING)
-           PARAMS])
+    (LET* [(FN (LISTGET PARAMS 'DRAWLINKFN))
+           (DFN (AND FN (GETD FN]
+          (if
 (AND FN (NOT DFN))
+              then
 (PROMPTPRINT (CONCAT "DISPLAYLINK: DRAWLINKFN " FN " NOT FOUND")))
+          (APPLY* (OR (AND DFN FN)
+                      'DRAWLINE)
+                 (IPLUS (fetch
 XCOORD of
 TRANS)
+                        (ADD1 (GN/RIGHT
 GNR)))
+                 (IPLUS (fetch
 YCOORD of
 TRANS)
+                        (fetch
 YCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNR)))
+                 (IPLUS (fetch
 XCOORD of
 TRANS)
+                        (SUB1 (GN/LEFT
 GNL)))
+                 (IPLUS (fetch
 YCOORD of
 TRANS)
+                        (fetch
 YCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNL)))
+                 (OR (LISTGET PARAMS 'LINEWIDTH)
+                     WIDTH 1)
+                 OPERATION STREAM (LISTGET PARAMS 'COLOR)
+                 (LISTGET PARAMS 'DASHING)
+                 PARAMS])
 
 (DISPLAYLINK/TB

-  [LAMBDA (TRANS GNT GNB WIDTH OPERATION STREAM PARAMS)

+  [LAMBDA (TRANS GNT GNB WIDTH OPERATION STREAM PARAMS)
      (* ; "Edited 14-Apr-2026 22:09 by FGH")


                                                           (* ; "Edited 29-Apr-94 13:59 by sybalsky")

 
-         (* draws a line from the top edge of GNT to the bottom edge of GNR, translated 
-
       by TRANS)

+         (* draws a line from the top edge of GNT to the bottom edge of GNR, translated by 
+
         TRANS)

 
-    (APPLY* (OR (LISTGET PARAMS 'DRAWLINKFN)
-                'DRAWLINE)
-           (IPLUS (fetch
 XCOORD of
 TRANS)
-                  (fetch
 XCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNT)))
-           (IPLUS (fetch
 YCOORD of
 TRANS)
-                  (ADD1 (GN/TOP
 GNT)))
-           (IPLUS (fetch
 XCOORD of
 TRANS)
-                  (fetch
 XCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNB)))
-           (IPLUS (fetch
 YCOORD of
 TRANS)
-                  (SUB1 (GN/BOTTOM
 GNB)))
-           (OR (LISTGET PARAMS 'LINEWIDTH)
-               WIDTH 1)
-           OPERATION STREAM (LISTGET PARAMS 'COLOR)
-           (LISTGET PARAMS 'DASHING)
-           PARAMS])
+    (LET* [(FN (LISTGET PARAMS 'DRAWLINKFN))
+           (DFN (AND FN (GETD FN]
+          (if
 (AND FN (NOT DFN))
+              then
 (PROMPTPRINT (CONCAT "DISPLAYLINK: DRAWLINKFN " FN " NOT FOUND")))
+          (APPLY* (OR (AND DFN FN)
+                      'DRAWLINE)
+                 (IPLUS (fetch
 XCOORD of
 TRANS)
+                        (fetch
 XCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNT)))
+                 (IPLUS (fetch
 YCOORD of
 TRANS)
+                        (ADD1 (GN/TOP
 GNT)))
+                 (IPLUS (fetch
 XCOORD of
 TRANS)
+                        (fetch
 XCOORD of
 (fetch
 (GRAPHNODE NODEPOSITION) of
 GNB)))
+                 (IPLUS (fetch
 YCOORD of
 TRANS)
+                        (SUB1 (GN/BOTTOM
 GNB)))
+                 (OR (LISTGET PARAMS 'LINEWIDTH)
+                     WIDTH 1)
+                 OPERATION STREAM (LISTGET PARAMS 'COLOR)
+                 (LISTGET PARAMS 'DASHING)
+                 PARAMS])
 
 (DISPLAYNODE

   [LAMBDA (NODE TRANS STREAM G TOSONLY)
                  (* kvl "10-Aug-84 19:08")

@@ -2014,7 +2027,7 @@ Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
                                                                                 of
 N])
 )
 
-                                                             (* Was MODERNIZE loaded before?)

+                                                             (* Was MODERNIZE loaded before?)

 
 (CL:WHEN (GETD 'MODERNWINDOW.SETUP)
     (MODERNWINDOW.SETUP 'APPLYTOSELECTEDNODE))
@@ -3075,7 +3088,7 @@ Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
 (RPAQQ GRAPH/HARDCOPY/FORMAT
 (MODE PORTRAIT PAGENUMBERS T TRANS NIL))
 
 (RPAQ? DEFAULT.GRAPH.WINDOWSIZE
 (LIST (TIMES SCREENWIDTH 0.7)
-                                          (TIMES SCREENHEIGHT 0.4)))
+                                      (TIMES SCREENHEIGHT 0.4)))
 
 (RPAQ? EDITGRAPHMENUCOMMANDS

        '((Move% Node 'MOVENODE "Moves a single node in the graph." (SUBITEMS (|Move Single Node|
@@ -3113,19 +3126,19 @@ Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE
 
 (RECORD GRAPHNODE
 (NODEID NODEPOSITION NODELABELBITMAP NIL NODELABELSHADE NODEWIDTH NODEHEIGHT 
-                             TONODES FROMNODES NODEFONT NODELABEL NODEBORDER)
-                      NODEBORDER _ DEFAULT.GRAPH.NODEBORDER NODELABELSHADE _ 
-                      DEFAULT.GRAPH.NODELABELSHADE NODEFONT _ DEFAULT.GRAPH.NODEFONT)
+                         TONODES FROMNODES NODEFONT NODELABEL NODEBORDER)
+                  NODEBORDER _ DEFAULT.GRAPH.NODEBORDER NODELABELSHADE _ DEFAULT.GRAPH.NODELABELSHADE
+                  NODEFONT _ DEFAULT.GRAPH.NODEFONT)
 
-(RECORD GRAPH
 (GRAPHNODES SIDESFLG DIRECTEDFLG GRAPH.MOVENODEFN GRAPH.ADDNODEFN 
-                         GRAPH.DELETENODEFN GRAPH.ADDLINKFN GRAPH.DELETELINKFN GRAPH.FONTCHANGEFN 
-                         GRAPH.INVERTBORDERFN GRAPH.INVERTLABELFN GRAPH.CHANGELABELFN . GRAPH.PROPS))
+(RECORD GRAPH
 (GRAPHNODES SIDESFLG DIRECTEDFLG GRAPH.MOVENODEFN GRAPH.ADDNODEFN GRAPH.DELETENODEFN 
+                     GRAPH.ADDLINKFN GRAPH.DELETELINKFN GRAPH.FONTCHANGEFN GRAPH.INVERTBORDERFN 
+                     GRAPH.INVERTLABELFN GRAPH.CHANGELABELFN . GRAPH.PROPS))
 )
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS HALF
 MACRO
 ((X)
-                              (LRSH X 1)))
+                      (LRSH X 1)))
 )
 )
 
@@ -3789,61 +3802,59 @@ Copyright (c) 1983-1994, 2018, 2021 by Venue & Xerox Corporation.
 )
 
 (ADDTOVAR IMAGEOBJGETFNS
 (GRAPHOBJ.GETFN))
-(PUTPROPS GRAPHER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991 
-1992 1993 1994 2018 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (7195 111244 (ADD/AND/DISPLAY/LINK 7205 . 7907) (APPLYTOSELECTEDNODE 7909 . 8397) (
-CALL.MOVENODEFN 8399 . 8748) (CHANGE.NODEFONT.SIZE 8750 . 10062) (DEFAULT.ADDNODEFN 10064 . 10862) (
-DELETE/AND/DISPLAY/LINK 10864 . 12431) (DISPLAY/NAME 12433 . 12604) (DISPLAYGRAPH 12606 . 14977) (
-DISPLAYLINK 14979 . 17532) (DISPLAYLINK/BT 17534 . 18556) (DISPLAYLINK/LR 18558 . 19581) (
-DISPLAYLINK/RL 19583 . 20606) (DISPLAYLINK/TB 20608 . 21631) (DISPLAYNODE 21633 . 21981) (
-ERASE/GRAPHNODE 21983 . 23090) (DISPLAYNODE 23092 . 23440) (DISPLAYNODELINKS 23442 . 24586) (
-DRAW/GRAPHNODE/BORDER 24588 . 25507) (DRAWAREABOX 25509 . 26710) (EDITADDLINK 26712 . 27110) (
-EDITADDNODE 27112 . 29201) (EDITAPPLYTOLINK 29203 . 31282) (EDITCHANGEFONT 31284 . 32456) (
-EDITCHANGELABEL 32458 . 33999) (EDITDELETELINK 34001 . 34407) (EDITDELETENODE 34409 . 37110) (
-EDITGRAPH 37112 . 37179) (EDITGRAPH1 37181 . 37939) (EDITGRAPH2 37941 . 39672) (EDITMOVENODE 39674 . 
-41251) (EDITTOGGLEBORDER 41253 . 42549) (EDITTOGGLELABEL 42551 . 43848) (FILL/GRAPHNODE/LABEL 43850 . 
-44678) (FIX/SCALE 44680 . 45236) (FLIPNODE 45238 . 45842) (FONTNAMELIST 45844 . 46063) (FROMLINKS 
-46065 . 46235) (GETNODEFROMID 46237 . 47256) (GN/BOTTOM 47258 . 47534) (GN/LEFT 47536 . 47809) (
-GN/RIGHT 47811 . 48202) (GN/TOP 48204 . 48628) (GRAPHADDLINK 48630 . 49189) (GRAPHADDNODE 49191 . 
-49980) (GRAPHBUTTONEVENTFN 49982 . 52162) (GRAPHCHANGELABEL 52164 . 52607) (GRAPHDELETELINK 52609 . 
-53917) (GRAPHDELETENODE 53919 . 54451) (GRAPHEDITCOMMANDFN 54453 . 55837) (GRAPHEDITEVENTFN 55839 . 
-56550) (GRAPHER/CENTERPRINTINAREA 56552 . 57316) (GRAPHERPROP 57318 . 57862) (GRAPHNODE/BORDER/WIDTH 
-57864 . 58385) (GRAPHREGION 58387 . 59556) (HARDCOPYGRAPH 59558 . 66940) (INTERSECT/REGIONP/LBWH 66942
- . 68218) (INVERTED/GRAPHNODE/BORDER 68220 . 68804) (INVERTED/SHADE/FOR/GRAPHER 68806 . 69438) (
-LAYOUT/POSITION 69440 . 69619) (LINKPARAMETERS 69621 . 70073) (MAX/RIGHT 70075 . 70277) (MAX/TOP 70279
- . 70477) (MEASUREGRAPHNODE 70479 . 70928) (MEMBTONODES 70930 . 71455) (MIN/BOTTOM 71457 . 71838) (
-MIN/LEFT 71840 . 72215) (MOVENODE 72217 . 73460) (NODECREATE 73462 . 74242) (NODELST/AS/MENU 74244 . 
-75844) (NODEREGION 75846 . 76306) (PRINTDISPLAYNODE 76308 . 81366) (PROMPTINWINDOW 81368 . 84177) (
-READ/NODE 84179 . 85293) (REDISPLAYGRAPH 85295 . 85737) (REMOVETONODES 85739 . 86260) (
-RESET/NODE/BORDER 86262 . 88049) (RESET/NODE/LABELSHADE 88051 . 89566) (SCALE/GRAPH 89568 . 95854) (
-SCALE/GRAPHNODE/BORDER 95856 . 96551) (SCALE/TONODES 96553 . 97434) (SET/LABEL/SIZE 97436 . 100382) (
-SET/LAYOUT/POSITION 100384 . 100869) (SHOWGRAPH 100871 . 102670) (SIZE/GRAPH/WINDOW 102672 . 106156) (
-TOGGLE/DIRECTEDFLG 106158 . 106788) (TOGGLE/SIDESFLG 106790 . 107278) (TOLINKS 107280 . 107446) (
-TRACKCURSOR 107448 . 108855) (TRACKNODE 108857 . 109493) (TRANSGRAPH 109495 . 111242)) (111485 128102 
-(EDITMOVEREGION 111495 . 115298) (EDITMOVESUBTREE 115300 . 117077) (NOT.TRACKCURSOR 117079 . 120057) (
-RECURSIVE.COLLECTDESCENDENTS 120059 . 121547) (MOVEDESCENDENTS 121549 . 123611) (COLLECT.CHILD.NODES 
-123613 . 124729) (CREATE.NEW.NODEPOSITION 124731 . 125271) (GETBOXPOSITION.FROMINITIALREGION 125273 . 
-126745) (COLLECTDESCENDENTS 126747 . 128100)) (128166 130455 (NEXTSIZEFONT 128176 . 129366) (
-DECREASING.FONT.LIST 129368 . 129694) (SCALE.FONT 129696 . 130453)) (130679 169831 (BRH/LAYOUT 130689
- . 132433) (BRH/LAYOUT/DAUGHTERS 132435 . 133381) (BRH/OFFSET 133383 . 134061) (BRHC/INTERTREE/SPACE 
-134063 . 135381) (BRHC/LAYOUT 135383 . 137239) (BRHC/LAYOUT/DAUGHTERS 137241 . 140195) (
-BRHC/LAYOUT/TERMINAL 140197 . 140878) (BRHC/OFFSET 140880 . 141776) (BRHL/LAYOUT 141778 . 144002) (
-BRHL/LAYOUT/DAUGHTERS 144004 . 145762) (BRHL/MOVE/RIGHT 145764 . 146907) (BROWSE/LAYOUT/HORIZ 146909
- . 147633) (BROWSE/LAYOUT/HORIZ/COMPACTLY 147635 . 150441) (BROWSE/LAYOUT/LATTICE 150443 . 151299) (
-BRV/OFFSET 151301 . 152164) (EXTEND/TRANSITION/CHAIN 152166 . 153437) (FOREST/BREAK/CYCLES 153439 . 
-154369) (INIT/NODES/FOR/LAYOUT 154371 . 155866) (INTERPRET/MARK/FORMAT 155868 . 157135) (
-LATTICE/BREAK/CYCLES 157137 . 157841) (LAYOUTFOREST 157843 . 158544) (LAYOUTGRAPH 158546 . 162013) (
-LAYOUTLATTICE 162015 . 163468) (LAYOUTSEXPR 163470 . 164541) (LAYOUTSEXPR1 164543 . 165245) (
-MARK/GRAPH/NODE 165247 . 165977) (NEW/INSTANCE/OF/GRAPHNODE 165979 . 167348) (RAISE/TRANSITION/CHAIN 
-167350 . 167751) (REFLECT/GRAPH/DIAGONALLY 167753 . 168482) (REFLECT/GRAPH/HORIZONTALLY 168484 . 
-169010) (REFLECT/GRAPH/VERTICALLY 169012 . 169536) (SWITCH/NODE/HEIGHT/WIDTH 169538 . 169829)) (173177
- 174528 (GRAPHERIMAGEFNS 173187 . 174526)) (174529 176257 (GRAPHERCOPYBUTTONEVENTFN 174539 . 175518) (
-GRAPHOBJ.FINDGRAPH 175520 . 176255)) (176258 178878 (ALIGNMENTNODE 176268 . 177690) (
-GRAPHOBJ.CHECKALIGN 177692 . 178876)) (178879 194729 (GRAPHEROBJ 178889 . 180635) (
-GRAPHOBJ.BUTTONEVENTINFN 180637 . 182064) (GRAPHOBJ.COPYBUTTONEVENTFN 182066 . 182503) (
-GRAPHOBJ.COPYFN 182505 . 183429) (GRAPHOBJ.DISPLAYFN 183431 . 186246) (GRAPHOBJ.GETALIGN 186248 . 
-186987) (GRAPHOBJ.GETFN 186989 . 188494) (GRAPHOBJ.IMAGEBOXFN 188496 . 192512) (GRAPHOBJ.PUTALIGN 
-192514 . 193344) (GRAPHOBJ.PUTFN 193346 . 194727)) (194730 213882 (COPYGRAPH 194740 . 196288) (
-DUMPGRAPH 196290 . 206546) (READGRAPH 206548 . 213880)))))
+  (FILEMAP (NIL (7149 112538 (ADD/AND/DISPLAY/LINK 7159 . 7861) (APPLYTOSELECTEDNODE 7863 . 8351) (
+CALL.MOVENODEFN 8353 . 8702) (CHANGE.NODEFONT.SIZE 8704 . 10016) (DEFAULT.ADDNODEFN 10018 . 10816) (
+DELETE/AND/DISPLAY/LINK 10818 . 12385) (DISPLAY/NAME 12387 . 12558) (DISPLAYGRAPH 12560 . 14931) (
+DISPLAYLINK 14933 . 17486) (DISPLAYLINK/BT 17488 . 18845) (DISPLAYLINK/LR 18847 . 20205) (
+DISPLAYLINK/RL 20207 . 21565) (DISPLAYLINK/TB 21567 . 22925) (DISPLAYNODE 22927 . 23275) (
+ERASE/GRAPHNODE 23277 . 24384) (DISPLAYNODE 24386 . 24734) (DISPLAYNODELINKS 24736 . 25880) (
+DRAW/GRAPHNODE/BORDER 25882 . 26801) (DRAWAREABOX 26803 . 28004) (EDITADDLINK 28006 . 28404) (
+EDITADDNODE 28406 . 30495) (EDITAPPLYTOLINK 30497 . 32576) (EDITCHANGEFONT 32578 . 33750) (
+EDITCHANGELABEL 33752 . 35293) (EDITDELETELINK 35295 . 35701) (EDITDELETENODE 35703 . 38404) (
+EDITGRAPH 38406 . 38473) (EDITGRAPH1 38475 . 39233) (EDITGRAPH2 39235 . 40966) (EDITMOVENODE 40968 . 
+42545) (EDITTOGGLEBORDER 42547 . 43843) (EDITTOGGLELABEL 43845 . 45142) (FILL/GRAPHNODE/LABEL 45144 . 
+45972) (FIX/SCALE 45974 . 46530) (FLIPNODE 46532 . 47136) (FONTNAMELIST 47138 . 47357) (FROMLINKS 
+47359 . 47529) (GETNODEFROMID 47531 . 48550) (GN/BOTTOM 48552 . 48828) (GN/LEFT 48830 . 49103) (
+GN/RIGHT 49105 . 49496) (GN/TOP 49498 . 49922) (GRAPHADDLINK 49924 . 50483) (GRAPHADDNODE 50485 . 
+51274) (GRAPHBUTTONEVENTFN 51276 . 53456) (GRAPHCHANGELABEL 53458 . 53901) (GRAPHDELETELINK 53903 . 
+55211) (GRAPHDELETENODE 55213 . 55745) (GRAPHEDITCOMMANDFN 55747 . 57131) (GRAPHEDITEVENTFN 57133 . 
+57844) (GRAPHER/CENTERPRINTINAREA 57846 . 58610) (GRAPHERPROP 58612 . 59156) (GRAPHNODE/BORDER/WIDTH 
+59158 . 59679) (GRAPHREGION 59681 . 60850) (HARDCOPYGRAPH 60852 . 68234) (INTERSECT/REGIONP/LBWH 68236
+ . 69512) (INVERTED/GRAPHNODE/BORDER 69514 . 70098) (INVERTED/SHADE/FOR/GRAPHER 70100 . 70732) (
+LAYOUT/POSITION 70734 . 70913) (LINKPARAMETERS 70915 . 71367) (MAX/RIGHT 71369 . 71571) (MAX/TOP 71573
+ . 71771) (MEASUREGRAPHNODE 71773 . 72222) (MEMBTONODES 72224 . 72749) (MIN/BOTTOM 72751 . 73132) (
+MIN/LEFT 73134 . 73509) (MOVENODE 73511 . 74754) (NODECREATE 74756 . 75536) (NODELST/AS/MENU 75538 . 
+77138) (NODEREGION 77140 . 77600) (PRINTDISPLAYNODE 77602 . 82660) (PROMPTINWINDOW 82662 . 85471) (
+READ/NODE 85473 . 86587) (REDISPLAYGRAPH 86589 . 87031) (REMOVETONODES 87033 . 87554) (
+RESET/NODE/BORDER 87556 . 89343) (RESET/NODE/LABELSHADE 89345 . 90860) (SCALE/GRAPH 90862 . 97148) (
+SCALE/GRAPHNODE/BORDER 97150 . 97845) (SCALE/TONODES 97847 . 98728) (SET/LABEL/SIZE 98730 . 101676) (
+SET/LAYOUT/POSITION 101678 . 102163) (SHOWGRAPH 102165 . 103964) (SIZE/GRAPH/WINDOW 103966 . 107450) (
+TOGGLE/DIRECTEDFLG 107452 . 108082) (TOGGLE/SIDESFLG 108084 . 108572) (TOLINKS 108574 . 108740) (
+TRACKCURSOR 108742 . 110149) (TRACKNODE 110151 . 110787) (TRANSGRAPH 110789 . 112536)) (112779 129396 
+(EDITMOVEREGION 112789 . 116592) (EDITMOVESUBTREE 116594 . 118371) (NOT.TRACKCURSOR 118373 . 121351) (
+RECURSIVE.COLLECTDESCENDENTS 121353 . 122841) (MOVEDESCENDENTS 122843 . 124905) (COLLECT.CHILD.NODES 
+124907 . 126023) (CREATE.NEW.NODEPOSITION 126025 . 126565) (GETBOXPOSITION.FROMINITIALREGION 126567 . 
+128039) (COLLECTDESCENDENTS 128041 . 129394)) (129460 131749 (NEXTSIZEFONT 129470 . 130660) (
+DECREASING.FONT.LIST 130662 . 130988) (SCALE.FONT 130990 . 131747)) (131973 171125 (BRH/LAYOUT 131983
+ . 133727) (BRH/LAYOUT/DAUGHTERS 133729 . 134675) (BRH/OFFSET 134677 . 135355) (BRHC/INTERTREE/SPACE 
+135357 . 136675) (BRHC/LAYOUT 136677 . 138533) (BRHC/LAYOUT/DAUGHTERS 138535 . 141489) (
+BRHC/LAYOUT/TERMINAL 141491 . 142172) (BRHC/OFFSET 142174 . 143070) (BRHL/LAYOUT 143072 . 145296) (
+BRHL/LAYOUT/DAUGHTERS 145298 . 147056) (BRHL/MOVE/RIGHT 147058 . 148201) (BROWSE/LAYOUT/HORIZ 148203
+ . 148927) (BROWSE/LAYOUT/HORIZ/COMPACTLY 148929 . 151735) (BROWSE/LAYOUT/LATTICE 151737 . 152593) (
+BRV/OFFSET 152595 . 153458) (EXTEND/TRANSITION/CHAIN 153460 . 154731) (FOREST/BREAK/CYCLES 154733 . 
+155663) (INIT/NODES/FOR/LAYOUT 155665 . 157160) (INTERPRET/MARK/FORMAT 157162 . 158429) (
+LATTICE/BREAK/CYCLES 158431 . 159135) (LAYOUTFOREST 159137 . 159838) (LAYOUTGRAPH 159840 . 163307) (
+LAYOUTLATTICE 163309 . 164762) (LAYOUTSEXPR 164764 . 165835) (LAYOUTSEXPR1 165837 . 166539) (
+MARK/GRAPH/NODE 166541 . 167271) (NEW/INSTANCE/OF/GRAPHNODE 167273 . 168642) (RAISE/TRANSITION/CHAIN 
+168644 . 169045) (REFLECT/GRAPH/DIAGONALLY 169047 . 169776) (REFLECT/GRAPH/HORIZONTALLY 169778 . 
+170304) (REFLECT/GRAPH/VERTICALLY 170306 . 170830) (SWITCH/NODE/HEIGHT/WIDTH 170832 . 171123)) (174438
+ 175789 (GRAPHERIMAGEFNS 174448 . 175787)) (175790 177518 (GRAPHERCOPYBUTTONEVENTFN 175800 . 176779) (
+GRAPHOBJ.FINDGRAPH 176781 . 177516)) (177519 180139 (ALIGNMENTNODE 177529 . 178951) (
+GRAPHOBJ.CHECKALIGN 178953 . 180137)) (180140 195990 (GRAPHEROBJ 180150 . 181896) (
+GRAPHOBJ.BUTTONEVENTINFN 181898 . 183325) (GRAPHOBJ.COPYBUTTONEVENTFN 183327 . 183764) (
+GRAPHOBJ.COPYFN 183766 . 184690) (GRAPHOBJ.DISPLAYFN 184692 . 187507) (GRAPHOBJ.GETALIGN 187509 . 
+188248) (GRAPHOBJ.GETFN 188250 . 189755) (GRAPHOBJ.IMAGEBOXFN 189757 . 193773) (GRAPHOBJ.PUTALIGN 
+193775 . 194605) (GRAPHOBJ.PUTFN 194607 . 195988)) (195991 215143 (COPYGRAPH 196001 . 197549) (
+DUMPGRAPH 197551 . 207807) (READGRAPH 207809 . 215141)))))
 STOP

library/UNICODE-TABLES

@@ -1,15 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT UTF-8)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
 
-
(FILECREATED "22-Feb-2026 10:44:33" {WMEDLEY}<library>UNICODE-TABLES.;20
 44960  
+
(FILECREATED "31-Mar-2026 09:01:05" {WMEDLEY}<library>UNICODE-TABLES.;22
 44782  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS ALL-UNICODE-MAPPINGS GET-MCCS-UNICODE-MAPPING INVERT-UNICODE-MAPPING 
-                       MAKE-UNICODE-TRANSLATION-TABLES MERGE-UNICODE-TRANSLATION-TABLES 
-                       READ-UNICODE-MAPPING-FILENAMES)
-                  (VARS UNICODE-TABLESCOMS)
+      :CHANGES-TO (VARS XCCS-CHARSETS)
 
-      :PREVIOUS-DATE "22-Feb-2026 09:15:20" {WMEDLEY}<library>UNICODE-TABLES.;16)
+      :PREVIOUS-DATE "22-Feb-2026 10:44:33" {WMEDLEY}<library>UNICODE-TABLES.;20)
 
 
 (PRETTYCOMPRINT UNICODE-TABLESCOMS)
@@ -78,8 +75,9 @@
         (RUNIC-GOTHIC "51")
         (MORE-CYRILLIC "52")
         (UNKNOWN1 "56")
+        (DECORATED-RULES "56")
         (UNKNOWN2 "57")
-        (JIS "60-166")
+        (VERTICAL-JAPANESE "57")
         (ARABIC "340")
         (HEBREW "341")
         (IPA "342")
@@ -101,9 +99,10 @@
         (ACCENTED-GREEK2 "364")
         (MORE-ARABIC "365")
         (GRAPHIC-VARIANTS "375")
+        (JAPANESE HIRAGANA KATAKANA JIS)
         (DEFAULT LATIN ACCENTED-LATIN1 EXTENDED-LATIN SYMBOLS1 SYMBOLS2 FORMS JAPANESE-SYMBOLS1 
                JAPANESE-SYMBOLS2)
-        (JAPANESE HIRAGANA KATAKANA JIS)))
+        (JIS "60-166")))
 (DEFINEQ
 
 (READ-UNICODE-MAPPING-FILENAMES

@@ -793,12 +792,12 @@
        UNICODE-EXPORTS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4107 12829 (READ-UNICODE-MAPPING-FILENAMES 4117 . 8586) (READ-UNICODE-MAPPING 8588 . 
-12827)) (12896 19704 (MAKE-UNICODE-TRANSLATION-TABLES 12906 . 15666) (GET-MCCS-UNICODE-MAPPING 15668
- . 16688) (INVERT-UNICODE-MAPPING 16690 . 18483) (XCCSTOMCCS-MAPPING 18485 . 19702)) (19705 26328 (
-ALL-UNICODE-MAPPINGS 19715 . 24991) (XCCSJAPANESECHARSETS 24993 . 26326)) (26373 37135 (
-WRITE-UNICODE-MAPPING 26383 . 30127) (WRITE-UNICODE-INCLUDED 30129 . 34441) (
-WRITE-UNICODE-MAPPING-HEADER 34443 . 35691) (WRITE-UNICODE-MAPPING-FILENAME 35693 . 37133)) (37136 
-37812 (XCCS-UTF8-AFTER-OPEN 37146 . 37810)) (40337 42426 (UTF8HEXSTRING 40347 . 42424)) (42453 44495 (
-SHOWCHARS 42463 . 44493)))))
+  (FILEMAP (NIL (3929 12651 (READ-UNICODE-MAPPING-FILENAMES 3939 . 8408) (READ-UNICODE-MAPPING 8410 . 
+12649)) (12718 19526 (MAKE-UNICODE-TRANSLATION-TABLES 12728 . 15488) (GET-MCCS-UNICODE-MAPPING 15490
+ . 16510) (INVERT-UNICODE-MAPPING 16512 . 18305) (XCCSTOMCCS-MAPPING 18307 . 19524)) (19527 26150 (
+ALL-UNICODE-MAPPINGS 19537 . 24813) (XCCSJAPANESECHARSETS 24815 . 26148)) (26195 36957 (
+WRITE-UNICODE-MAPPING 26205 . 29949) (WRITE-UNICODE-INCLUDED 29951 . 34263) (
+WRITE-UNICODE-MAPPING-HEADER 34265 . 35513) (WRITE-UNICODE-MAPPING-FILENAME 35515 . 36955)) (36958 
+37634 (XCCS-UTF8-AFTER-OPEN 36968 . 37632)) (40159 42248 (UTF8HEXSTRING 40169 . 42246)) (42275 44317 (
+SHOWCHARS 42285 . 44315)))))
 STOP

lispusers/EDITFONT

@@ -1,13 +1,13 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "12-Oct-2025 17:39:29" {WMEDLEY}<lispusers>EDITFONT.;41
 26261  
+
(FILECREATED "16-Mar-2026 23:19:02" {WMEDLEY}<lispusers>EDITFONT.;42
 26474  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (RECORDS CHARITEM)
-                  (FNS EF.SAVE)
+      :CHANGES-TO (FNS EDITFONT)
+                  (RECORDS CHARITEM)
 
-      :PREVIOUS-DATE " 7-Oct-2025 14:56:00" {WMEDLEY}<lispusers>EDITFONT.;40)
+      :PREVIOUS-DATE "12-Oct-2025 17:39:29" {WMEDLEY}<lispusers>EDITFONT.;41)
 
 
 (PRETTYCOMPRINT EDITFONTCOMS)
@@ -429,7 +429,8 @@
           (RETURN FONT])
 
 (EDITFONT

-  [LAMBDA (FONT CHARSET ROWMAJOR NCOLUMNS TITLETAG)
          (* ; "Edited  7-Oct-2025 14:55 by rmk")


+  [LAMBDA (FONT CHARSET ROWMAJOR NCOLUMNS TITLETAG)
          (* ; "Edited 16-Mar-2026 23:17 by rmk")


+                                                             (* ; "Edited  7-Oct-2025 14:55 by rmk")


                                                              (* ; "Edited  5-Oct-2025 15:06 by rmk")


                                                              (* ; "Edited  4-Sep-2025 09:27 by rmk")


                                                              (* ; "Edited 29-Aug-2025 22:34 by rmk")


@@ -440,6 +441,8 @@
                                                              (* kbr%: "21-Oct-85 15:35")

                                                              (* kbr%: "21-Oct-85 15:35")

     (SETQ FONT (FONTCREATE FONT))
+    (CL:UNLESS (EQ 'DISPLAY (FONTPROP FONT 'DEVICE))
+           (ERROR FONT " is not a display font"))
     (SETQ CHARSET (OR (CHARSET.DECODE CHARSET)
                       0))
     (LET (CHARITEMS MENU TITLE HEIGHT WIDTH REGION POS WINDOW)
@@ -494,10 +497,10 @@
 
 (EF.INIT
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1146 16903 (EF.INIT 1156 . 1790) (EF.PROMPT 1792 . 2374) (EF.MESSAGE 2376 . 2588) (
-EF.CLOSEFN 2590 . 3117) (EF.CHARITEMS 3119 . 4955) (EF.BUTTONEVENTFN 4957 . 5369) (EF.WHENSELECTEDFN 
-5371 . 5775) (EF.EDITBM 5777 . 7271) (EF.MIDDLEBUTTONFN 7273 . 7518) (EF.CHANGESIZE 7520 . 8849) (
-EF.DELETE 8851 . 10032) (EF.ENTER 10034 . 10975) (EF.REPLACE 10977 . 11950) (EF.SAVE 11952 . 16195) (
-COPYFONT 16197 . 16472) (READSTRIKEFONTFILE 16474 . 16901)) (16904 26073 (BLANKCHARSETCREATE 16914 . 
-22999) (EDITFONT 23001 . 26071)))))
+  (FILEMAP (NIL (1147 16904 (EF.INIT 1157 . 1791) (EF.PROMPT 1793 . 2375) (EF.MESSAGE 2377 . 2589) (
+EF.CLOSEFN 2591 . 3118) (EF.CHARITEMS 3120 . 4956) (EF.BUTTONEVENTFN 4958 . 5370) (EF.WHENSELECTEDFN 
+5372 . 5776) (EF.EDITBM 5778 . 7272) (EF.MIDDLEBUTTONFN 7274 . 7519) (EF.CHANGESIZE 7521 . 8850) (
+EF.DELETE 8852 . 10033) (EF.ENTER 10035 . 10976) (EF.REPLACE 10978 . 11951) (EF.SAVE 11953 . 16196) (
+COPYFONT 16198 . 16473) (READSTRIKEFONTFILE 16475 . 16902)) (16905 26286 (BLANKCHARSETCREATE 16915 . 
+23000) (EDITFONT 23002 . 26284)))))
 STOP

sources/UNICODE-FORMATS

@@ -1,13 +1,10 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT UTF-8)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
 
-
(FILECREATED "23-Feb-2026 12:15:24" {WMEDLEY}<sources>UNICODE-FORMATS.;2
 216288 
+
(FILECREATED "31-Mar-2026 09:03:25" {WMEDLEY}<sources>UNICODE-FORMATS.;4
 218013 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS UNICODE-FORMATSCOMS)
-                  (FNS MAKE-UNICODE-FORMATS)
-
-      :PREVIOUS-DATE "23-Feb-2026 08:52:29" {WMEDLEY}<sources>UNICODE-UTF8.;26)
+      :PREVIOUS-DATE " 9-Mar-2026 13:11:16" {WMEDLEY}<sources>UNICODE-FORMATS.;3)
 
 
 (PRETTYCOMPRINT UNICODE-FORMATSCOMS)
@@ -47,6 +44,9 @@
                                                       (LAST-PRIVATE-MCCSCODE (CHARCODE "230,377"]
               (FNS UNICODE-INIT)
               (P (UNICODE-INIT)))
+        (COMS (FNS SYSTEM-EXTERNALFORMAT MTOSYSSTRING SYSTOMSTRING)
+              (EXPORT (GLOBALVARS *SYSTEM-EXTERNALFORMAT*))
+              (INITVARS (*SYSTEM-EXTERNALFORMAT* :UTF-8)))
         (DECLARE%: EVAL@LOAD DONTCOPY (FILES UNICODE-TABLES))
         (E (PRINTOUT NIL "(MERGE-UNICODE-TRANSLATION-TABLES NIL (QUOTE " (GET-MCCS-UNICODE-MAPPING
                                                                           'ALL)
@@ -1243,6 +1243,41 @@
 )
 
 (UNICODE-INIT
)
+(DEFINEQ
+
+(SYSTEM-EXTERNALFORMAT

+  [LAMBDA NIL
                                                (* ; "Edited  6-Feb-2026 11:29 by rmk")


+                                                             (* ; "Edited 31-Jan-2026 18:51 by rmk")


+                                                             (* ; "Edited 10-Oct-2022 11:55 by lmm")


+                                                             (* ; "Edited  7-Jul-2022 10:41 by rmk")

+
+    (* ;; "Returns the name, sets the global.  For now, UTF-8 or through, could be something else.")

+
+    (fetch
 (EXTERNALFORMAT NAME) of
 (SETQ *SYSTEM-EXTERNALFORMAT*
+                                     (FIND-FORMAT (FOR
 X IN
 '("LC_CTYPE" "LC_ALL" "LANG")
+                                                     WHEN
 (STRPOS ".UTF-8" (UNIX-GETENV X))
+                                                     DO
 (RETURN :UTF-8) FINALLY
 (RETURN :THROUGH])
+
+(MTOSYSSTRING

+  [LAMBDA (MSTRING)
                                          (* ; "Edited  6-Feb-2026 00:20 by rmk")

+    (MCCSTOFORMATBYTES *SYSTEM-EXTERNALFORMAT* (MKSTRING MSTRING])
+
+(SYSTOMSTRING

+  [LAMBDA (SYSTRING)
                                         (* ; "Edited  5-Feb-2026 23:36 by rmk")

+
+    (* ;; "SYSSTRING is presumably shared with Unix, guarantee a copy on the way out")

+
+    (CONCAT (FORMATBYTESTOMCCS *SYSTEM-EXTERNALFORMAT* SYSTRING])
+)
+(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: DOEVAL@COMPILE DONTCOPY
+
+(GLOBALVARS *SYSTEM-EXTERNALFORMAT*)
+)
+
+(* "END EXPORTED DEFINITIONS")
+
+
+(RPAQ? *SYSTEM-EXTERNALFORMAT*
 :UTF-8)
 (DECLARE%: EVAL@LOAD DONTCOPY 
 
 (FILESLOAD UNICODE-TABLES)
@@ -2721,19 +2756,20 @@
  (64994 8322) (64995 8323) (64996 8324) (64997 8325) (64998 8326) (64999 8327) (65000 8328) (65001 
 8329) (65002 8331) (65003 8330) (65004 8332) (65008 (48 824)))))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3333 19425 (UTF8.OUTCHARFN 3343 . 6359) (UTF8.SLUG.OUTCHARFN 6361 . 7025) (
-UTF8.INCCODEFN 7027 . 13306) (UTF8.PEEKCCODEFN 13308 . 18441) (\UTF8.BACKCCODEFN 18443 . 19423)) (
-19426 24341 (UTF16BE.OUTCHARFN 19436 . 20455) (UTF16BE.INCCODEFN 20457 . 21799) (UTF16BE.PEEKCCODEFN 
-21801 . 23145) (\UTF16BE.BACKCCODEFN 23147 . 24339)) (24342 29073 (UTF16LE.OUTCHARFN 24352 . 25468) (
-UTF16LE.INCCODEFN 25470 . 26599) (UTF16LE.PEEKCCODEFN 26601 . 27877) (\UTF16LE.BACKCCODEFN 27879 . 
-29071)) (29074 32121 (READBOM 29084 . 31153) (WRITEBOM 31155 . 32119)) (32122 36153 (
-MAKE-UNICODE-FORMATS 32132 . 36151)) (36221 40715 (UTF8.BINCODE 36231 . 38919) (\UTF8.FETCHCODE 38921
- . 40713)) (40716 46339 (UTF8.VALIDATE 40726 . 43323) (NUTF8-BYTE1-BYTES 43325 . 44062) (
-NUTF8-CODE-BYTES 44064 . 45121) (NUTF8-STRING-BYTES 45123 . 46015) (N-MCHARS 46017 . 46337)) (46403 
-47677 (MTOUCODE 46413 . 46582) (UTOMCODE 46584 . 46781) (MTOUCODE? 46783 . 47162) (UTOMCODE? 47164 . 
-47675)) (47678 54250 (MTOUSTRING 47688 . 48271) (UTOMSTRING 48273 . 48856) (MTOUTF8STRING 48858 . 
-53137) (UTF8TOMSTRING 53139 . 54248)) (54308 60016 (XTOUCODE 54318 . 54836) (UTOXCODE 54838 . 55346) (
-XTOUCODE? 55348 . 56409) (UTOXCODE? 56411 . 57494) (XTOUSTRING 57496 . 58191) (UTOXSTRING 58193 . 
-58936) (XTOUTF8STRING 58938 . 60014)) (60017 65196 (MERGE-UNICODE-TRANSLATION-TABLES 60027 . 62789) (
-UNICODE.UNMAPPED 62791 . 65194)) (68935 69188 (UNICODE-INIT 68945 . 69186)))))
+  (FILEMAP (NIL (3431 19523 (UTF8.OUTCHARFN 3441 . 6457) (UTF8.SLUG.OUTCHARFN 6459 . 7123) (
+UTF8.INCCODEFN 7125 . 13404) (UTF8.PEEKCCODEFN 13406 . 18539) (\UTF8.BACKCCODEFN 18541 . 19521)) (
+19524 24439 (UTF16BE.OUTCHARFN 19534 . 20553) (UTF16BE.INCCODEFN 20555 . 21897) (UTF16BE.PEEKCCODEFN 
+21899 . 23243) (\UTF16BE.BACKCCODEFN 23245 . 24437)) (24440 29171 (UTF16LE.OUTCHARFN 24450 . 25566) (
+UTF16LE.INCCODEFN 25568 . 26697) (UTF16LE.PEEKCCODEFN 26699 . 27975) (\UTF16LE.BACKCCODEFN 27977 . 
+29169)) (29172 32219 (READBOM 29182 . 31251) (WRITEBOM 31253 . 32217)) (32220 36251 (
+MAKE-UNICODE-FORMATS 32230 . 36249)) (36319 40813 (UTF8.BINCODE 36329 . 39017) (\UTF8.FETCHCODE 39019
+ . 40811)) (40814 46437 (UTF8.VALIDATE 40824 . 43421) (NUTF8-BYTE1-BYTES 43423 . 44160) (
+NUTF8-CODE-BYTES 44162 . 45219) (NUTF8-STRING-BYTES 45221 . 46113) (N-MCHARS 46115 . 46435)) (46501 
+47775 (MTOUCODE 46511 . 46680) (UTOMCODE 46682 . 46879) (MTOUCODE? 46881 . 47260) (UTOMCODE? 47262 . 
+47773)) (47776 54348 (MTOUSTRING 47786 . 48369) (UTOMSTRING 48371 . 48954) (MTOUTF8STRING 48956 . 
+53235) (UTF8TOMSTRING 53237 . 54346)) (54406 60114 (XTOUCODE 54416 . 54934) (UTOXCODE 54936 . 55444) (
+XTOUCODE? 55446 . 56507) (UTOXCODE? 56509 . 57592) (XTOUSTRING 57594 . 58289) (UTOXSTRING 58291 . 
+59034) (XTOUTF8STRING 59036 . 60112)) (60115 65294 (MERGE-UNICODE-TRANSLATION-TABLES 60125 . 62887) (
+UNICODE.UNMAPPED 62889 . 65292)) (69033 69286 (UNICODE-INIT 69043 . 69284)) (69307 70745 (
+SYSTEM-EXTERNALFORMAT 69317 . 70261) (MTOSYSSTRING 70263 . 70456) (SYSTOMSTRING 70458 . 70743)))))
 STOP

unicode/xerox/jis/XCCS-164=JIS.TXT

@@ -42,195 +42,7 @@
 #  Any comments or problems, contact <ron.kaplan@post.harvard.edu>
 
 
-#  "165" JIS
-0x7521	0x5B57	#  字
-0x7522	0x600E	#  怎
-0x7523	0x5FEB	#  快
-0x7524	0x5E2B	#  師
-0x7525	0x8655	#  處
-0x7526	0x76F8	#  相
-0x7527	0x6D3B	#  活
-0x7528	0x89AA	#  親
-0x7529	0x6D77	#  海
-0x752A	0x96FB	#  電
-0x752B	0x6BCD	#  母
-0x752C	0x679C	#  果
-0x752D	0x7ACB	#  立
-0x752E	0x539F	#  原
-0x752F	0x5408	#  合
-0x7530	0x66F8	#  書
-0x7531	0x5165	#  入
-0x7532	0x4E26	#  並
-0x7533	0x5E73	#  平
-0x7534	0x696D	#  業
-0x7535	0x5831	#  報
-0x7536	0x8EAB	#  身
-0x7537	0x5E02	#  市
-0x7538	0x88AB	#  被
-0x7539	0x8A31	#  許
-0x753A	0x8ACB	#  請
-0x753B	0x5C11	#  少
-0x753C	0x9593	#  間
-0x753D	0x9AD4	#  體
-0x753E	0x4F4F	#  住
-0x753F	0x8ECA	#  車
-0x7540	0x8ECD	#  軍
-0x7541	0x908A	#  邊
-0x7542	0x91CD	#  重
-0x7543	0x52A0	#  加
-0x7544	0x5716	#  圖
-0x7545	0x6216	#  或
-0x7546	0x6B21	#  次
-0x7547	0x6BCF	#  每
-0x7548	0x7E3D	#  總
-0x7549	0x706B	#  火
-0x754A	0x6587	#  文
-0x754B	0x5B69	#  孩
-0x754C	0x4E16	#  世
-0x754D	0x5B89	#  安
-0x754E	0x653E	#  放
-0x754F	0x6A5F	#  機
-0x7550	0x5167	#  內
-0x7551	0x95DC	#  關
-0x7552	0x5229	#  利
-0x7553	0x50CF	#  像
-0x7554	0x7406	#  理
-0x7555	0x6BD4	#  比
-0x7556	0x611B	#  愛
-0x7557	0x738B	#  王
-0x7558	0x5225	#  別
-0x7559	0x592B	#  夫
-0x755A	0x8207	#  與
-0x755B	0x5149	#  光
-0x755C	0x82B1	#  花
-0x755D	0x83EF	#  華
-0x755E	0x8AB2	#  課
-0x755F	0x80B2	#  育
-0x7560	0x6545	#  故
-0x7561	0x5FC5	#  必
-0x7562	0x689D	#  條
-0x7563	0x5ABD	#  媽
-0x7564	0x5F1F	#  弟
-0x7565	0x7236	#  父
-0x7566	0x901A	#  通
-0x7567	0x8868	#  表
-0x7568	0x91D1	#  金
-0x7569	0x5BEB	#  寫
-0x756A	0x5DF1	#  己
-0x756B	0x624D	#  才
-0x756C	0x6CB3	#  河
-0x756D	0x7701	#  省
-0x756E	0x53F0	#  台
-0x756F	0x6C42	#  求
-0x7570	0x6536	#  收
-0x7571	0x842C	#  萬
-0x7572	0x4E14	#  且
-0x7573	0x4F55	#  何
-0x7574	0x4EE3	#  代
-0x7575	0x5171	#  共
-0x7576	0x53D7	#  受
-0x7577	0x98A8	#  風
-0x7578	0x6C5F	#  江
-0x7579	0x62FF	#  拿
-0x757A	0x96E3	#  難
-0x757B	0x754C	#  界
-0x757C	0x4FE1	#  信
-0x757D	0x671B	#  望
-0x757E	0x7A7A	#  空
-0x75A1	0x6B7B	#  死
-0x75A2	0x73ED	#  班
-0x75A3	0x99AC	#  馬
-0x75A4	0x671F	#  期
-0x75A5	0x975E	#  非
-0x75A6	0x6A39	#  樹
-0x75A7	0x53CA	#  及
-0x75A8	0x7D50	#  結
-0x75A9	0x865F	#  號
-0x75AA	0x5E36	#  帶
-0x75AB	0x5143	#  元
-0x75AC	0x4EA4	#  交
-0x75AD	0x8A72	#  該
-0x75AE	0x672A	#  未
-0x75AF	0x7FA9	#  義
-0x75B0	0x5E9C	#  府
-0x75B1	0x5B8C	#  完
-0x75B2	0x8AD6	#  論
-0x75B3	0x9322	#  錢
-0x75B4	0x98DB	#  飛
-0x75B5	0x547D	#  命
-0x75B6	0x5F35	#  張
-0x75B7	0x54E1	#  員
-0x75B8	0x6578	#  數
-0x75B9	0x6797	#  林
-0x75BA	0x63A5	#  接
-0x75BB	0x5C40	#  局
-0x75BC	0x53CB	#  友
-0x75BD	0x559C	#  喜
-0x75BE	0x6E05	#  清
-0x75BF	0x6D0B	#  洋
-0x75C0	0x6A02	#  樂
-0x75C1	0x5A5A	#  婚
-0x75C2	0x793E	#  社
-0x75C3	0x65E9	#  早
-0x75C4	0x5E03	#  布
-0x75C5	0x6975	#  極
-0x75C6	0x773C	#  眼
-0x75C7	0x55CE	#  嗎
-0x75C8	0x7522	#  產
-0x75C9	0x544A	#  告
-0x75CA	0x54E5	#  哥
-0x75CB	0x8208	#  興
-0x75CC	0x52DE	#  勞
-0x75CD	0x9435	#  鐵
-0x75CE	0x53D6	#  取
-0x75CF	0x7B97	#  算
-0x75D0	0x66F4	#  更
-0x75D1	0x5175	#  兵
-0x75D2	0x9020	#  造
-0x75D3	0x7B54	#  答
-0x75D4	0x627E	#  找
-0x75D5	0x7F77	#  罷
-0x75D6	0x5931	#  失
-0x75D7	0x904B	#  運
-0x75D8	0x5F62	#  形
-0x75D9	0x6613	#  易
-0x75DA	0x7FA3	#  羣
-0x75DB	0x5EA6	#  度
-0x75DC	0x534A	#  半
-0x75DD	0x8863	#  衣
-0x75DE	0x82E5	#  若
-0x75DF	0x81F3	#  至
-0x75E0	0x8B70	#  議
-0x75E1	0x8FD1	#  近
-0x75E2	0x7167	#  照
-0x75E3	0x8B8A	#  變
-0x75E4	0x59D0	#  姐
-0x75E5	0x670D	#  服
-0x75E6	0x5247	#  則
-0x75E7	0x985E	#  類
-0x75E8	0x82F1	#  英
-0x75E9	0x7403	#  球
-0x75EA	0x5343	#  千
-0x75EB	0x5F80	#  往
-0x75EC	0x8B1B	#  講
-0x75ED	0x8A08	#  計
-0x75EE	0x6230	#  戰
-0x75EF	0x6728	#  木
-0x75F0	0x7B11	#  笑
-0x75F1	0x529F	#  功
-0x75F2	0x8209	#  舉
-0x75F3	0x8DDF	#  跟
-0x75F4	0x795E	#  神
-0x75F5	0x6C7A	#  決
-0x75F6	0x6D41	#  流
-0x75F7	0x71B1	#  熱
-0x75F8	0x541B	#  君
-0x75F9	0x7A76	#  究
-0x75FA	0x7D04	#  約
-0x75FB	0x96BB	#  隻
-0x75FC	0x76F4	#  直
-0x75FD	0x53E4	#  古
-0x75FE	0x9EC3	#  黃
+#  "164" JIS
 0x742C	0x32E3	#  ㋣ CIRCLED KATAKANA TO
 0x742D	0x32E0	#  ㋠ CIRCLED KATAKANA TI
 0x742E	0x32F7	#  ㋷ CIRCLED KATAKANA RI