Merge branch 'master' into lmm-hcfiles-improvements

internal/MEDLEY-UTILS

@@ -1,16 +1,15 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "16-Apr-2026 22:42:51" {DSK}<home>matt>Interlisp>medley>internal>MEDLEY-UTILS.;2
 30564  
+
(FILECREATED " 8-May-2026 10:41:23" {DSK}<Users>larry>il>MEDLEY>INTERNAL>MEDLEY-UTILS.;2
 30963  
 
-      :EDIT-BY "mth"
+      :EDIT-BY "lmm"
 
-      :CHANGES-TO (FNS HCFILES MAKE-EXPORTS-ALL MAKE-INDEX-HTMLS)
-                  (FUNCTIONS REPORT-AND-GO)
-                  (VARS MEDLEY-UTILSCOMS HC-SKIP-EXTENSIONS)
-                  (ADVICE TEDIT.PROMPTPRINT)
+      :CHANGES-TO (ADVICE TEDIT.PROMPTPRINT)
+                  (FNS GATHER-INFO MAKE-FULLER-DB MEDLEY-FIX-LINKS MEDLEY-FIX-DATES MAKE-EXPORTS-ALL
+                       MAKE-WHEREIS-HASH MAKE-WHEREIS-LOOPS HCFILES MAKE-INDEX-HTMLS RECOMPILE-ONE 
+                       RECMPL COMPILE-SETUP REMAKEFILES)
 
-      :PREVIOUS-DATE "16-Apr-2026 22:27:40" {DSK}<home>matt>Interlisp>medley>internal>MEDLEY-UTILS.;1
-)
+      :PREVIOUS-DATE " 4-May-2026 19:19:00" {DSK}<Users>larry>il>MEDLEY>INTERNAL>MEDLEY-UTILS.;1)
 
 
 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@@ -215,7 +214,9 @@
 (DEFINEQ
 
 (HCFILES

-  [LAMBDA (BASE REDO SUBSETS)
                                (* ; "Edited 16-Apr-2026 22:42 by mth")


+  [LAMBDA (BASE REDO SUBSETS)
                                (* ; "Edited  8-May-2026 10:39 by lmm")


+                                                             (* ; "Edited  4-May-2026 19:18 by lmm")


+                                                             (* ; "Edited 16-Apr-2026 22:42 by mth")


                                                              (* ; "Edited 30-Jun-2024 08:27 by lmm")


                                                              (* ; "Edited 23-Apr-2024 23:15 by lmm")


                                                              (* ; "Edited 22-Apr-2024 13:22 by lmm")


@@ -293,12 +294,14 @@
                                  (if
 (EQ REDO 'TEST)
                                      then
 (CL:FORMAT T "Testing open ~a..." SRCPATH)
                                           (CLOSEF? (OPENTEXTSTREAM SRCPATH))
-                                   else
 (REPORT-AND-GO
 (CL:WITH-OPEN-STREAM (S (OPENTEXTSTREAM 
-                                                                                      SRCPATH))
-                                                              (TEDIT.FORMAT.HARDCOPY S DEST T NIL NIL
-                                                                     NIL 'PDF))
+                                   else
 
+                                        (* ;; "ADDED HERE")

+
+                                        (SETQ NLSETQGAG NIL)
+                                        (SETQ \TEDIT.THELPFLG T)
+                                        (REPORT-AND-GO
 (TEDIT.TO.IMAGEFILE SRCPATH DEST 'PDF)
                                                (CL:FORMAT NIL 
-                                               "~~%%~S TEDIT.FORMAT.HARDCOPY of ~A -- Condition: ~~A"
+                                                  "~~%%~S TEDIT.TO.IMAGEFILE of ~A -- Condition: ~~A"
                                                       'FAIL SRCPATH)))
                                  (PRIN3 " DONE" T)
                                  (TERPRI T)
@@ -519,12 +522,14 @@
                (TERPRI])
 )
 
-(DEFMACRO REPORT-AND-GO
 (FORM REPORT-FORMAT)
                 (* ; "Edited 16-Apr-2026 16:02 by mth")

+(DEFMACRO REPORT-AND-GO
 (FORM REPORT-FORMAT)
                 (* ; "Edited  4-May-2026 19:02 by lmm")


+                                                             (* ; "Edited 16-Apr-2026 16:02 by mth")

    `[CL:MULTIPLE-VALUE-BIND (FORM-RESULT ERROR-CONDITION)
            (IGNORE-ERRORS (CL:VALUES ,FORM))                 (* ; "Only the first value")

            (COND
-              (ERROR-CONDITION (PRIN3 (CL:FORMAT NIL ,REPORT-FORMAT ERROR-CONDITION)
-                                      T)
+              (ERROR-CONDITION (BAKTRACE 'BAKTRACE NIL NIL 1 T)
+                     (PRIN3 (CL:FORMAT NIL ,REPORT-FORMAT ERROR-CONDITION)
+                            T)
                      NIL)
               (T (LIST FORM-RESULT])
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
@@ -536,10 +541,10 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1289 8223 (GATHER-INFO 1299 . 6681) (MAKE-FULLER-DB 6683 . 7592) (MEDLEY-FIX-LINKS 7594
- . 7987) (MEDLEY-FIX-DATES 7989 . 8221)) (9795 12371 (MAKE-EXPORTS-ALL 9805 . 10652) (
-MAKE-WHEREIS-HASH 10654 . 11843) (MAKE-WHEREIS-LOOPS 11845 . 12369)) (12372 24990 (HCFILES 12382 . 
-19514) (MAKE-INDEX-HTMLS 19516 . 24988)) (25324 29936 (RECOMPILE-ONE 25334 . 27231) (RECMPL 27233 . 
-27836) (COMPILE-SETUP 27838 . 28462) (REMAKEFILES 28464 . 29934)) (29938 30408 (REPORT-AND-GO 29938 . 
-30408)))))
+  (FILEMAP (NIL (1365 8299 (GATHER-INFO 1375 . 6757) (MAKE-FULLER-DB 6759 . 7668) (MEDLEY-FIX-LINKS 7670
+ . 8063) (MEDLEY-FIX-DATES 8065 . 8297)) (9871 12447 (MAKE-EXPORTS-ALL 9881 . 10728) (
+MAKE-WHEREIS-HASH 10730 . 11919) (MAKE-WHEREIS-LOOPS 11921 . 12445)) (12448 25236 (HCFILES 12458 . 
+19760) (MAKE-INDEX-HTMLS 19762 . 25234)) (25570 30182 (RECOMPILE-ONE 25580 . 27477) (RECMPL 27479 . 
+28082) (COMPILE-SETUP 28084 . 28708) (REMAKEFILES 28710 . 30180)) (30184 30807 (REPORT-AND-GO 30184 . 
+30807)))))
 STOP

internal/TEDIT-DEBUG

@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "29-Apr-2026 09:51:30" {MEDLEY}<internal>TEDIT-DEBUG.;190
 139487 
+
(FILECREATED " 7-Feb-2026 17:00:39" {WMEDLEY}<internal>TEDIT-DEBUG.;178
 138742 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS INSPECTFILEPIECES)
+      :CHANGES-TO (FNS TEDIT-DEBUG)
 
-      :PREVIOUS-DATE "24-Apr-2026 17:08:51" {MEDLEY}<internal>TEDIT-DEBUG.;189)
+      :PREVIOUS-DATE " 7-Feb-2026 10:41:45" {WMEDLEY}<internal>TEDIT-DEBUG.;177)
 
 
 (PRETTYCOMPRINT TEDIT-DEBUGCOMS)
@@ -31,8 +31,7 @@
               (FNS TEST.TEMPLATE))
         (FNS TESTACTION)
         (COMS                                                (* ; "Inspect")

-              (FNS IPC ILINES ISEL ITS IPANES ITL IHIST IPCTB IMB ICL IPL ICARET INSPECTPIECES 
-                   INSPECTFILEPIECES))
+              (FNS IPC ILINES ISEL ITS IPANES ITL IHIST IPCTB IMB ICL IPL ICARET INSPECTPIECES))
         (COMS                                                (* ; "Show")

               (FNS SP SL SSP SPF SLF SHOWLINE SLL STBYTES SSEL)
               (FNS STL CLEARTHISLINE CHARSLOTP \TLVALIDATE))
@@ -59,7 +58,7 @@
         (VARS (OK.TO.MODIFY.FNS T))
         (FNS OLDWI COMP DFR)
         (FNS DFGV GDIRECTORIES)
-        (COMS (FNS TTEST LTEST)
+        (COMS (FNS TTEST LTEST THC)
               (INITVARS (LASTTTESTFILE))
               (VARS * TTESTREGIONS))
         (COMS (FNS SHOWSAFE)
@@ -447,16 +446,6 @@
          (SETQ W (INSPECT/TOP/LEVEL/LIST PIECES))
          (WINDOWPROP W 'TITLE PIECE)
          PIECE])
-
-(INSPECTFILEPIECES

-  [LAMBDA (FILEPOS N TSTREAM)
                                (* ; "Edited 29-Apr-2026 09:51 by rmk")


-                                                             (* ; "Edited 24-Apr-2026 17:07 by rmk")

-
-    (* ;; "Give a file position, inspect the piece that includes its characters, and following pieces. FILEBYTES/TFILEBYTES work in the other way:  given a piece, show the bytes that make it up.")

-
-    (for
 PC inpieces
 (\TEDIT.FIRSTPIECE (GTO
 TSTREAM)) when
 (<= FILEPOS (PFPOS PC))
-       do
 (for
 I from
 1 to
 (OR N 1) as
 PCI inpieces
 PC do
 (INSPECT PCI))
-          (RETURN])
 )
 
 
@@ -664,7 +653,7 @@
                 (PRINTOUT OFILE .FONT '(TERMINAL 8 BOLD)
                        TITLE .FONT '(TERMINAL 8)
                        T)
-                (for
 TYPE PF (FIRSTPF ← (TEDIT.GET.PAGEFORMAT PAGEREGIONS 'FIRST/DEFAULT))
+                (for
 TYPE PF (FIRSTPF _ (TEDIT.GET.PAGEFORMAT PAGEREGIONS 'FIRST/DEFAULT))
                    in
 '(FIRST/DEFAULT LEFT RIGHT)
                    collect
 (SETQ PF (TEDIT.GET.PAGEFORMAT PAGEREGIONS TYPE))
                          (PRINTOUT OFILE T .FONT '(TERMINAL 8 BOLD)
@@ -707,13 +696,13 @@
                (CL:UNLESS TRAILER
                    (PRINTOUT T FORMATSTREAM " is not a Tedit looks file" T)
                    (RETURN))
-               (for
 PCNO BYTELEN LTYPE LOOKSMAP PLOOKSMAP LASTCHARLOOKNO (PFPOS ← 0)
-                    (CHNO ← 0)
-                    (TEXTPCNO ← 0)
-                    (START ← (CAR TRAILER))
-                    (TYPETAB ← 13)
-                    (FPOSTAB ← 28)
-                    (BYTESTAB ← 38) from
 1 to
 PCCOUNT
+               (for
 PCNO BYTELEN LTYPE LOOKSMAP PLOOKSMAP LASTCHARLOOKNO (PFPOS _ 0)
+                    (CHNO _ 0)
+                    (TEXTPCNO _ 0)
+                    (START _ (CAR TRAILER))
+                    (TYPETAB _ 13)
+                    (FPOSTAB _ 28)
+                    (BYTESTAB _ 38) from
 1 to
 PCCOUNT
                   first
 (PRINTOUT OUTFILE "Starting FILEPTR = " START "   " "PCCOUNT = " PCCOUNT T)
                         (SETFILEPTR FORMATSTREAM START)
                   do
 (SETQ BYTELEN (\DWIN FORMATSTREAM))
@@ -857,7 +846,7 @@
                                         "l"
                                         "")
                          "dummy" T)
-           else
 (for
 CNO C LASTC (TSTREAM ← (TEXTSTREAM TEXTOBJ)) from
 (GETLD LINE LCHAR1)
+           else
 (for
 CNO C LASTC (TSTREAM _ (TEXTSTREAM TEXTOBJ)) from
 (GETLD LINE LCHAR1)
                    to
 (GETLD LINE LCHARLAST) first
 (SETFILEPTR TSTREAM (SUB1 (GETLD LINE LCHAR1)))
                                                    (PRINTOUT FILE " %"") until
 (EOFP TSTREAM)
                    do
 (SETQ C (BIN TSTREAM))                 (* ; 
@@ -947,8 +936,7 @@
 (DEFINEQ
 
 (STL

-  [LAMBDA (THISLINE LASTCS LCHAR1 OFILE)
                     (* ; "Edited 19-Apr-2026 14:39 by rmk")


-                                                             (* ; "Edited 11-Apr-2025 13:02 by rmk")


+  [LAMBDA (THISLINE LASTCS LCHAR1 OFILE)
                     (* ; "Edited 11-Apr-2025 13:02 by rmk")


                                                              (* ; "Edited 29-Mar-2025 22:36 by rmk")


                                                              (* ; "Edited 22-Aug-2024 23:51 by rmk")


                                                              (* ; "Edited  4-Aug-2024 12:08 by rmk")


@@ -974,15 +962,15 @@
                                                NIL
                                                'STL)
                         NIL 80)
-           (for
 CSLOT EXPANDSPACES CHNO TX LENGTH CHAR CHARW CHARCL (SPACEFACTOR ←
+           (for
 CSLOT EXPANDSPACES CHNO TX LENGTH CHAR CHARW CHARCL (SPACEFACTOR _
                                                                            (FETCH
 TLSPACEFACTOR
                                                                               OF
 THISLINE))
-                (FIRSTSPACESLOT ← (fetch
 TLFIRSTSPACE of
 THISLINE))
-                (LINE ← (fetch
 (THISLINE DESC) of
 THISLINE))
-                (NSPACES ← 0)
-                (NCHARS ← 0)
-                (SPACETOTAL ← 0)
-                (PSP ← (AND (BOUNDP 'PREVSP)
+                (FIRSTSPACESLOT _ (fetch
 TLFIRSTSPACE of
 THISLINE))
+                (LINE _ (fetch
 (THISLINE DESC) of
 THISLINE))
+                (NSPACES _ 0)
+                (NCHARS _ 0)
+                (SPACETOTAL _ 0)
+                (PSP _ (AND (BOUNDP 'PREVSP)
                             (NEQ PREVSP (GETATOMVAL 'PREVSP))
                             PREVSP)) incharslots
 THISLINE as
 NSLOTS from
 0
               first
 (if
 (NULL LINE)
@@ -999,13 +987,14 @@
                     (CL:WHEN LCHAR1
                         (SETQ CHNO (OR LCHAR1 1)))
                     (SETQ LENGTH TX)
-                    (printout OFILE 29 "XLIM" T)
-              do
 (SETQ CHAR (CHAR CSLOT))
-                 (SETQ CHARW (CHARW CSLOT))
-                 (SETQ CHARCL (CHARCL CSLOT))
-                 (CL:UNLESS (CHARSLOTP
 CSLOT THISLINE)
-                        (HELP "THISLINE RUNS OFF THE EDGE" THISLINE))
-                 (printout OFILE .I4 NSLOTS)
+                    (printout OFILE 29 "XLIM" T) eachtime
 (SETQ CHAR (CHAR CSLOT))
+                                                       (SETQ CHARW (CHARW CSLOT))
+                                                       (SETQ CHARCL (CHARCL CSLOT))
+                                                       (CL:UNLESS (CHARSLOTP CSLOT THISLINE)
+                                                              (HELP "THISLINE RUNS OFF THE EDGE" 
+                                                                    THISLINE))
+              repeatuntil
 [OR (EQ CSLOT (OR LASTCS (LASTCHARSLOT THISLINE]
+              do
 (printout OFILE .I4 NSLOTS)
                  [if
 (IMAGEOBJP CHAR)
                      then
 (add
 NCHARS 1)
                           (printout OFILE " " .I5 CHNO ": ")
@@ -1044,12 +1033,12 @@
                                              (CHARACTER CHAR)))
                                  .FR 28 CHARW " " .I4 TX 35 CHARCL 64 CSLOT)
                           (ADD
 CHNO 1)
-                   elseif
 [AND [OR (CHARSLOTP
 CHAR THISLINE)
+                   elseif
 [AND [OR (CHARSLOTP CHAR THISLINE)
                                    (AND (NULL CHAR)
                                         (NOT (TYPE?
 CHARLOOKS CHARW]
                                (OR (EQ CSLOT PSP)
                                    (find
 CS incharslots
 (NEXTCHARSLOT CSLOT)
-                                      while
 (CHARSLOTP
 CS THISLINE) suchthat
 (EQ CSLOT CHAR]
+                                      while
 (CHARSLOTP CS THISLINE) suchthat
 (EQ CSLOT CHAR]
                      then
                                    (* ; "Presumably a PREVSP")

                           (ADD
 NSPACES 1)
                           (printout OFILE " " .I5 CHNO ":")
@@ -1250,8 +1239,7 @@
 (DEFINEQ
 
 (FILEBYTES

-  [LAMBDA (FILE START NBYTES)
                                (* ; "Edited 18-Apr-2026 09:37 by rmk")


-                                                             (* ; "Edited 15-May-2024 10:44 by rmk")


+  [LAMBDA (FILE START NBYTES)
                                (* ; "Edited 15-May-2024 10:44 by rmk")


                                                              (* ; "Edited 23-Jan-2024 12:03 by rmk")


                                                              (* ; "Edited 20-Jan-2024 14:13 by rmk")

 
@@ -1267,31 +1255,25 @@
             (SETQ FILE (PCONTENTS FILE))))
     (CL:UNLESS START (SETQ START 0))
     (CL:UNLESS NBYTES (SETQ NBYTES 40))
-    (RESETLST
-        [if
 (STREAMP FILE)
-            then
 [RESETSAVE NIL `(PROGN (SETFILEPTR ,FILE ,(GETFILEPTR FILE]
-          else
 (RESETSAVE (SETQ FILE (OPENSTREAM FILE 'INPUT))
-                      '(PROGN (CLOSEF? OLDVALUE]
-        (SETFILEPTR FILE START)
-        (SETQ NBYTES (IMIN NBYTES (IDIFFERENCE (GETEOFPTR FILE)
-                                         START)))
-        (for
 I B from
 START as
 J from
 1 TO
 NBYTES collect
 (SETQ B (BIN FILE)) 
+    (CL:WITH-OPEN-FILE (STREAM FILE :DIRECTION :INPUT)
+           (SETFILEPTR STREAM START)
+           (SETQ NBYTES (IMIN NBYTES (IDIFFERENCE (GETEOFPTR STREAM)
+                                            START)))
+           (FOR
 I B FROM
 START AS
 J FROM
 1 TO
 NBYTES COLLECT
 (SETQ B (BIN STREAM)) 
 
                                           (* ;; "Do CHARACTER of the byte, since we don't know whether START respected FILE's external-format character alignment.")

 
-                                                        (LIST I B (CHARACTER B))))])
+                                                           (LIST I B (CHARACTER B])
 
 (TFILEBYTES

-  [LAMBDA (FILE START NBYTES FONT)
                           (* ; "Edited 18-Apr-2026 09:36 by rmk")


-                                                             (* ; "Edited 11-Apr-2026 00:32 by rmk")


-                                                             (* ; "Edited 14-Dec-2024 00:04 by rmk")


+  [LAMBDA (FILE START NBYTES)
                                (* ; "Edited 14-Dec-2024 00:04 by rmk")


                                                              (* ; "Edited 23-Nov-2024 15:41 by rmk")


                                                              (* ; "Edited 23-Sep-2024 11:40 by rmk")

-    (LET [(BYTES (FILEBYTES
 FILE START (OR NBYTES 200]
+    (LET ((BYTES (FILEBYTES
 FILE START NBYTES)))
          (TEVAL (for
 B in
 BYTES first
 (DSPFONT DEFAULTFONT T)
                    do
 (printout T .I6 (CAR B)
                              "  " .I3 (CADR B)
-                             "  " .FONT (OR FONT '(MODERN 10))
+                             "  " .FONT '(MODERN 8)
                              (SELCHARQ (CADR B)
                                   (EOL 'EOL)
                                   (LF 'LF)
@@ -1309,8 +1291,8 @@
   [LAMBDA (DY ARG)
                                           (* ; "Edited  5-Nov-2024 15:29 by rmk")

     (RELMOVEW (GTW
 ARG)
            (create
 POSITION
-                  XCOORD ← 0
-                  YCOORD ← DY])
+                  XCOORD _ 0
+                  YCOORD _ DY])
 
 (TSCROLL

   [LAMBDA (DY ARG)
                                           (* ; "Edited  5-Nov-2024 15:30 by rmk")

@@ -1322,7 +1304,7 @@
 
     (* ;; "Repeatedly scrolls up or down by DIST")

 
-    (bind
 (W ← (GTW
 ARG)) do
 (SELECTQ [ASKUSER NIL NIL NIL '((U NIL CONFIRMFLG NIL RETURN
+    (bind
 (W _ (GTW
 ARG)) do
 (SELECTQ [ASKUSER NIL NIL NIL '((U NIL CONFIRMFLG NIL RETURN
                                                                 'UP)
                                                              (D NIL CONFIRMFLG NIL RETURN
                                                                 'DOWN)
@@ -1381,7 +1363,7 @@
 (FIXPARALAST

   [LAMBDA (TSTREAM HELP)
                                     (* ; "Edited 16-Mar-2024 10:06 by rmk")


                                                              (* ; "Edited 24-Oct-2022 21:59 by rmk")

-    (for
 (PC ← (\TEDIT.FIRSTPIECE (TEXTOBJ TSTREAM))) by
 (NEXTPIECE PC) while
 PC
+    (for
 (PC _ (\TEDIT.FIRSTPIECE (TEXTOBJ TSTREAM))) by
 (NEXTPIECE PC) while
 PC
        when
 (PPARALAST PC) unless
 (MEMB (NTHPIECECHAR
 PC -1)
                                         (CHARCODE (EOL CR LF)))
        do
 (replace
 (PIECE PPARALAST) of
 PC with
 NIL])
@@ -1389,9 +1371,7 @@
 (DEFINEQ
 
 (SPPRINT

-  [LAMBDA (P OSTREAM TEXTOBJ NOCR)
                           (* ; "Edited  9-Apr-2026 00:07 by rmk")


-                                                             (* ; "Edited 15-Feb-2026 14:35 by rmk")


-                                                             (* ; "Edited 29-Jul-2025 11:42 by rmk")


+  [LAMBDA (P OSTREAM TEXTOBJ NOCR)
                           (* ; "Edited 29-Jul-2025 11:42 by rmk")


                                                              (* ; "Edited 24-Apr-2025 16:04 by rmk")


                                                              (* ; "Edited 19-Feb-2025 12:21 by rmk")


                                                              (* ; "Edited  8-Feb-2025 22:41 by rmk")


@@ -1439,6 +1419,8 @@
              (PRINTOUT OSTREAM (SELECTC PTYPE
                                    (THINFILE.PTYPE 
                                         'Thinfile)
+                                   (FATFILE1.PTYPE 
+                                        "Fatfile1")
                                    (FATFILE2.PTYPE 
                                         'Fatfile2)
                                    (THINSTRING.PTYPE 
@@ -1480,7 +1462,7 @@
                                          CLINVISIBLE))
                            (PRIN1 "i " OSTREAM))
                     (PRIN1 "%"" OSTREAM)
-                    (for
 I C from
 0 to
 (SUB1 PLEN)
+                    (for
 I C from
 1 to
 PLEN
                        do
 (SETQ C (\TEDIT.PIECE.NTHCHARCODE P I))
                           (PRIN1 (SELCHARQ C
                                       ((EOL CR) 
@@ -1492,12 +1474,12 @@
                                       (Meta,EOL "[MLB]")
                                       (CHARACTER C))
                                  OSTREAM)
-                          (CL:WHEN (IEQP I (SUB1 PLEN))
+                          (CL:WHEN (IEQP I PLEN)
                               (PRIN1 '%" OSTREAM))
                           (CL:WHEN [AND (NOT NOCR)
                                         (MEMB C (CHARCODE (EOL CR LF FORM]
                               (TERPRI OSTREAM)
-                              (CL:UNLESS (IEQP I (SUB1 PLEN))
+                              (CL:UNLESS (IEQP I PLEN)
                                   (DSPFONT (PROG1 (DSPFONT FONT OSTREAM)
 
                                                (* ;; "Add1 for %"")

@@ -1642,10 +1624,10 @@
 
     (* ;; "Produces a chain of copies of the pieces in PIECES from I to J. The pieces are chained in both directions so a copy can be copied or shortened.")

 
-    (for
 PC NEWPC [LASTPC ← (NTHPIECE
 PIECES (IMIN (NPIECES
 PIECES)
+    (for
 PC NEWPC [LASTPC _ (NTHPIECE
 PIECES (IMIN (NPIECES
 PIECES)
                                                    (OR J (NPIECES
 PIECES]
        inpieces
 (NTHPIECE
 PIECES (IMAX 1 (OR I 1)))
-       do
 (SETQ NEWPC (create
 PIECE using
 PC PREVPIECE ← NEWPC)) repeatuntil
 (EQ PC LASTPC)
+       do
 (SETQ NEWPC (create
 PIECE using
 PC PREVPIECE _ NEWPC)) repeatuntil
 (EQ PC LASTPC)
        finally
 (RETURN (for
 NPC NEXTPC backpieces
 NEWPC do
 (SETPC NPC NEXTPIECE NEXTPC)
                                                            (SETQ NEXTPC NPC)
                           finally
 (RETURN NPC])
@@ -1697,12 +1679,12 @@
     (CL:UNLESS N (SETQ N 7))
     (CL:UNLESS SPREAD (SETQ SPREAD 4))
     (LET ((TEXTOBJ (GTO
)))
-         [for
 I (POS ← (CL:IF (IGREATERP SPREAD 0)
+         [for
 I (POS _ (CL:IF (IGREATERP SPREAD 0)
                            0
                            90)) from
 1 to
 3 do
 (TEDIT.INSERT TEXTOBJ (CONCAT I)
                                                       (add
 POS 4)
                                                       '(FACE BOLD]
-         [for
 I (POS ← 90) from
 (IDIFFERENCE N 3) to
 N do
 (TEDIT.INSERT TEXTOBJ (CONCAT I)
+         [for
 I (POS _ 90) from
 (IDIFFERENCE N 3) to
 N do
 (TEDIT.INSERT TEXTOBJ (CONCAT I)
                                                                  (add
 POS -4)
                                                                  '(FACE BOLD]
          (SP
 TEXTOBJ)
@@ -1721,8 +1703,8 @@
         (SETQ THISLINE (fetch
 (TEXTOBJ THISLINE) of
 (GTO
 THISLINE))))
     (CL:UNLESS (FIXP N)
            (SETQ N MAX.SMALLP))
-    (for
 (CHARSLOT ← (FIRSTCHARSLOT THISLINE))
-         (LASTSLOT ← (LASTCHARSLOT THISLINE))
+    (for
 (CHARSLOT _ (FIRSTCHARSLOT THISLINE))
+         (LASTSLOT _ (LASTCHARSLOT THISLINE))
          CHAR CHARW by
 (NEXTCHARSLOT CHARSLOT) as
 I from
 0 to
 (SUB1 N) repeatuntil
 (EQ CHARSLOT 
                                                                                        LASTSLOT)
        do
 (SETQ CHAR (CHAR CHARSLOT))
@@ -2117,7 +2099,7 @@
                                                              (* ; "Edited 11-Aug-2023 08:30 by rmk")


                                                              (* ; "Edited  8-Aug-2023 22:17 by rmk")

 
-    (* ;; "Makes a copy of FILE except that each each CR is followed by the fileptr of the next byte, and and ↑z and \ are also marked with the file position of the nexxt character.  This helps in decoding Bravo files.")

+    (* ;; "Makes a copy of FILE except that each each CR is followed by the fileptr of the next byte, and and ^z and \ are also marked with the file position of the nexxt character.  This helps in decoding Bravo files.")

 
     (CL:WITH-OPEN-FILE (INSTREAM FILE :DIRECTION :INPUT)
            (STREAMPROP INSTREAM 'ENDOFSTREAMOP (FUNCTION NILL))
@@ -2173,7 +2155,7 @@
                  else
 (PRINTOUT OUTSTREAM "[" (GETFILEPTR INSTREAM)
                              "]")))
          (TAB (PRINTOUT OUTSTREAM "[TAB]"))
-         (↑Z (BOUT OUTSTREAM (CHARCODE ↑Z))                  (* ; "Comes out black")

+         (^Z (BOUT OUTSTREAM (CHARCODE ^Z))                  (* ; "Comes out black")

              (if
 SPACELINES
                  then
 (PRINTOUT OUTSTREAM T .I6 (GETFILEPTR INSTREAM)
                              ": " -5)
@@ -2193,7 +2175,7 @@
 
 (OLDWI

   [LAMBDA (FN)
                                               (* ; "Edited 16-May-2023 12:02 by rmk")

-    (for
 F COMS in
 TEDITFILES when
 (AND (SETQ F (DFOV.OLDEST F))
+    (for
 F COMS in
 TEDITFILES when
 (AND (SETQ F (DFOV.OLDEST
 F))
                                         (INFILECOMS? FN NIL (GETDEF (FILECOMS F)
                                                                    'VARS F))) collect
 F])
 
@@ -2345,7 +2327,21 @@
                                          LCHAR1)
                           (GTO
)))
          (SP
 LPC)
-         (SPLINES])
+         (SPLINES
])
+
+(THC

+  [LAMBDA (TSTREAM PRINTER TYPE)
                             (* ; "Edited 10-Jul-2023 23:00 by rmk")

+    (CL:UNLESS TYPE (SETQ TYPE DEFAULTPRINTERTYPE))
+    (LET ((TFILE (TXTFILE (GTO
 TSTREAM)))
+          HCFILE)
+         (CL:UNLESS PRINTER
+             (SETQ HCFILE (OUTFILEP (PACKFILENAME 'EXTENSION TYPE 'VERSION NIL 'NAME
+                                           (PACK* (FILENAMEFIELD TFILE 'NAME)
+                                                  'W)
+                                           'BODY TFILE))))
+         (HARDCOPY.SOMEHOW (WFROMDS (TEXTSTREAM (GTO
 TSTREAM)))
+                HCFILE TYPE)
+         HCFILE])
 )
 
 (RPAQ? LASTTTESTFILE
 )
@@ -2487,8 +2483,7 @@
 (DEFINEQ
 
 (TEDIT-DEBUG

-  [LAMBDA (DONTOVERLOAD)
                                     (* ; "Edited 24-Feb-2026 00:35 by rmk")


-                                                             (* ; "Edited  7-Feb-2026 17:00 by rmk")


+  [LAMBDA (DONTOVERLOAD)
                                     (* ; "Edited  7-Feb-2026 17:00 by rmk")


                                                              (* ; "Edited  9-Aug-2024 13:20 by rmk")


                                                              (* ; "Edited 16-Jul-2024 12:37 by rmk")


                                                              (* ; "Edited  6-Jul-2024 21:16 by rmk")


@@ -2502,7 +2497,7 @@
                                                              (* ; "Edited  3-Dec-2023 21:00 by rmk")


                                                              (* ; "Edited 29-Nov-2023 10:49 by rmk")


                                                              (* ; "Edited 24-Nov-2023 12:53 by rmk")

-    (DRIBBLE (PSEUDOFILENAME (MEDLEYDIR "library/tedit" "TEDIT-DEBUG.DRIBBLE" T)))
+    (DRIBBLE "TEDIT-DEBUG.DRIBBLE")
     (CL:WHEN (DIRECTORYNAMEP (MEDLEYDIR "../oldtedit/"))
         (PSEUDOHOST 'OT (MEDLEYDIR "../oldtedit/")))
     (FILESLOAD (NOERROR FROM LOADUPS)
@@ -2590,33 +2585,33 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5177 7736 (GTO 5187 . 5437) (GTS 5439 . 7210) (GTW 7212 . 7368) (GSEL 7370 . 7734)) (
-7769 8890 (TEST.TEMPLATE 7779 . 8888)) (8891 9826 (TESTACTION 8901 . 9824)) (9851 24332 (IPC 9861 . 
-11365) (ILINES 11367 . 13908) (ISEL 13910 . 14521) (ITS 14523 . 16247) (IPANES 16249 . 16484) (ITL 
-16486 . 16905) (IHIST 16907 . 19569) (IPCTB 19571 . 19997) (IMB 19999 . 20758) (ICL 20760 . 21461) (
-IPL 21463 . 22003) (ICARET 22005 . 22532) (INSPECTPIECES 22534 . 23664) (INSPECTFILEPIECES 23666 . 
-24330)) (24354 53387 (SP 24364 . 29479) (SL 29481 . 33483) (SSP 33485 . 35187) (SPF 35189 . 37721) (
-SLF 37723 . 46870) (SHOWLINE 46872 . 50545) (SLL 50547 . 51294) (STBYTES 51296 . 53022) (SSEL 53024 . 
-53385)) (53388 65740 (STL 53398 . 62238) (CLEARTHISLINE 62240 . 62720) (CHARSLOTP 62722 . 64041) (
-\TLVALIDATE 64043 . 65738)) (65741 71114 (NTHPIECE 65751 . 66883) (NPIECES 66885 . 67750) (
-NTHPIECECHAR 67752 . 69060) (SELPIECE 69062 . 69504) (PIECENUM 69506 . 70225) (PCBYTES 70227 . 71112))
- (71115 74103 (FILEBYTES 71125 . 72828) (TFILEBYTES 72830 . 74101)) (74104 75432 (TRELMOVE 74114 . 
-74361) (TSCROLL 74363 . 74529) (TSCROLL* 74531 . 75430)) (75433 78484 (TRY 75443 . 76712) (TEDITCLOSEW
- 76714 . 77057) (PARALASTWITHOUTEOL 77059 . 77944) (FIXPARALAST 77946 . 78482)) (78485 93511 (SPPRINT 
-78495 . 85455) (SPPRINT.CHAR 85457 . 86441) (SPPRINT.OBJ 86443 . 89501) (SHOWPIECEBYTES 89503 . 91059)
- (CHECKPLENGTHS 91061 . 91518) (SBT 91520 . 92657) (COPYPCHAIN 92659 . 93509)) (93512 95573 (POSLINE 
-93522 . 95571)) (95574 96461 (PRESPLIT 95584 . 96459)) (96462 98179 (ALLTL 96472 . 97729) (NTHCHARSLOT
- 97731 . 98177)) (98205 108418 (PLCHAIN 98215 . 98743) (PRINTLINE 98745 . 101735) (SL.GETLINES 101737
- . 105030) (CHECKLINES 105032 . 106012) (COLLECTLINES 106014 . 106266) (NTHLINE 106268 . 107273) (
-HEIGHT 107275 . 107563) (LINEBOTS 107565 . 108416)) (108419 110867 (IPC.DECODEARGS 108429 . 110865)) (
-110868 111461 (SPF1 110878 . 111459)) (111490 113868 (SLF.FATPLEN 111500 . 112359) (FILEPIECE 112361
- . 113866)) (113901 114669 (SELTEDIT 113911 . 114667)) (114739 120357 (PPARA 114749 . 115171) (PRUN 
-115173 . 116649) (ADDLINEPOSITIONS 116651 . 118080) (SBR 118082 . 118736) (SBC 118738 . 120355)) (
-120414 122186 (OLDWI 120424 . 120795) (COMP 120797 . 120992) (DFR 120994 . 122184)) (122187 123220 (
-DFGV 122197 . 122723) (GDIRECTORIES 122725 . 123218)) (123221 129128 (TTEST 123231 . 127763) (LTEST 
-127765 . 129126)) (129442 130134 (SHOWSAFE 129452 . 130132)) (130187 130634 (MYH 130197 . 130632)) (
-130879 131974 (DFVENUE 130889 . 131768) (VSEE 131770 . 131972)) (131975 132429 (PTT 131985 . 132427)) 
-(132788 134369 (DEBUGOUTPUT.STREAM 132798 . 134367)) (134370 137001 (TEDIT-DEBUG 134380 . 136999)) (
-137002 137494 (HEXTOHILO 137012 . 137352) (CW 137354 . 137492)) (137495 139231 (TRENAME 137505 . 
-139229)))))
+  (FILEMAP (NIL (5124 7683 (GTO 5134 . 5384) (GTS 5386 . 7157) (GTW 7159 . 7315) (GSEL 7317 . 7681)) (
+7716 8837 (TEST.TEMPLATE 7726 . 8835)) (8838 9773 (TESTACTION 8848 . 9771)) (9798 23613 (IPC 9808 . 
+11312) (ILINES 11314 . 13855) (ISEL 13857 . 14468) (ITS 14470 . 16194) (IPANES 16196 . 16431) (ITL 
+16433 . 16852) (IHIST 16854 . 19516) (IPCTB 19518 . 19944) (IMB 19946 . 20705) (ICL 20707 . 21408) (
+IPL 21410 . 21950) (ICARET 21952 . 22479) (INSPECTPIECES 22481 . 23611)) (23635 52650 (SP 23645 . 
+28760) (SL 28762 . 32764) (SSP 32766 . 34468) (SPF 34470 . 37000) (SLF 37002 . 46135) (SHOWLINE 46137
+ . 49808) (SLL 49810 . 50557) (STBYTES 50559 . 52285) (SSEL 52287 . 52648)) (52651 65164 (STL 52661 . 
+61662) (CLEARTHISLINE 61664 . 62144) (CHARSLOTP 62146 . 63465) (\TLVALIDATE 63467 . 65162)) (65165 
+70538 (NTHPIECE 65175 . 66307) (NPIECES 66309 . 67174) (NTHPIECECHAR 67176 . 68484) (SELPIECE 68486 . 
+68928) (PIECENUM 68930 . 69649) (PCBYTES 69651 . 70536)) (70539 73013 (FILEBYTES 70549 . 71973) (
+TFILEBYTES 71975 . 73011)) (73014 74336 (TRELMOVE 73024 . 73267) (TSCROLL 73269 . 73435) (TSCROLL* 
+73437 . 74334)) (74337 77386 (TRY 74347 . 75616) (TEDITCLOSEW 75618 . 75961) (PARALASTWITHOUTEOL 75963
+ . 76848) (FIXPARALAST 76850 . 77384)) (77387 92274 (SPPRINT 77397 . 84222) (SPPRINT.CHAR 84224 . 
+85208) (SPPRINT.OBJ 85210 . 88268) (SHOWPIECEBYTES 88270 . 89826) (CHECKPLENGTHS 89828 . 90285) (SBT 
+90287 . 91424) (COPYPCHAIN 91426 . 92272)) (92275 94336 (POSLINE 92285 . 94334)) (94337 95220 (
+PRESPLIT 94347 . 95218)) (95221 96934 (ALLTL 95231 . 96484) (NTHCHARSLOT 96486 . 96932)) (96960 107173
+ (PLCHAIN 96970 . 97498) (PRINTLINE 97500 . 100490) (SL.GETLINES 100492 . 103785) (CHECKLINES 103787
+ . 104767) (COLLECTLINES 104769 . 105021) (NTHLINE 105023 . 106028) (HEIGHT 106030 . 106318) (LINEBOTS
+ 106320 . 107171)) (107174 109622 (IPC.DECODEARGS 107184 . 109620)) (109623 110216 (SPF1 109633 . 
+110214)) (110245 112623 (SLF.FATPLEN 110255 . 111114) (FILEPIECE 111116 . 112621)) (112656 113424 (
+SELTEDIT 112666 . 113422)) (113494 119106 (PPARA 113504 . 113926) (PRUN 113928 . 115404) (
+ADDLINEPOSITIONS 115406 . 116833) (SBR 116835 . 117489) (SBC 117491 . 119104)) (119163 120939 (OLDWI 
+119173 . 119548) (COMP 119550 . 119745) (DFR 119747 . 120937)) (120940 121973 (DFGV 120950 . 121476) (
+GDIRECTORIES 121478 . 121971)) (121974 128539 (TTEST 121984 . 126516) (LTEST 126518 . 127883) (THC 
+127885 . 128537)) (128853 129545 (SHOWSAFE 128863 . 129543)) (129598 130045 (MYH 129608 . 130043)) (
+130290 131385 (DFVENUE 130300 . 131179) (VSEE 131181 . 131383)) (131386 131840 (PTT 131396 . 131838)) 
+(132199 133780 (DEBUGOUTPUT.STREAM 132209 . 133778)) (133781 136256 (TEDIT-DEBUG 133791 . 136254)) (
+136257 136749 (HEXTOHILO 136267 . 136607) (CW 136609 . 136747)) (136750 138486 (TRENAME 136760 . 
+138484)))))
 STOP

library/tedit/TEDIT-FILE

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "10-May-2026 20:54:51" {MEDLEY}<library>TEDIT>TEDIT-FILE.;685
 174952 
+
(FILECREATED "29-Apr-2026 23:49:14" {MEDLEY}<library>tedit>TEDIT-FILE.;684
 174888 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.GET.FORMATTED.FILE)
+      :CHANGES-TO (FNS \TEDIT.INTERPRET.MCCS.SHIFTS)
 
-      :PREVIOUS-DATE "29-Apr-2026 23:49:14" {MEDLEY}<library>TEDIT>TEDIT-FILE.;684)
+      :PREVIOUS-DATE "24-Apr-2026 21:09:13" {MEDLEY}<library>tedit>TEDIT-FILE.;683)
 
 
 (PRETTYCOMPRINT TEDIT-FILECOMS)
@@ -707,8 +707,7 @@
              (\TEDIT.INSERTPIECES PIECES NIL TEXTOBJ)))])
 
 (\TEDIT.GET.FORMATTED.FILE

-  [LAMBDA (TEXT TSTREAM START END PROPS)
                     (* ; "Edited 10-May-2026 20:54 by rmk")


-                                                             (* ; "Edited 25-Sep-2025 21:27 by rmk")


+  [LAMBDA (TEXT TSTREAM START END PROPS)
                     (* ; "Edited 25-Sep-2025 21:27 by rmk")


                                                              (* ; "Edited  9-Sep-2025 21:45 by rmk")


                                                              (* ; "Edited  7-Sep-2025 12:14 by rmk")


                                                              (* ; "Edited 28-Mar-2025 14:15 by rmk")


@@ -745,7 +744,8 @@
 
                                                   "Version 1;  obsoleted at INTERMEZZO release 2/85")

                     (\TEDIT.GET.PCTB1 TEXT TSTREAM PCCOUNT START END))
                  (0                                          (* ; "VERSION 0")

-                    (\TEDIT.GET.PCTB0 TEXT TSTREAM PCCOUNT START END))
+                    (\TEDIT.GET.PCTB0 TEXT TSTREAM (CADR PCCOUNT)
+                           PCCOUNT START END))
                  (\TEDIT.THELP "File format version incompatible with this version of TEdit."))
              (CL:WHEN (SETQ PC (\TEDIT.LASTPIECE TEXTOBJ))
                     (FSETPC PC PPARALAST T))
@@ -2706,29 +2706,29 @@
 
 (RPAQ? *TEDIT-FILE-READTABLE*
 (COPYREADTABLE \ORIGREADTABLE))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5381 35640 (TEDIT.GET 5391 . 11801) (TEDIT.FORMATTEDFILEP 11803 . 13119) (
-TEDIT.FILEDATE 13121 . 14430) (TEDIT.INCLUDE 14432 . 22461) (TEDIT.RAW.INCLUDE 22463 . 23271) (
-TEDIT.PUT 23273 . 31629) (TEDIT.PUT.STREAM 31631 . 35638)) (35641 57015 (\TEDIT.GET.FOREIGN.FILE 35651
- . 39076) (\TEDIT.GET.UNFORMATTED.FILE 39078 . 43417) (\TEDIT.GET.FORMATTED.FILE 43419 . 47129) (
-\TEDIT.FORMATTEDSTREAMP 47131 . 50262) (\ARBIN 50264 . 50984) (\ATMIN 50986 . 51523) (\DWIN 51525 . 
-51904) (\STRINGIN 51906 . 52614) (\TEDIT.GET.TRAILER 52616 . 55484) (\TEDIT.CACHEFILE 55486 . 57013)) 
-(57181 73108 (\TEDIT.GET.PIECES3 57191 . 68240) (\TEDIT.GET.PROPS3 68242 . 71464) (
-\TEDIT.MAKE.STRINGPIECE 71466 . 73106)) (73109 85905 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73119 . 78770) 
-(\TEDIT.INTERPRET.MCCS.SHIFTS 78772 . 84368) (\TEDIT.CONVERT.XCCSTOMCCS 84370 . 85302) (
-\TEDIT.RUN.TO.STRINGPIECE 85304 . 85903)) (85927 92188 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 85937 . 92186
-)) (92211 103729 (\TEDIT.GET.CHARLOOKS.LIST 92221 . 92952) (\TEDIT.GET.SINGLE.CHARLOOKS 92954 . 100026
-) (\TEDIT.GET.CHARLOOKS 100028 . 101584) (\TEDIT.GET.PARALOOKS.INDEX 101586 . 102130) (
-\TEDIT.GET.CHARLOOKS.INDEX 102132 . 103727)) (103730 111387 (\TEDIT.GET.PARALOOKS.LIST 103740 . 104362
-) (\TEDIT.GET.SINGLE.PARALOOKS 104364 . 111385)) (111388 115330 (\TEDIT.GET.OBJECT 111398 . 115328)) (
-115395 150553 (\TEDIT.PUT.PCTB 115405 . 125731) (\TEDIT.PUT.PCTB.PIECEDATA 125733 . 128890) (
-\TEDIT.PUT.TRAILER 128892 . 130220) (\TEDIT.PUT.PCTB.MERGEABLE 130222 . 134083) (
-\TEDIT.PUT.UTF8.SPLITPIECES 134085 . 138661) (\TEDIT.PUT.MCCS.SPLITPIECES 138663 . 140241) (
-\TEDIT.PUT.PCTB.NEXTNEW 140243 . 144984) (\TEDIT.INSERT.NEWPIECES 144986 . 148151) (\TEDIT.PUTRESET 
-148153 . 148395) (\ARBOUT 148397 . 149121) (\ATMOUT 149123 . 149728) (\DWOUT 149730 . 150009) (
-\STRINGOUT 150011 . 150551)) (150554 163505 (\TEDIT.PUT.CHARLOOKS.LIST 150564 . 152236) (
-\TEDIT.PUT.SINGLE.CHARLOOKS 152238 . 158518) (\TEDIT.PUT.CHARLOOKS 158520 . 159967) (
-\TEDIT.PUT.CHARLOOKS1 159969 . 161020) (\TEDIT.PUT.OBJECT 161022 . 163503)) (163506 171145 (
-\TEDIT.PUT.PARALOOKS.LIST 163516 . 164418) (\TEDIT.PUT.SINGLE.PARALOOKS 164420 . 170004) (
-\TEDIT.PUT.PARALOOKS 170006 . 171143)) (171240 174645 (TEDITFROMLISPSOURCE 171250 . 173894) (
-SHELLSCRIPTP 173896 . 174125) (TEDITFROMSHELLSCRIPT 174127 . 174643)))))
+  (FILEMAP (NIL (5384 35643 (TEDIT.GET 5394 . 11804) (TEDIT.FORMATTEDFILEP 11806 . 13122) (
+TEDIT.FILEDATE 13124 . 14433) (TEDIT.INCLUDE 14435 . 22464) (TEDIT.RAW.INCLUDE 22466 . 23274) (
+TEDIT.PUT 23276 . 31632) (TEDIT.PUT.STREAM 31634 . 35641)) (35644 56951 (\TEDIT.GET.FOREIGN.FILE 35654
+ . 39079) (\TEDIT.GET.UNFORMATTED.FILE 39081 . 43420) (\TEDIT.GET.FORMATTED.FILE 43422 . 47065) (
+\TEDIT.FORMATTEDSTREAMP 47067 . 50198) (\ARBIN 50200 . 50920) (\ATMIN 50922 . 51459) (\DWIN 51461 . 
+51840) (\STRINGIN 51842 . 52550) (\TEDIT.GET.TRAILER 52552 . 55420) (\TEDIT.CACHEFILE 55422 . 56949)) 
+(57117 73044 (\TEDIT.GET.PIECES3 57127 . 68176) (\TEDIT.GET.PROPS3 68178 . 71400) (
+\TEDIT.MAKE.STRINGPIECE 71402 . 73042)) (73045 85841 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73055 . 78706) 
+(\TEDIT.INTERPRET.MCCS.SHIFTS 78708 . 84304) (\TEDIT.CONVERT.XCCSTOMCCS 84306 . 85238) (
+\TEDIT.RUN.TO.STRINGPIECE 85240 . 85839)) (85863 92124 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 85873 . 92122
+)) (92147 103665 (\TEDIT.GET.CHARLOOKS.LIST 92157 . 92888) (\TEDIT.GET.SINGLE.CHARLOOKS 92890 . 99962)
+ (\TEDIT.GET.CHARLOOKS 99964 . 101520) (\TEDIT.GET.PARALOOKS.INDEX 101522 . 102066) (
+\TEDIT.GET.CHARLOOKS.INDEX 102068 . 103663)) (103666 111323 (\TEDIT.GET.PARALOOKS.LIST 103676 . 104298
+) (\TEDIT.GET.SINGLE.PARALOOKS 104300 . 111321)) (111324 115266 (\TEDIT.GET.OBJECT 111334 . 115264)) (
+115331 150489 (\TEDIT.PUT.PCTB 115341 . 125667) (\TEDIT.PUT.PCTB.PIECEDATA 125669 . 128826) (
+\TEDIT.PUT.TRAILER 128828 . 130156) (\TEDIT.PUT.PCTB.MERGEABLE 130158 . 134019) (
+\TEDIT.PUT.UTF8.SPLITPIECES 134021 . 138597) (\TEDIT.PUT.MCCS.SPLITPIECES 138599 . 140177) (
+\TEDIT.PUT.PCTB.NEXTNEW 140179 . 144920) (\TEDIT.INSERT.NEWPIECES 144922 . 148087) (\TEDIT.PUTRESET 
+148089 . 148331) (\ARBOUT 148333 . 149057) (\ATMOUT 149059 . 149664) (\DWOUT 149666 . 149945) (
+\STRINGOUT 149947 . 150487)) (150490 163441 (\TEDIT.PUT.CHARLOOKS.LIST 150500 . 152172) (
+\TEDIT.PUT.SINGLE.CHARLOOKS 152174 . 158454) (\TEDIT.PUT.CHARLOOKS 158456 . 159903) (
+\TEDIT.PUT.CHARLOOKS1 159905 . 160956) (\TEDIT.PUT.OBJECT 160958 . 163439)) (163442 171081 (
+\TEDIT.PUT.PARALOOKS.LIST 163452 . 164354) (\TEDIT.PUT.SINGLE.PARALOOKS 164356 . 169940) (
+\TEDIT.PUT.PARALOOKS 169942 . 171079)) (171176 174581 (TEDITFROMLISPSOURCE 171186 . 173830) (
+SHELLSCRIPTP 173832 . 174061) (TEDITFROMSHELLSCRIPT 174063 . 174579)))))
 STOP

library/tedit/TEDIT-MENU

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "10-May-2026 17:15:14" {MEDLEY}<library>tedit>TEDIT-MENU.;513
 183190 
+
(FILECREATED "29-Apr-2026 15:35:33" {MEDLEY}<library>TEDIT>TEDIT-MENU.;512
 183159 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.MENU.START)
+      :CHANGES-TO (FNS \TEDIT.SHOW.PAGELOOKS)
 
-      :PREVIOUS-DATE "29-Apr-2026 15:35:33" {MEDLEY}<library>tedit>TEDIT-MENU.;512)
+      :PREVIOUS-DATE " 9-Feb-2026 09:10:43" {MEDLEY}<library>TEDIT>TEDIT-MENU.;510)
 
 
 (PRETTYCOMPRINT TEDIT-MENUCOMS)
@@ -1161,8 +1161,7 @@
            TSTREAM])
 
 (\TEDIT.MENU.START

-  [LAMBDA (MENUSTREAM TSTREAM TITLE HEIGHT TYPE)
             (* ; "Edited 10-May-2026 17:12 by rmk")


-                                                             (* ; "Edited 14-Mar-2025 16:13 by rmk")


+  [LAMBDA (MENUSTREAM TSTREAM TITLE HEIGHT TYPE)
             (* ; "Edited 14-Mar-2025 16:13 by rmk")


                                                              (* ; "Edited 28-Jun-2024 23:08 by rmk")


                                                              (* ; "Edited 19-Apr-2024 10:53 by rmk")


                                                              (* ; "Edited 10-Apr-2024 23:04 by rmk")


@@ -1196,6 +1195,7 @@
                                          WIDTH _ (fetch
 (REGION WIDTH) of
 WREG)
                                          HEIGHT _ (OR HEIGHT 133))
                                 TITLE))
+             (WINDOWADDPROP MENUW 'CLOSEFN (FUNCTION FREEATTACHEDWINDOW))
              (WINDOWPROP MENUW 'TEDITMENU (OR TITLE "TEdit Menu"))
                                                              (* ; "Mark this as a TEDIT MENU window")

              (ATTACHWINDOW MENUW MAINWINDOW 'TOP 'JUSTIFY 'LOCALCLOSE)
@@ -2899,32 +2899,32 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4929 16567 (TEDIT.ADD.MENUITEM 4939 . 7056) (TEDIT.DEFAULT.MENUFN 7058 . 13779) (
-TEDIT.REMOVE.MENUITEM 13781 . 14778) (\TEDIT.CREATEMENU 14780 . 15345) (\TEDIT.MENU.WHENHELDFN 15347
- . 16252) (\TEDIT.MENU.WHENSELECTEDFN 16254 . 16565)) (17381 65416 (DRAWMARGINSCALE 17391 . 20850) (
-MARGINBAR 20852 . 27977) (MARGINBAR.CREATE 27979 . 32177) (MB.MARGINBAR.BUTTONEVENTINFN 32179 . 39981)
- (MB.MARGINBAR.SELFN.TABS 39983 . 45223) (MB.MARGINBAR.SELFN.TABS.KIND 45225 . 46160) (
-MARGINBAR.GETSTATEFN 46162 . 50149) (MARGINBAR.SETSTATEFN 50151 . 50361) (MARGINBAR.NEUTRALIZE 50363
- . 51038) (MARGINBAR.LOOKS 51040 . 54146) (MB.MARGINBAR.SIZEFN 54148 . 54934) (MB.MARGINBAR.DISPLAYFN 
-54936 . 57997) (MDESCALE 57999 . 58539) (MSCALE 58541 . 58871) (MB.MARGINBAR.SHOWTAB 58873 . 61196) (
-MB.MARGINBAR.TABTRACK 61198 . 62583) (MARGINBAR.INIT 62585 . 63978) (\TEDIT.PARALOOKS.TO.MARBAR 63980
- . 65414)) (66241 73558 (TEDIT.MENUSTREAM 66251 . 67251) (TEDITMENUP 67253 . 68222) (\TEDIT.MENU.START
- 68224 . 72606) (\TEDIT.MENU.OPEN? 72608 . 72982) (\TEDIT.MENU.BUTTONEVENTFN 72984 . 73556)) (73877 
-81928 (\TEDIT.MENU.CREATE 73887 . 75827) (\TEDIT.MENU.PARSE 75829 . 79518) (\TEDIT.MENU.NEUTRALIZE 
-79520 . 81591) (\TEDITMENU.RECORD.UNFORMATTED 81593 . 81926)) (81994 101396 (
-\TEDIT.EXPANDEDMENU.CREATE 82004 . 87682) (\TEDIT.EXPANDEDMENU.START 87684 . 89308) (
-\TEDIT.EXPANDEDMENU.FN 89310 . 92565) (\TEDIT.EXPANDEDMENU.ACTIONFN 92567 . 101394)) (101458 120883 (
-\TEDIT.PARAMENU.CREATE 101468 . 110199) (\TEDIT.PARAMENU.START 110201 . 111455) (
-\TEDIT.APPLY.PARALOOKS 111457 . 112509) (\TEDIT.SHOW.PARALOOKS 112511 . 115228) (
-\TEDIT.PARAMENU.FILLIN 115230 . 119979) (\TEDIT.PARAMENU.RESHAPEFN 119981 . 120881)) (121077 147919 (
-\TEDIT.CHARMENU.CREATE 121087 . 123691) (\TEDIT.CHARMENU.START 123693 . 124983) (\TEDIT.CHARMENU.SPEC 
-124985 . 129668) (\TEDIT.CHARMENU.PARSE 129670 . 132838) (\TEDIT.CHARMENU.FILLIN 132840 . 137470) (
-\TEDIT.SHOW.CHARLOOKS 137472 . 141017) (\TEDIT.APPLY.CHARLOOKS 141019 . 142180) (
-\TEDIT.OFFSETTYPE.STATEFN 142182 . 144145) (\TEDIT.OTHER.STATECHANGEFN 144147 . 145792) (
-\TEDIT.OTHER.SELECTFN 145794 . 147917)) (147981 177230 (\TEDIT.PAGEMENU.CREATE 147991 . 156512) (
-\TEDIT.PAGEMENU.START 156514 . 156865) (\TEDIT.SHOW.PAGELOOKS 156867 . 158888) (\TEDIT.PAGEMENU.FILLIN
- 158890 . 160440) (\TEDIT.PAGEREGION.UNPARSE 160442 . 169841) (\TEDIT.APPLY.PAGELOOKS 169843 . 171770)
- (\TEDIT.CHANGE.PAGELOOKS 171772 . 176386) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176388 . 177228)) (
-177231 183034 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177241 . 180053) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 
-180055 . 181480) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181482 . 183032)))))
+  (FILEMAP (NIL (4933 16571 (TEDIT.ADD.MENUITEM 4943 . 7060) (TEDIT.DEFAULT.MENUFN 7062 . 13783) (
+TEDIT.REMOVE.MENUITEM 13785 . 14782) (\TEDIT.CREATEMENU 14784 . 15349) (\TEDIT.MENU.WHENHELDFN 15351
+ . 16256) (\TEDIT.MENU.WHENSELECTEDFN 16258 . 16569)) (17385 65420 (DRAWMARGINSCALE 17395 . 20854) (
+MARGINBAR 20856 . 27981) (MARGINBAR.CREATE 27983 . 32181) (MB.MARGINBAR.BUTTONEVENTINFN 32183 . 39985)
+ (MB.MARGINBAR.SELFN.TABS 39987 . 45227) (MB.MARGINBAR.SELFN.TABS.KIND 45229 . 46164) (
+MARGINBAR.GETSTATEFN 46166 . 50153) (MARGINBAR.SETSTATEFN 50155 . 50365) (MARGINBAR.NEUTRALIZE 50367
+ . 51042) (MARGINBAR.LOOKS 51044 . 54150) (MB.MARGINBAR.SIZEFN 54152 . 54938) (MB.MARGINBAR.DISPLAYFN 
+54940 . 58001) (MDESCALE 58003 . 58543) (MSCALE 58545 . 58875) (MB.MARGINBAR.SHOWTAB 58877 . 61200) (
+MB.MARGINBAR.TABTRACK 61202 . 62587) (MARGINBAR.INIT 62589 . 63982) (\TEDIT.PARALOOKS.TO.MARBAR 63984
+ . 65418)) (66245 73527 (TEDIT.MENUSTREAM 66255 . 67255) (TEDITMENUP 67257 . 68226) (\TEDIT.MENU.START
+ 68228 . 72575) (\TEDIT.MENU.OPEN? 72577 . 72951) (\TEDIT.MENU.BUTTONEVENTFN 72953 . 73525)) (73846 
+81897 (\TEDIT.MENU.CREATE 73856 . 75796) (\TEDIT.MENU.PARSE 75798 . 79487) (\TEDIT.MENU.NEUTRALIZE 
+79489 . 81560) (\TEDITMENU.RECORD.UNFORMATTED 81562 . 81895)) (81963 101365 (
+\TEDIT.EXPANDEDMENU.CREATE 81973 . 87651) (\TEDIT.EXPANDEDMENU.START 87653 . 89277) (
+\TEDIT.EXPANDEDMENU.FN 89279 . 92534) (\TEDIT.EXPANDEDMENU.ACTIONFN 92536 . 101363)) (101427 120852 (
+\TEDIT.PARAMENU.CREATE 101437 . 110168) (\TEDIT.PARAMENU.START 110170 . 111424) (
+\TEDIT.APPLY.PARALOOKS 111426 . 112478) (\TEDIT.SHOW.PARALOOKS 112480 . 115197) (
+\TEDIT.PARAMENU.FILLIN 115199 . 119948) (\TEDIT.PARAMENU.RESHAPEFN 119950 . 120850)) (121046 147888 (
+\TEDIT.CHARMENU.CREATE 121056 . 123660) (\TEDIT.CHARMENU.START 123662 . 124952) (\TEDIT.CHARMENU.SPEC 
+124954 . 129637) (\TEDIT.CHARMENU.PARSE 129639 . 132807) (\TEDIT.CHARMENU.FILLIN 132809 . 137439) (
+\TEDIT.SHOW.CHARLOOKS 137441 . 140986) (\TEDIT.APPLY.CHARLOOKS 140988 . 142149) (
+\TEDIT.OFFSETTYPE.STATEFN 142151 . 144114) (\TEDIT.OTHER.STATECHANGEFN 144116 . 145761) (
+\TEDIT.OTHER.SELECTFN 145763 . 147886)) (147950 177199 (\TEDIT.PAGEMENU.CREATE 147960 . 156481) (
+\TEDIT.PAGEMENU.START 156483 . 156834) (\TEDIT.SHOW.PAGELOOKS 156836 . 158857) (\TEDIT.PAGEMENU.FILLIN
+ 158859 . 160409) (\TEDIT.PAGEREGION.UNPARSE 160411 . 169810) (\TEDIT.APPLY.PAGELOOKS 169812 . 171739)
+ (\TEDIT.CHANGE.PAGELOOKS 171741 . 176355) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176357 . 177197)) (
+177200 183003 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177210 . 180022) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 
+180024 . 181449) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181451 . 183001)))))
 STOP

library/tedit/TEDIT-STREAM

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "10-May-2026 13:26:30" {MEDLEY}<library>TEDIT>TEDIT-STREAM.;957
 191002 
+
(FILECREATED " 1-May-2026 08:15:56" {MEDLEY}<library>tedit>TEDIT-STREAM.;956
 190971 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.OPENTEXTFILE)
+      :CHANGES-TO (RECORDS PIECE)
 
-      :PREVIOUS-DATE " 1-May-2026 08:15:56" {MEDLEY}<library>TEDIT>TEDIT-STREAM.;956)
+      :PREVIOUS-DATE "26-Apr-2026 23:46:38" {MEDLEY}<library>tedit>TEDIT-STREAM.;955)
 
 
 (PRETTYCOMPRINT TEDIT-STREAMCOMS)
@@ -1642,8 +1642,7 @@
          (SETTOBJ TEXTOBJ DEFAULTPARALOOKS PARALOOKS])
 
 (\TEDIT.OPENTEXTFILE

-  [LAMBDA (TEXT PROPS ERROR)
                                 (* ; "Edited 10-May-2026 12:57 by rmk")


-                                                             (* ; "Edited  2-Dec-2025 17:49 by rmk")


+  [LAMBDA (TEXT PROPS ERROR)
                                 (* ; "Edited  2-Dec-2025 17:49 by rmk")


                                                              (* ; "Edited 16-Sep-2025 00:28 by rmk")


                                                              (* ; "Edited  8-Sep-2025 21:52 by rmk")


                                                              (* ; "Edited 21-Nov-2024 11:38 by rmk")


@@ -1659,15 +1658,16 @@
                           (STRINGP TEXT)
                           (CL:PATHNAMEP TEXT)
                           (STREAMP TEXT))
-                      (CAR (NLSETQ (OPENSTREAM (OR (STREAMP TEXT)
-                                                   (AND (CL:PATHNAMEP TEXT)
-                                                        (FINDFILE TEXT T))
-                                                   (FINDFILE-WITH-EXTENSIONS TEXT NIL 
-                                                          *TEDIT-EXTENSIONS*)
-                                                   TEXT)
+                      (CAR (NLSETQ (OPENSTREAM (if
 (STREAMP TEXT)
+                                                 elseif
 (CL:PATHNAMEP TEXT)
+                                                   then
 (FINDFILE TEXT T)
+                                                 elseif
 (FINDFILE-WITH-EXTENSIONS TEXT NIL 
+                                                               *TEDIT-EXTENSIONS*)
+                                                 else
 TEXT)
                                           'INPUT
                                           'OLD
-                                          `((FORMAT ,(LISTGET PROPS 'FORMAT]
+                                          `((TYPE TEXT)
+                                            (FORMAT ,(LISTGET PROPS 'FORMAT]
           elseif
 ERROR
             then
 (ERROR "File not found:" TEXT)))])
 
@@ -3084,33 +3084,33 @@
 (ADDTOVAR LAMA
 TEXTPROP)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (36166 66043 (\TEDIT.TEXTBIN 36176 . 46078) (\TEDIT.TEXTPEEKBIN 46080 . 51505) (
-\TEDIT.TEXTBACKFILEPTR 51507 . 57214) (\TEDIT.TEXTBOUT 57216 . 61833) (\TEDIT.INSTALL.FILEBUFFER 61835
- . 66041)) (66941 71232 (\TEDIT.TEXTOUTCHARFN 66951 . 68507) (\TEDIT.TEXTINCCODEFN 68509 . 69248) (
-\TEDIT.TEXTBACKCCODEFN 69250 . 69842) (\TEDIT.TEXTFORMATBYTESTREAM 69844 . 70681) (
-\TEDIT.TEXTFORMATBYTESTRING 70683 . 71230)) (71279 83354 (OPENTEXTSTREAM 71289 . 78265) (
-COPYTEXTSTREAM 78267 . 82577) (TEDIT.STREAMCHANGEDP 82579 . 82881) (TXTFILE 82883 . 83352)) (83355 
-106581 (\TEDIT.REOPENTEXTSTREAM 83365 . 84717) (\TEDIT.OPENTEXTSTREAM.PIECES 84719 . 89647) (
-\TEDIT.OPENTEXTSTREAM.PROPS 89649 . 90751) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90753 . 96203) (
-\TEDIT.OPENTEXTSTREAM.WINDOW 96205 . 98996) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 98998 . 100937) (
-\TEDIT.OPENTEXTFILE 100939 . 103092) (\TEDIT.CREATE.TEXTSTREAM 103094 . 104241) (\TEDIT.REOPEN.STREAM 
-104243 . 106579)) (106582 114914 (\TEDIT.STREAMINIT 106592 . 114731) (TEDIT.IMAGESTREAM.OPEN 114733 . 
-114912)) (115102 116290 (\TEDIT.TTYBOUT 115112 . 116288)) (116408 138091 (\TEDIT.TEXTCLOSEF 116418 . 
-117742) (\TEDIT.TEXTDSPFONT 117744 . 118942) (\TEDIT.TEXTEOFP 118944 . 120699) (\TEDIT.TEXTGETEOFPTR 
-120701 . 121024) (\TEDIT.TEXTSETEOFPTR 121026 . 122313) (\TEDIT.TEXTGETFILEPTR 122315 . 125150) (
-\TEDIT.TEXTSETFILEINFO 125152 . 125660) (\TEDIT.TEXTOPENF 125662 . 126593) (\TEDIT.TEXTSETEOF 126595
- . 127211) (\TEDIT.TEXTSETFILEPTR 127213 . 129323) (\TEDIT.TEXTDSPXPOSITION 129325 . 132028) (
-\TEDIT.TEXTDSPYPOSITION 132030 . 132771) (\TEDIT.TEXTLEFTMARGIN 132773 . 133364) (\TEDIT.TEXTCOLOR 
-133366 . 133949) (\TEDIT.TEXTRIGHTMARGIN 133951 . 137240) (\TEDIT.TEXTDSPCHARWIDTH 137242 . 137546) (
-\TEDIT.TEXTDSPSTRINGWIDTH 137548 . 137854) (\TEDIT.TEXTDSPLINEFEED 137856 . 138089)) (138129 150363 (
-\TEDIT.NTHCHARCODE 138139 . 139665) (\TEDIT.PIECE.NTHCHARCODE 139667 . 143235) (\TEDIT.RPLCHARCODE 
-143237 . 144795) (\TEDIT.PIECE.RPLCHARCODE 144797 . 150008) (\TEDIT.NTHCHARLOOKS 150010 . 150361)) (
-151410 172285 (\TEDIT.DELETE.SELPIECES 151420 . 155045) (\TEDIT.INSERTCH 155047 . 162852) (
-\TEDIT.INSERTCH.HISTORY 162854 . 166318) (\TEDIT.INSERTEOL 166320 . 168145) (\TEDIT.INSERTCH.INSERTION
- 168147 . 170984) (\TEDIT.INSERTCH.EXTEND 170986 . 172283)) (172286 173893 (\TEDIT.NEXTCHANGEABLE.CHNO
- 172296 . 173011) (\TEDIT.LASTCHANGEABLE.CHNO 173013 . 173891)) (173894 178683 (\TEDIT.INSTALL.PIECE 
-173904 . 178681)) (178721 188187 (TEXTPROP 178731 . 179078) (GETTEXTPROP 179080 . 179324) (PUTTEXTPROP
- 179326 . 179583) (GETTEXTPROPS 179585 . 180029) (PUTTEXTPROPS 180031 . 180935) (TEXTPROP.ADD 180937
- . 181200) (\TEDIT.TEXTPROP 181202 . 188185)) (188188 190565 (\TEDIT.TEXTOBJ.PROPNAMES 188198 . 189457
-) (\TEDIT.TEXTOBJ.PROPFETCHFN 189459 . 189975) (\TEDIT.TEXTOBJ.PROPSTOREFN 189977 . 190563)))))
+  (FILEMAP (NIL (36156 66033 (\TEDIT.TEXTBIN 36166 . 46068) (\TEDIT.TEXTPEEKBIN 46070 . 51495) (
+\TEDIT.TEXTBACKFILEPTR 51497 . 57204) (\TEDIT.TEXTBOUT 57206 . 61823) (\TEDIT.INSTALL.FILEBUFFER 61825
+ . 66031)) (66931 71222 (\TEDIT.TEXTOUTCHARFN 66941 . 68497) (\TEDIT.TEXTINCCODEFN 68499 . 69238) (
+\TEDIT.TEXTBACKCCODEFN 69240 . 69832) (\TEDIT.TEXTFORMATBYTESTREAM 69834 . 70671) (
+\TEDIT.TEXTFORMATBYTESTRING 70673 . 71220)) (71269 83344 (OPENTEXTSTREAM 71279 . 78255) (
+COPYTEXTSTREAM 78257 . 82567) (TEDIT.STREAMCHANGEDP 82569 . 82871) (TXTFILE 82873 . 83342)) (83345 
+106550 (\TEDIT.REOPENTEXTSTREAM 83355 . 84707) (\TEDIT.OPENTEXTSTREAM.PIECES 84709 . 89637) (
+\TEDIT.OPENTEXTSTREAM.PROPS 89639 . 90741) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90743 . 96193) (
+\TEDIT.OPENTEXTSTREAM.WINDOW 96195 . 98986) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 98988 . 100927) (
+\TEDIT.OPENTEXTFILE 100929 . 103061) (\TEDIT.CREATE.TEXTSTREAM 103063 . 104210) (\TEDIT.REOPEN.STREAM 
+104212 . 106548)) (106551 114883 (\TEDIT.STREAMINIT 106561 . 114700) (TEDIT.IMAGESTREAM.OPEN 114702 . 
+114881)) (115071 116259 (\TEDIT.TTYBOUT 115081 . 116257)) (116377 138060 (\TEDIT.TEXTCLOSEF 116387 . 
+117711) (\TEDIT.TEXTDSPFONT 117713 . 118911) (\TEDIT.TEXTEOFP 118913 . 120668) (\TEDIT.TEXTGETEOFPTR 
+120670 . 120993) (\TEDIT.TEXTSETEOFPTR 120995 . 122282) (\TEDIT.TEXTGETFILEPTR 122284 . 125119) (
+\TEDIT.TEXTSETFILEINFO 125121 . 125629) (\TEDIT.TEXTOPENF 125631 . 126562) (\TEDIT.TEXTSETEOF 126564
+ . 127180) (\TEDIT.TEXTSETFILEPTR 127182 . 129292) (\TEDIT.TEXTDSPXPOSITION 129294 . 131997) (
+\TEDIT.TEXTDSPYPOSITION 131999 . 132740) (\TEDIT.TEXTLEFTMARGIN 132742 . 133333) (\TEDIT.TEXTCOLOR 
+133335 . 133918) (\TEDIT.TEXTRIGHTMARGIN 133920 . 137209) (\TEDIT.TEXTDSPCHARWIDTH 137211 . 137515) (
+\TEDIT.TEXTDSPSTRINGWIDTH 137517 . 137823) (\TEDIT.TEXTDSPLINEFEED 137825 . 138058)) (138098 150332 (
+\TEDIT.NTHCHARCODE 138108 . 139634) (\TEDIT.PIECE.NTHCHARCODE 139636 . 143204) (\TEDIT.RPLCHARCODE 
+143206 . 144764) (\TEDIT.PIECE.RPLCHARCODE 144766 . 149977) (\TEDIT.NTHCHARLOOKS 149979 . 150330)) (
+151379 172254 (\TEDIT.DELETE.SELPIECES 151389 . 155014) (\TEDIT.INSERTCH 155016 . 162821) (
+\TEDIT.INSERTCH.HISTORY 162823 . 166287) (\TEDIT.INSERTEOL 166289 . 168114) (\TEDIT.INSERTCH.INSERTION
+ 168116 . 170953) (\TEDIT.INSERTCH.EXTEND 170955 . 172252)) (172255 173862 (\TEDIT.NEXTCHANGEABLE.CHNO
+ 172265 . 172980) (\TEDIT.LASTCHANGEABLE.CHNO 172982 . 173860)) (173863 178652 (\TEDIT.INSTALL.PIECE 
+173873 . 178650)) (178690 188156 (TEXTPROP 178700 . 179047) (GETTEXTPROP 179049 . 179293) (PUTTEXTPROP
+ 179295 . 179552) (GETTEXTPROPS 179554 . 179998) (PUTTEXTPROPS 180000 . 180904) (TEXTPROP.ADD 180906
+ . 181169) (\TEDIT.TEXTPROP 181171 . 188154)) (188157 190534 (\TEDIT.TEXTOBJ.PROPNAMES 188167 . 189426
+) (\TEDIT.TEXTOBJ.PROPFETCHFN 189428 . 189944) (\TEDIT.TEXTOBJ.PROPSTOREFN 189946 . 190532)))))
 STOP

library/tedit/TEDIT-WINDOW

@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "10-May-2026 18:05:02" {MEDLEY}<library>tedit>TEDIT-WINDOW.;899
 235055 
+
(FILECREATED " 7-Feb-2026 18:53:22" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;896
 234678 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS TEDIT.DEACTIVATE.WINDOW \TEDIT.WINDOW.GETREGION)
+      :CHANGES-TO (FNS TEDIT.PROMPTPRINT)
 
-      :PREVIOUS-DATE " 7-Feb-2026 18:53:22" {MEDLEY}<library>tedit>TEDIT-WINDOW.;896)
+      :PREVIOUS-DATE " 5-Feb-2026 08:24:23" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;895)
 
 
 (PRETTYCOMPRINT TEDIT-WINDOWCOMS)
@@ -458,8 +458,7 @@
          WINDOW])
 
 (\TEDIT.WINDOW.GETREGION

-  [LAMBDA (TSTREAM REGIONTYPE PHEIGHT)
                       (* ; "Edited 10-May-2026 16:32 by rmk")


-                                                             (* ; "Edited  5-Feb-2026 08:24 by rmk")


+  [LAMBDA (TSTREAM REGIONTYPE PHEIGHT)
                       (* ; "Edited  5-Feb-2026 08:24 by rmk")


                                                              (* ; "Edited 27-Jan-2026 15:30 by rmk")


                                                              (* ; "Edited 25-Jan-2026 20:09 by rmk")


                                                              (* ; "Edited 25-Oct-2025 10:27 by rmk")


@@ -553,7 +552,7 @@
                  (CL:WHEN (TXTFILE TSTREAM)
                      (printout PROMPTWINDOW " for " 2 (GETTEXTPROP TSTREAM 'FILENAME)))
                  (TERPRI PROMPTWINDOW)
-                 (GETREGION WIDTH HEIGHT])
+                 (GETBOXREGION WIDTH HEIGHT])
 
 (\TEDIT.WINDOW.SETUP

   [LAMBDA (PANE TSTREAM PROPS AFTERPANE LCHAR1)
              (* ; "Edited 15-Jan-2026 10:35 by rmk")


@@ -2394,8 +2393,7 @@
 (DEFINEQ
 
 (TEDIT.DEACTIVATE.WINDOW

-  [LAMBDA (PANE)
                                             (* ; "Edited 10-May-2026 18:03 by rmk")


-                                                             (* ; "Edited 30-May-2025 12:54 by rmk")


+  [LAMBDA (PANE)
                                             (* ; "Edited 30-May-2025 12:54 by rmk")


                                                              (* ; "Edited  9-May-2025 14:54 by rmk")


                                                              (* ; "Edited  6-May-2025 15:57 by rmk")


                                                              (* ; "Edited  4-May-2025 21:45 by rmk")


@@ -2457,10 +2455,7 @@
 
                                                       "Close the file that this window was open on.")

                (CL:UNLESS (fetch
 (TEXTWINDOW CLOSINGFILE) of
 PANEWINDOW)
                    (replace
 (TEXTWINDOW CLOSINGFILE) of
 PANEWINDOW with
 T)
-                   (CLOSEF? (FGETTOBJ TEXTOBJ TXTFILE))))
-           (CL:WHEN (FGETTOBJ TEXTOBJ MENUFLG)               (* ; 
-
                                                  "This is a menu, detach it so that space closes up")

-               (FREEATTACHEDWINDOW PANEWINDOW))              (* ; " Close any open menus")

+                   (CLOSEF? (FGETTOBJ TEXTOBJ TXTFILE))))    (* ; "Close any open menus")

            (for
 MENUW MTEXTOBJ in
 (ATTACHEDWINDOWS PANE) when
 (AND (SETQ MTEXTOBJ (TEXTOBJ MENUW T))
                                                                    (FGETTOBJ MTEXTOBJ MENUFLG))
               do
 
@@ -2468,9 +2463,12 @@
 
                  (FSETTOBJ MTEXTOBJ EDITFINISHEDFLG T)
                  (WINDOWPROP MENUW 'TEDITMENU NIL)
-                 (TEDIT.KILL MTEXTOBJ))
-           (\TEDIT.CLOSEPANE
 PANE T)
-           (TEDIT.KILL TSTREAM])
+                 (GIVE.TTY.PROCESS MENUW))
+           (\TEDIT.CLOSEPANE
 PANE T)                         (* ; "We're already closing")

+
+     (* ;; "Let it kill itself")

+
+           (GIVE.TTY.PROCESS PANE])
 
 (\TEDIT.RESHAPEFN

   [LAMBDA (PANE BITS OLDREGION)
                              (* ; "Edited 20-Apr-2025 12:55 by rmk")


@@ -3700,36 +3698,36 @@
 (RPAQ? TEDIT.TITLED.ICON.TEMPLATE
 (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ 
                                          TEDIT.ICON.TITLE.REGION))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (17125 18021 (TEDIT.DEFER.UPDATES 17135 . 18019)) (18022 46329 (\TEDIT.WINDOW.CREATE 
-18032 . 24895) (\TEDIT.WINDOW.GETREGION 24897 . 30490) (\TEDIT.WINDOW.SETUP 30492 . 34999) (
-\TEDIT.MINIMAL.WINDOW.SETUP 35001 . 42961) (\TEDIT.CLEARPANE 42963 . 43680) (\TEDIT.FILL.PANES 43682
- . 46327)) (46330 70057 (\TEDIT.CURSORMOVEDFN 46340 . 51867) (\TEDIT.CURSOROUTFN 51869 . 52666) (
-\TEDIT.ACTIVE.WINDOWP 52668 . 53738) (\TEDIT.EXPANDFN 53740 . 54303) (\TEDIT.MAINW 54305 . 55585) (
-\TEDIT.MAINSTREAM 55587 . 55921) (\TEDIT.PRIMARYPANE 55923 . 56693) (\TEDIT.PANELIST 56695 . 57191) (
-\TEDIT.NEWREGIONFN 57193 . 59709) (\TEDIT.SET.WINDOW.EXTENT 59711 . 64693) (\TEDIT.SHRINK.ICONCREATE 
-64695 . 67428) (\TEDIT.SHRINKFN 67430 . 67839) (\TEDIT.PANEREGION 67841 . 70055)) (70089 105214 (
-\TEDIT.BUTTONEVENTFN 70099 . 84806) (\TEDIT.BUTTONEVENTFN.DOOPERATION 84808 . 92279) (
-\TEDIT.BUTTONEVENTFN.GETOPERATION 92281 . 94123) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 94125 . 97795) (
-\TEDIT.BUTTONEVENTFN.INACTIVE 97797 . 100227) (\TEDIT.BUTTONEVENTFN.INTITLE 100229 . 102064) (
-\TEDIT.COPYINSERTFN 102066 . 103198) (\TEDIT.FOREIGN.COPY 103200 . 105212)) (105215 122778 (
-\TEDIT.PANE.SPLIT 105225 . 109173) (\TEDIT.SPLITW 109175 . 117234) (\TEDIT.UNSPLITW 117236 . 121435) (
-\TEDIT.LINKPANES 121437 . 122200) (\TEDIT.UNLINKPANE 122202 . 122776)) (124212 125103 (TEDITWINDOWP 
-124222 . 125101)) (125140 128243 (TEDIT.GETINPUT 125150 . 127593) (\TEDIT.MAKEFILENAME 127595 . 128241
-)) (128292 136375 (TEDIT.PROMPTWINDOW 128302 . 128616) (TEDIT.PROMPTPRINT 128618 . 131585) (
-TEDIT.PROMPTCLEAR 131587 . 133422) (TEDIT.PROMPTFLASH 133424 . 134682) (\TEDIT.PROMPT.PAGEFULLFN 
-134684 . 136373)) (136613 147191 (\TEDIT.FILENAME 136623 . 137395) (\TEDIT.DEFAULT.TITLE 137397 . 
-139776) (\TEDIT.WINDOW.TITLE 139778 . 141947) (\TEDIT.LIKELY.FILENAME 141949 . 144673) (
-\TEDIT.UPDATE.TITLE 144675 . 147189)) (147234 159961 (TEDIT.DEACTIVATE.WINDOW 147244 . 153060) (
-\TEDIT.RESHAPEFN 153062 . 155147) (\TEDIT.REPAINTFN 155149 . 155373) (\TEDIT.CLOSESPLITS 155375 . 
-157820) (\TEDIT.CLOSEPANE 157822 . 159959)) (159962 202761 (\TEDIT.SCROLLFN 159972 . 162203) (
-\TEDIT.SCROLLCH.TOP 162205 . 164316) (\TEDIT.SCROLLCH.BOTTOM 164318 . 168648) (\TEDIT.SCROLLUP 168650
- . 174376) (\TEDIT.TOPLINE.YTOP 174378 . 176047) (\TEDIT.SCROLLDOWN 176049 . 183088) (
-\TEDIT.SCROLL.CARET 183090 . 185928) (\TEDIT.VISIBLECARETP 185930 . 188224) (\TEDIT.VISIBLECHARP 
-188226 . 189317) (\TEDIT.BITMAPLINES 189319 . 193239) (\TEDIT.SETPANE.TOPLINE 193241 . 193853) (
-\TEDIT.SHIFTLINES 193855 . 202759)) (202762 213631 (\TEDIT.ONSCREEN? 202772 . 207323) (
-\TEDIT.ONSCREEN.REGION 207325 . 210976) (\TEDIT.AFTERMOVEFN 210978 . 211875) (OFFSCREENP 211877 . 
-213629)) (213673 216487 (\TEDIT.PROCIDLEFN 213683 . 215343) (\TEDIT.PROCENTRYFN 215345 . 215790) (
-\TEDIT.PROCEXITFN 215792 . 216485)) (216566 229791 (\TEDIT.DOWNCARET 216576 . 217369) (
-\TEDIT.FLASHCARET 217371 . 219482) (\TEDIT.UPCARET 219484 . 220588) (TEDIT.NORMALIZECARET 220590 . 
-223808) (\TEDIT.SETCARET 223810 . 229161) (\TEDIT.CARET 229163 . 229789)))))
+  (FILEMAP (NIL (17097 17993 (TEDIT.DEFER.UPDATES 17107 . 17991)) (17994 46195 (\TEDIT.WINDOW.CREATE 
+18004 . 24867) (\TEDIT.WINDOW.GETREGION 24869 . 30356) (\TEDIT.WINDOW.SETUP 30358 . 34865) (
+\TEDIT.MINIMAL.WINDOW.SETUP 34867 . 42827) (\TEDIT.CLEARPANE 42829 . 43546) (\TEDIT.FILL.PANES 43548
+ . 46193)) (46196 69923 (\TEDIT.CURSORMOVEDFN 46206 . 51733) (\TEDIT.CURSOROUTFN 51735 . 52532) (
+\TEDIT.ACTIVE.WINDOWP 52534 . 53604) (\TEDIT.EXPANDFN 53606 . 54169) (\TEDIT.MAINW 54171 . 55451) (
+\TEDIT.MAINSTREAM 55453 . 55787) (\TEDIT.PRIMARYPANE 55789 . 56559) (\TEDIT.PANELIST 56561 . 57057) (
+\TEDIT.NEWREGIONFN 57059 . 59575) (\TEDIT.SET.WINDOW.EXTENT 59577 . 64559) (\TEDIT.SHRINK.ICONCREATE 
+64561 . 67294) (\TEDIT.SHRINKFN 67296 . 67705) (\TEDIT.PANEREGION 67707 . 69921)) (69955 105080 (
+\TEDIT.BUTTONEVENTFN 69965 . 84672) (\TEDIT.BUTTONEVENTFN.DOOPERATION 84674 . 92145) (
+\TEDIT.BUTTONEVENTFN.GETOPERATION 92147 . 93989) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 93991 . 97661) (
+\TEDIT.BUTTONEVENTFN.INACTIVE 97663 . 100093) (\TEDIT.BUTTONEVENTFN.INTITLE 100095 . 101930) (
+\TEDIT.COPYINSERTFN 101932 . 103064) (\TEDIT.FOREIGN.COPY 103066 . 105078)) (105081 122644 (
+\TEDIT.PANE.SPLIT 105091 . 109039) (\TEDIT.SPLITW 109041 . 117100) (\TEDIT.UNSPLITW 117102 . 121301) (
+\TEDIT.LINKPANES 121303 . 122066) (\TEDIT.UNLINKPANE 122068 . 122642)) (124078 124969 (TEDITWINDOWP 
+124088 . 124967)) (125006 128109 (TEDIT.GETINPUT 125016 . 127459) (\TEDIT.MAKEFILENAME 127461 . 128107
+)) (128158 136241 (TEDIT.PROMPTWINDOW 128168 . 128482) (TEDIT.PROMPTPRINT 128484 . 131451) (
+TEDIT.PROMPTCLEAR 131453 . 133288) (TEDIT.PROMPTFLASH 133290 . 134548) (\TEDIT.PROMPT.PAGEFULLFN 
+134550 . 136239)) (136479 147057 (\TEDIT.FILENAME 136489 . 137261) (\TEDIT.DEFAULT.TITLE 137263 . 
+139642) (\TEDIT.WINDOW.TITLE 139644 . 141813) (\TEDIT.LIKELY.FILENAME 141815 . 144539) (
+\TEDIT.UPDATE.TITLE 144541 . 147055)) (147100 159584 (TEDIT.DEACTIVATE.WINDOW 147110 . 152683) (
+\TEDIT.RESHAPEFN 152685 . 154770) (\TEDIT.REPAINTFN 154772 . 154996) (\TEDIT.CLOSESPLITS 154998 . 
+157443) (\TEDIT.CLOSEPANE 157445 . 159582)) (159585 202384 (\TEDIT.SCROLLFN 159595 . 161826) (
+\TEDIT.SCROLLCH.TOP 161828 . 163939) (\TEDIT.SCROLLCH.BOTTOM 163941 . 168271) (\TEDIT.SCROLLUP 168273
+ . 173999) (\TEDIT.TOPLINE.YTOP 174001 . 175670) (\TEDIT.SCROLLDOWN 175672 . 182711) (
+\TEDIT.SCROLL.CARET 182713 . 185551) (\TEDIT.VISIBLECARETP 185553 . 187847) (\TEDIT.VISIBLECHARP 
+187849 . 188940) (\TEDIT.BITMAPLINES 188942 . 192862) (\TEDIT.SETPANE.TOPLINE 192864 . 193476) (
+\TEDIT.SHIFTLINES 193478 . 202382)) (202385 213254 (\TEDIT.ONSCREEN? 202395 . 206946) (
+\TEDIT.ONSCREEN.REGION 206948 . 210599) (\TEDIT.AFTERMOVEFN 210601 . 211498) (OFFSCREENP 211500 . 
+213252)) (213296 216110 (\TEDIT.PROCIDLEFN 213306 . 214966) (\TEDIT.PROCENTRYFN 214968 . 215413) (
+\TEDIT.PROCEXITFN 215415 . 216108)) (216189 229414 (\TEDIT.DOWNCARET 216199 . 216992) (
+\TEDIT.FLASHCARET 216994 . 219105) (\TEDIT.UPCARET 219107 . 220211) (TEDIT.NORMALIZECARET 220213 . 
+223431) (\TEDIT.SETCARET 223433 . 228784) (\TEDIT.CARET 228786 . 229412)))))
 STOP

lispusers/DATEFORMAT-EDITOR

@@ -1,18 +1,43 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 10)
-
(FILECREATED "19-May-89 17:52:44" {ERINYES}<LISPUSERS>MEDLEY>DATEFORMAT-EDITOR.;1
 13443  
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-      changes to%:  (VARS DATEFORMAT-EDITORCOMS)
+
(FILECREATED " 3-May-2026 10:44:14" {MEDLEY}<lispusers>DATEFORMAT-EDITOR.;2
 14047  
 
-      previous date%: "16-Sep-88 12:50:52" {PHYLUM}<LISP>MEDLEY>LISPUSERS>DATEFORMAT-EDITOR.;1)
+      :EDIT-BY "lmm"
 
+      :CHANGES-TO (VARS DATEFORMAT-EDITORCOMS)
+
+      :PREVIOUS-DATE "19-May-89 17:52:44" {MEDLEY}<lispusers>DATEFORMAT-EDITOR.;1)
 
-(* "
-Copyright (c) 1987, 1988, 1989 by Johannes A. G. M. Koomen.  All rights reserved.
-")
 
 (PRETTYCOMPRINT DATEFORMAT-EDITORCOMS)
 
-(RPAQQ DATEFORMAT-EDITORCOMS ((* ;;; "This system provides a facility for editing date formats as described in section 12.5 of the Interlisp-D manual, Koto version.  User entry point is the function EDIT-DATEFORMAT.  Editing is accomplished using a FREEMENU.  Items displayed in this menu are stored on DATEFORMAT-EDITOR-ITEMS.  Call (GET-DATEFORMAT-EDITOR T) after changing this variable.  Input to EDIT-DATEFORMAT is either NIL or a value returned by the DATEFORMAT function.  Output is either NIL -- in case editing was aborted -- or another value as returned from the DATEFORMAT function.") (* ;;; "Interface") (FNS EDIT-DATEFORMAT GET-DATEFORMAT-EDITOR) (INITVARS (EDIT-DATEFORMAT-DEFAULT (DATEFORMAT))) (* ;;; "Support") (FILES (SYSLOAD) FREEMENU) (FNS DATEFORMAT-EDITOR-STATUS DATEFORMAT-EDITOR-GET-STATE DATEFORMAT-EDITOR-PUT-STATE DATEFORMAT-EDITOR-SHOW-STATE DATEFORMAT-EDITOR-ABORTFN DATEFORMAT-EDITOR-CLOSEFN DATEFORMAT-EDITOR-GETDFLTFN DATEFORMAT-EDITOR-PUTDFLTFN DATEFORMAT-EDITOR-QUITFN DATEFORMAT-EDITOR-SHOWFN) (VARS $$DATEFORMAT-EDITOR-ITEMS) (INITVARS (DATEFORMAT-EDITOR-ITEMS (COPY $$DATEFORMAT-EDITOR-ITEMS))) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS ($$DATEFORMAT-EDITOR (GET-DATEFORMAT-EDITOR)) ($$DATEFORMAT-EDITOR-IDATE (IDATE " 1-Jan-88 23:56:41"))) (P (COND ((NOT (GETD (QUOTE \OUTDATE-STRING))) (* ; "Get DATE extensions") (FILESLOAD (SYSLOAD) DATEPATCH))))) (PROP MAKEFILE-ENVIRONMENT DATEFORMAT-EDITOR)))
+(RPAQQ DATEFORMAT-EDITORCOMS

+       (
+
+(* ;;; "This system provides a facility for editing date formats as described in section 12.5 of the Interlisp-D manual, Koto version.  User entry point is the function EDIT-DATEFORMAT.  Editing is accomplished using a FREEMENU.  Items displayed in this menu are stored on DATEFORMAT-EDITOR-ITEMS.  Call (GET-DATEFORMAT-EDITOR T) after changing this variable.  Input to EDIT-DATEFORMAT is either NIL or a value returned by the DATEFORMAT function.  Output is either NIL -- in case editing was aborted -- or another value as returned from the DATEFORMAT function.")

+
+        
+
+(* ;;; "Interface")

+
+        (FNS EDIT-DATEFORMAT GET-DATEFORMAT-EDITOR)
+        (INITVARS (EDIT-DATEFORMAT-DEFAULT (DATEFORMAT)))
+        
+
+(* ;;; "Support")

+
+        (FILES FREEMENU)
+        (FNS DATEFORMAT-EDITOR-STATUS DATEFORMAT-EDITOR-GET-STATE DATEFORMAT-EDITOR-PUT-STATE 
+             DATEFORMAT-EDITOR-SHOW-STATE DATEFORMAT-EDITOR-ABORTFN DATEFORMAT-EDITOR-CLOSEFN 
+             DATEFORMAT-EDITOR-GETDFLTFN DATEFORMAT-EDITOR-PUTDFLTFN DATEFORMAT-EDITOR-QUITFN 
+             DATEFORMAT-EDITOR-SHOWFN)
+        (VARS $$DATEFORMAT-EDITOR-ITEMS)
+        (INITVARS (DATEFORMAT-EDITOR-ITEMS (COPY $$DATEFORMAT-EDITOR-ITEMS)))
+        [DECLARE%: DONTEVAL@LOAD DOCOPY (VARS ($$DATEFORMAT-EDITOR (GET-DATEFORMAT-EDITOR))
+                                              ($$DATEFORMAT-EDITOR-IDATE (IDATE 
+                                                                               " 1-Jan-1988 23:56:41"
+                                                                                ]
+        (PROP MAKEFILE-ENVIRONMENT DATEFORMAT-EDITOR)))
 
 
 
@@ -36,14 +61,14 @@ Copyright (c) 1987, 1988, 1989 by Johannes A. G. M. Koomen.  All rights reserved
 )
 )
 
-(RPAQ? EDIT-DATEFORMAT-DEFAULT (DATEFORMAT))
+(RPAQ? EDIT-DATEFORMAT-DEFAULT
 (DATEFORMAT))
 
 
 
 (* ;;; "Support")

 
 
-(FILESLOAD (SYSLOAD) FREEMENU)
+(FILESLOAD FREEMENU)
 (DEFINEQ
 
 (DATEFORMAT-EDITOR-STATUS

@@ -87,26 +112,76 @@ Copyright (c) 1987, 1988, 1989 by Johannes A. G. M. Koomen.  All rights reserved
 )
 )
 
-(RPAQQ $$DATEFORMAT-EDITOR-ITEMS (((TYPE MOMENTARY LABEL "Quit" FONT (GACHA 10 BOLD) SELECTEDFN DATEFORMAT-EDITOR-QUITFN MESSAGE "Stop editing, return current settings") (TYPE DISPLAY LABEL "") (TYPE MOMENTARY LABEL "Abort" FONT (GACHA 10 BOLD) SELECTEDFN DATEFORMAT-EDITOR-ABORTFN MESSAGE "Stop editing, ignore changes, return NIL") (TYPE DISPLAY LABEL "      Default:") (TYPE MOMENTARY LABEL "Get" FONT (GACHA 10 BOLD) SELECTEDFN DATEFORMAT-EDITOR-GETDFLTFN MESSAGE "Use default settings") (TYPE MOMENTARY LABEL "Put" FONT (GACHA 10 BOLD) SELECTEDFN DATEFORMAT-EDITOR-PUTDFLTFN MESSAGE "Save settings as default") (TYPE DISPLAY LABEL "")) ((TYPE DISPLAY LABEL "")) ((TYPE DISPLAY LABEL "DATE:     " FONT (GACHA 10 BOLD))) ((TYPE DISPLAY LABEL "  Format: " FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION DATE ID DATE-NORMAL LABEL "dd-mon-yy" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION DATE ID DATE-SLASHES LABEL "dd/mon/yy" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION DATE ID DATE-NONE LABEL "none" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL "          ") (TYPE NWAY COLLECTION DATE ID DATE-SPACES LABEL "dd mon yy" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION DATE ID DATE-LEADING LABEL "mon dd, yy" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL "  Year:   " FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION YEAR ID YEAR-LONG LABEL "long" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION YEAR ID YEAR-SHORT LABEL "short" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL "  Month:  " FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION MONTH ID MONTH-LONG LABEL "long" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION MONTH ID MONTH-SHORT LABEL "short" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION MONTH ID MONTH-NUMERIC LABEL "numeric" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL "  Weekday:" FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION DAY ID DAY-LONG LABEL "long" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION DAY ID DAY-SHORT LABEL "short" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION DAY ID DAY-NONE LABEL "none" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL "  Spaces: " FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION LEADER ID LEADER-YES LABEL "yes" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION LEADER ID LEADER-NO LABEL "no" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL "")) ((TYPE DISPLAY LABEL "TIME:" FONT (GACHA 10 BOLD))) ((TYPE DISPLAY LABEL "  Format:   " FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION TIME ID TIME-SECS LABEL "hh:mm:ss" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION TIME ID TIME-MINS LABEL "hh:mm" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION TIME ID TIME-NONE LABEL "none" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL "  Time Zone:" FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION TIMEZONE ID TIMEZONE-YES LABEL "yes" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION TIMEZONE ID TIMEZONE-NO LABEL "no" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN))))
+(RPAQQ $$DATEFORMAT-EDITOR-ITEMS

+       (((TYPE MOMENTARY LABEL "Quit" FONT (GACHA 10 BOLD)
+               SELECTEDFN DATEFORMAT-EDITOR-QUITFN MESSAGE "Stop editing, return current settings")
+         (TYPE DISPLAY LABEL "")
+         (TYPE MOMENTARY LABEL "Abort" FONT (GACHA 10 BOLD)
+               SELECTEDFN DATEFORMAT-EDITOR-ABORTFN MESSAGE 
+               "Stop editing, ignore changes, return NIL")
+         (TYPE DISPLAY LABEL "      Default:")
+         (TYPE MOMENTARY LABEL "Get" FONT (GACHA 10 BOLD)
+               SELECTEDFN DATEFORMAT-EDITOR-GETDFLTFN MESSAGE "Use default settings")
+         (TYPE MOMENTARY LABEL "Put" FONT (GACHA 10 BOLD)
+               SELECTEDFN DATEFORMAT-EDITOR-PUTDFLTFN MESSAGE "Save settings as default")
+         (TYPE DISPLAY LABEL ""))
+        ((TYPE DISPLAY LABEL ""))
+        ((TYPE DISPLAY LABEL "DATE:     " FONT (GACHA 10 BOLD)))
+        ((TYPE DISPLAY LABEL "  Format: " FONT (GACHA 10 BOLD))
+         (TYPE NWAY COLLECTION DATE ID DATE-NORMAL LABEL "dd-mon-yyyy" SELECTEDFN 
+               DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION DATE ID DATE-SLASHES LABEL "dd/mon/yyyy" SELECTEDFN 
+               DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION DATE ID DATE-NONE LABEL "none" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN))
+        ((TYPE DISPLAY LABEL "          ")
+         (TYPE NWAY COLLECTION DATE ID DATE-SPACES LABEL "dd mon yyyy" SELECTEDFN 
+               DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION DATE ID DATE-LEADING LABEL "mon dd, yyyy??" SELECTEDFN 
+               DATEFORMAT-EDITOR-SHOWFN))
+        ((TYPE DISPLAY LABEL "  Year:   " FONT (GACHA 10 BOLD))
+         (TYPE NWAY COLLECTION YEAR ID YEAR-LONG LABEL "long" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION YEAR ID YEAR-SHORT LABEL "short" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN))
+        ((TYPE DISPLAY LABEL "  Month:  " FONT (GACHA 10 BOLD))
+         (TYPE NWAY COLLECTION MONTH ID MONTH-LONG LABEL "long" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION MONTH ID MONTH-SHORT LABEL "short" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN
+               )
+         (TYPE NWAY COLLECTION MONTH ID MONTH-NUMERIC LABEL "numeric" SELECTEDFN 
+               DATEFORMAT-EDITOR-SHOWFN))
+        ((TYPE DISPLAY LABEL "  Weekday:" FONT (GACHA 10 BOLD))
+         (TYPE NWAY COLLECTION DAY ID DAY-LONG LABEL "long" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION DAY ID DAY-SHORT LABEL "short" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION DAY ID DAY-NONE LABEL "none" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN))
+        ((TYPE DISPLAY LABEL "  Spaces: " FONT (GACHA 10 BOLD))
+         (TYPE NWAY COLLECTION LEADER ID LEADER-YES LABEL "yes" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION LEADER ID LEADER-NO LABEL "no" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN))
+        ((TYPE DISPLAY LABEL ""))
+        ((TYPE DISPLAY LABEL "TIME:" FONT (GACHA 10 BOLD)))
+        ((TYPE DISPLAY LABEL "  Format:   " FONT (GACHA 10 BOLD))
+         (TYPE NWAY COLLECTION TIME ID TIME-SECS LABEL "hh:mm:ss" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN
+               )
+         (TYPE NWAY COLLECTION TIME ID TIME-MINS LABEL "hh:mm" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION TIME ID TIME-NONE LABEL "none" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN))
+        ((TYPE DISPLAY LABEL "  Time Zone:" FONT (GACHA 10 BOLD))
+         (TYPE NWAY COLLECTION TIMEZONE ID TIMEZONE-YES LABEL "yes" SELECTEDFN 
+               DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION TIMEZONE ID TIMEZONE-NO LABEL "no" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN
+               ))))
 
-(RPAQ? DATEFORMAT-EDITOR-ITEMS (COPY $$DATEFORMAT-EDITOR-ITEMS))
+(RPAQ? DATEFORMAT-EDITOR-ITEMS
 (COPY $$DATEFORMAT-EDITOR-ITEMS))
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
 
-(RPAQ $$DATEFORMAT-EDITOR (GET-DATEFORMAT-EDITOR))
+(RPAQ $$DATEFORMAT-EDITOR
 (GET-DATEFORMAT-EDITOR))
 
-(RPAQ $$DATEFORMAT-EDITOR-IDATE (IDATE " 1-Jan-88 23:56:41"))
-
-
-(COND ((NOT (GETD (QUOTE \OUTDATE-STRING))) (* ; "Get DATE extensions") (FILESLOAD (SYSLOAD) DATEPATCH)))
+(RPAQ $$DATEFORMAT-EDITOR-IDATE
 (IDATE " 1-Jan-1988 23:56:41"))
 )
 
-(PUTPROPS DATEFORMAT-EDITOR MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10))
-(PUTPROPS DATEFORMAT-EDITOR COPYRIGHT ("Johannes A. G. M. Koomen" 1987 1988 1989))
+(PUTPROPS DATEFORMAT-EDITOR
 MAKEFILE-ENVIRONMENT
 (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 
+                                                        10))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2483 4408 (EDIT-DATEFORMAT 2493 . 3520) (GET-DATEFORMAT-EDITOR 3522 . 4406)) (4513 9803
- (DATEFORMAT-EDITOR-STATUS 4523 . 4743) (DATEFORMAT-EDITOR-GET-STATE 4745 . 6551) (
-DATEFORMAT-EDITOR-PUT-STATE 6553 . 8363) (DATEFORMAT-EDITOR-SHOW-STATE 8365 . 8616) (
-DATEFORMAT-EDITOR-ABORTFN 8618 . 8758) (DATEFORMAT-EDITOR-CLOSEFN 8760 . 8949) (
-DATEFORMAT-EDITOR-GETDFLTFN 8951 . 9218) (DATEFORMAT-EDITOR-PUTDFLTFN 9220 . 9456) (
-DATEFORMAT-EDITOR-QUITFN 9458 . 9596) (DATEFORMAT-EDITOR-SHOWFN 9598 . 9801)))))
+  (FILEMAP (NIL (2634 4559 (EDIT-DATEFORMAT 2644 . 3671) (GET-DATEFORMAT-EDITOR 3673 . 4557)) (4658 9948
+ (DATEFORMAT-EDITOR-STATUS 4668 . 4888) (DATEFORMAT-EDITOR-GET-STATE 4890 . 6696) (
+DATEFORMAT-EDITOR-PUT-STATE 6698 . 8508) (DATEFORMAT-EDITOR-SHOW-STATE 8510 . 8761) (
+DATEFORMAT-EDITOR-ABORTFN 8763 . 8903) (DATEFORMAT-EDITOR-CLOSEFN 8905 . 9094) (
+DATEFORMAT-EDITOR-GETDFLTFN 9096 . 9363) (DATEFORMAT-EDITOR-PUTDFLTFN 9365 . 9601) (
+DATEFORMAT-EDITOR-QUITFN 9603 . 9741) (DATEFORMAT-EDITOR-SHOWFN 9743 . 9946)))))
 STOP

lispusers/DOC-OBJECTS

@@ -1,12 +1,31 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED " 9-Dec-2024 21:07:13" {WMEDLEY}<lispusers>DOC-OBJECTS.;58
 52672  
+
(FILECREATED " 3-May-2026 10:44:14" {MEDLEY}<lispusers>DOC-OBJECTS.;2
 53774  
 
-      :EDIT-BY rmk
+      :EDIT-BY "lmm"
 
-      :CHANGES-TO (FNS DOCOBJ-STRING-IMAGEBOX)
+      :CHANGES-TO (VARS DOC-OBJECTSCOMS)
+                  (FNS DOCOBJ-ACQUIRE-OBJECT DOCOBJ-INIT DOCOBJ-TEDIT-MENU-ENTRY DOCOBJ-GET-LOOKS 
+                       DOCOBJ-REGISTER-OBJECT DOCOBJ-STRING-IMAGEBOX DOCOBJ-WAIT-MOUSE 
+                       DOCOBJ-BEFOREHARDCOPYFN DOCOBJ-AFTERHARDCOPYFN DOCOBJ-ACQUIRE-EVALED-OBJECT 
+                       DOCOBJ-ACQUIRE-SNAPPED-OBJECT DOCOBJ-EDIT-TIMESTAMP DOCOBJ-MAKE-TIMESTAMP 
+                       DOCOBJ-MAKE-TIMESTAMP-IMAGEFNS DOCOBJ-TIMESTAMP-BUTTONEVENTINFN 
+                       DOCOBJ-TIMESTAMP-COPYFN DOCOBJ-TIMESTAMP-DISPLAYFN DOCOBJ-TIMESTAMP-GETFN 
+                       DOCOBJ-TIMESTAMP-IMAGEBOXFN DOCOBJ-TIMESTAMP-PREPRINTFN DOCOBJ-TIMESTAMP-PUTFN
+                       DOCOBJ-TIMESTAMP-TO-STRING DOCOBJ-MAKE-FILESTAMP 
+                       DOCOBJ-MAKE-FILESTAMP-IMAGEFNS DOCOBJ-FILESTAMP-COPYFN 
+                       DOCOBJ-FILESTAMP-DISPLAYFN DOCOBJ-FILESTAMP-GETFN DOCOBJ-FILESTAMP-IMAGEBOXFN
+                       DOCOBJ-FILESTAMP-GET-FULLNAME DOCOBJ-FILESTAMP-NEW-FULLNAME 
+                       DOCOBJ-FILESTAMP-PREPRINTFN DOCOBJ-FILESTAMP-PUTFN DOCOBJ-MAKE-HRULE 
+                       DOCOBJ-EDIT-HRULE DOCOBJ-HRULE-INIT DOCOBJ-HRULE-GET-WIDTH 
+                       DOCOBJ-HRULE-BUTTONEVENTINFN DOCOBJ-MAKE-INCLUDE DOCOBJ-MAKE-INCLUDE-IMAGEFNS
+                       DOCOBJ-INCLUDE-CREATE-OBJ DOCOBJ-INCLUDE-EDIT DOCOBJ-INCLUDE-EDIT-WINDOWP 
+                       DOCOBJ-INCLUDE-RESET-OBJ DOCOBJ-INCLUDE-BEFOREHARDCOPYFN 
+                       DOCOBJ-INCLUDE-CLEANUPFN DOCOBJ-INCLUDE-BUTTONEVENTINFN DOCOBJ-INCLUDE-COPYFN
+                       DOCOBJ-INCLUDE-DISPLAYFN DOCOBJ-INCLUDE-GETFN DOCOBJ-INCLUDE-IMAGEBOXFN 
+                       DOCOBJ-INCLUDE-PREPRINTFN DOCOBJ-INCLUDE-PUTFN)
 
-      :PREVIOUS-DATE " 8-Dec-2024 15:49:01" {WMEDLEY}<lispusers>DOC-OBJECTS.;57)
+      :PREVIOUS-DATE " 9-Dec-2024 21:07:13" {MEDLEY}<lispusers>DOC-OBJECTS.;1)
 
 
 (PRETTYCOMPRINT DOC-OBJECTSCOMS)
@@ -16,8 +35,7 @@
 
 (* ;;; "This TEdit subsystem implements an extensible facility originally intended to provide bibliography and citation capabilities.  The TEdit function GET.OBJ.FROM.USER, the one triggered by typing ^O, calls the function PROMPTFOREVALED which is redefined by this subsystem to be equivalent to the function DocObj-Acquire-Object.  This function inserts IMAGEOBJects into the current TEdit, and is driven by the variables DocObjectsMenu and DocObjectsMenuCommands (analogous to BackgroundMenu and BackgroundMenuCommands).  Each menu entry contains a form that, when EVAL'd, creates and returns a particular kind of IMAGEOBJ.  Note that this form is EVAL'd under the function DocObj-Acquire-Object, which runs under the function GET.OBJ.FROM.USER, which gets TEXTSTREAM and TEXTOBJ as arguments.  They can be (and are) used freely to record state or other desired info.  The image objects supplied by this subsystem are 'Eval`d Form' (i.e., the original behavior of ^O), 'Screen Snap' (equivalent to right-buttoning in the background while holding the SHIFT key down), etc.")

 
-        (FILES (SYSLOAD)
-               TEDIT IMAGEOBJ)
+        (FILES TEDIT IMAGEOBJ)
         (DECLARE%: EVAL@COMPILE DONTCOPY (FILES TEDIT-EXPORTS.ALL))
         (VARS (DocObjectsMenu NIL)
               (DocObjectsConfirmEditMenu NIL))
@@ -45,8 +63,7 @@
               (* ;; "Time Stamp")

 
               (DECLARE%: DONTCOPY (RECORDS DOCOBJ-TIMESTAMP))
-              (FILES (SYSLOAD)
-                     DATEFORMAT-EDITOR)
+              (FILES DATEFORMAT-EDITOR)
               (FNS DOCOBJ-EDIT-TIMESTAMP DOCOBJ-MAKE-TIMESTAMP DOCOBJ-MAKE-TIMESTAMP-IMAGEFNS 
                    DOCOBJ-TIMESTAMP-BUTTONEVENTINFN DOCOBJ-TIMESTAMP-COPYFN 
                    DOCOBJ-TIMESTAMP-DISPLAYFN DOCOBJ-TIMESTAMP-GETFN DOCOBJ-TIMESTAMP-IMAGEBOXFN 
@@ -70,8 +87,7 @@
         (COMS 
               (* ;; "Horizontal Rule")

 
-              (FILES (SYSLOAD)
-                     HRULE READNUMBER)
+              (FILES HRULE READNUMBER)
               (FNS DOCOBJ-MAKE-HRULE DOCOBJ-EDIT-HRULE DOCOBJ-HRULE-INIT DOCOBJ-HRULE-GET-WIDTH 
                    DOCOBJ-HRULE-BUTTONEVENTINFN)
               (VARS (DOCOBJ-HRULE-RULE-PAD)
@@ -107,8 +123,7 @@
 )

 
 
-(FILESLOAD (SYSLOAD)
-       TEDIT IMAGEOBJ)
+(FILESLOAD TEDIT IMAGEOBJ)
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 
 (FILESLOAD TEDIT-EXPORTS.ALL)
@@ -146,21 +161,17 @@
     (MENU DocObjectsMenu])
 
 (DOCOBJ-INIT

-  [LAMBDA NIL
                      (* ; 
-
                                   "Edited  8-Oct-87 21:32 by Koomen")

+  [LAMBDA NIL
                                               (* ; "Edited  8-Oct-87 21:32 by Koomen")

 
 (* ;;; "This function changes the behavior of standard TEdit such that ^O will invoke the DocObjects system;  an entry to invoke the DocObjects system is also added to TEdit's middle button menu.")

 
     (DECLARE
 (GLOBALVARS TEDIT.DEFAULT.MENU))
-    (CHANGENAME 'GET.OBJ.FROM.USER 'PROMPTFOREVALED '
-           DOCOBJ-ACQUIRE-OBJECT)
-    (TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENU
-           '(Object (FUNCTION DOCOBJ-TEDIT-MENU-ENTRY)
-                   "Insert a Document Object"])
+    (CHANGENAME 'GET.OBJ.FROM.USER 'PROMPTFOREVALED 'DOCOBJ-ACQUIRE-OBJECT)
+    (TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENU '(Object (FUNCTION DOCOBJ-TEDIT-MENU-ENTRY)
+                                                   "Insert a Document Object"])
 
 (DOCOBJ-TEDIT-MENU-ENTRY

-  [LAMBDA (TEXTSTREAM)
             (* ; 
-
                                   "Edited  8-Oct-87 21:31 by Koomen")

+  [LAMBDA (TEXTSTREAM)
                                      (* ; "Edited  8-Oct-87 21:31 by Koomen")

 
 (* ;;; "This is the entry point into the DocObjects system from TEdit's middle button menu.  GET.OBJ.FROM.USER used to call PROMPTFOREVALED but DocObjects changes this into a call to DOCOBJ-ACQUIRE-OBJECT.")

 
@@ -201,8 +212,8 @@
 
 (DOCOBJ-REGISTER-OBJECT

   [LAMBDA (OBJECT)
                                          (* ; "Edited 23-Oct-87 14:48 by Koomen")

-          
-          (* ;; "The following ensures that all DocObjects get a chance to do whatever they want to before and after hardcopying.  Each DocObject can associate a BEFOREHARDCOPYFN and/or an AFTERHARDCOPYFN with the ImageObj representing the DocObject")

+
+    (* ;; "The following ensures that all DocObjects get a chance to do whatever they want to before and after hardcopying.  Each DocObject can associate a BEFOREHARDCOPYFN and/or an AFTERHARDCOPYFN with the ImageObj representing the DocObject")

 
     (DECLARE
 (SPECVARS TEXTOBJ))
     (if
 OBJECT
@@ -230,11 +241,8 @@
                          XKERN _ 0])
 
 (DOCOBJ-WAIT-MOUSE

-  [LAMBDA (STREAM)
                 (* ; 
-
                                   "Edited  8-Oct-87 23:46 by Koomen")

-
-    (while
 (NOT (MOUSESTATE UP)) bind
 (REGION _
 (DSPCLIPPINGREGION
-                                                 NIL STREAM))
+  [LAMBDA (STREAM)
                                          (* ; "Edited  8-Oct-87 23:46 by Koomen")

+    (while
 (NOT (MOUSESTATE UP)) bind
 (REGION _ (DSPCLIPPINGREGION NIL STREAM))
        do
 (if
 (NOT (INSIDEP REGION (LASTMOUSEX STREAM)
                           (LASTMOUSEY STREAM)))
               then
 (RETURN NIL)) finally
 (RETURN T])
@@ -346,10 +354,9 @@
 (DEFINEQ
 
 (DOCOBJ-ACQUIRE-EVALED-OBJECT

-  [LAMBDA NIL
                             (* Koomen "30-Sep-86 02:08")

-       
-       (* * This is the original function called under 
-
       GET.OBJ.FROM.USER * *)

+  [LAMBDA NIL                                                (* Koomen "30-Sep-86 02:08")

+
+         (* * This is the original function called under GET.OBJ.FROM.USER * *)

 
     (PROMPTFOREVALED "Form to eval: "])
 )
@@ -364,7 +371,7 @@
 (DEFINEQ
 
 (DOCOBJ-ACQUIRE-SNAPPED-OBJECT

-  [LAMBDA NIL
                             (* Koomen "26-Sep-86 16:55")

+  [LAMBDA NIL                                                (* Koomen "26-Sep-86 16:55")

     (GETREGION])
 )
 
@@ -382,34 +389,27 @@
 )
 )
 
-(FILESLOAD (SYSLOAD)
-       DATEFORMAT-EDITOR)
+(FILESLOAD DATEFORMAT-EDITOR)
 (DEFINEQ
 
 (DOCOBJ-EDIT-TIMESTAMP

-  [LAMBDA (TIMESTAMP)
                     (* Koomen " 4-Feb-87 14:08")

-    (PROG [(FORMAT (EDIT-DATEFORMAT (fetch
 (DOCOBJ-TIMESTAMP FORMAT)
-                                       of
 TIMESTAMP]
+  [LAMBDA (TIMESTAMP)                                        (* Koomen " 4-Feb-87 14:08")

+    (PROG [(FORMAT (EDIT-DATEFORMAT (fetch
 (DOCOBJ-TIMESTAMP FORMAT) of
 TIMESTAMP]
           (if
 FORMAT
-              then
 (replace
 (DOCOBJ-TIMESTAMP FORMAT) of
 TIMESTAMP
-                      with
 FORMAT)
-                   (replace
 (DOCOBJ-TIMESTAMP DATESTR) of
 TIMESTAMP
-                      with
 NIL)
+              then
 (replace
 (DOCOBJ-TIMESTAMP FORMAT) of
 TIMESTAMP with
 FORMAT)
+                   (replace
 (DOCOBJ-TIMESTAMP DATESTR) of
 TIMESTAMP with
 NIL)
                    (RETURN TIMESTAMP])
 
 (DOCOBJ-MAKE-TIMESTAMP

-  [LAMBDA NIL
                             (* Koomen " 4-Feb-87 13:54")

-    (DECLARE
 (GLOBALVARS DOCOBJ-TIMESTAMP-IMAGEFNS 
-                    DocObjectsTimeStampFormat))
+  [LAMBDA NIL                                                (* Koomen " 4-Feb-87 13:54")

+    (DECLARE
 (GLOBALVARS DOCOBJ-TIMESTAMP-IMAGEFNS DocObjectsTimeStampFormat))
     (IMAGEOBJCREATE (create
 DOCOBJ-TIMESTAMP
-                           IDATE _
 (IDATE)
-                           FORMAT _
 DocObjectsTimeStampFormat)
+                           IDATE _ (IDATE)
+                           FORMAT _ DocObjectsTimeStampFormat)
            DOCOBJ-TIMESTAMP-IMAGEFNS])
 
 (DOCOBJ-MAKE-TIMESTAMP-IMAGEFNS

-  [LAMBDA NIL
                      (* ; 
-
                                   "Edited  8-Oct-87 22:53 by Koomen")

-
+  [LAMBDA NIL
                                               (* ; "Edited  8-Oct-87 22:53 by Koomen")

     (LET ((DISPLAYFN (FUNCTION DOCOBJ-TIMESTAMP-DISPLAYFN))
           (IMAGEBOXFN (FUNCTION DOCOBJ-TIMESTAMP-IMAGEBOXFN))
           (PUTFN (FUNCTION DOCOBJ-TIMESTAMP-PUTFN))
@@ -423,68 +423,58 @@
           (WHENCOPIEDFN (FUNCTION NILL))
           (WHENOPERATEDONFN (FUNCTION NILL))
           (PREPRINTFN (FUNCTION DOCOBJ-TIMESTAMP-PREPRINTFN)))
-         (IMAGEFNSCREATE DISPLAYFN IMAGEBOXFN PUTFN GETFN COPYFN 
-                BUTTONEVENTINFN COPYBUTTONEVENTINFN WHENMOVEDFN 
-                WHENINSERTEDFN WHENDELETEDFN WHENCOPIEDFN 
-                WHENOPERATEDONFN PREPRINTFN])
+         (IMAGEFNSCREATE DISPLAYFN IMAGEBOXFN PUTFN GETFN COPYFN BUTTONEVENTINFN COPYBUTTONEVENTINFN
+                WHENMOVEDFN WHENINSERTEDFN WHENDELETEDFN WHENCOPIEDFN WHENOPERATEDONFN PREPRINTFN])
 
 (DOCOBJ-TIMESTAMP-BUTTONEVENTINFN

-  [LAMBDA (IMAGEOBJ WINDOWSTREAM SELECTION RELX RELY WINDOW HOSTSTREAM 
-                 BUTTON)
           (* ; 
-
                                   "Edited  8-Oct-87 23:43 by Koomen")

-
+  [LAMBDA (IMAGEOBJ WINDOWSTREAM SELECTION RELX RELY WINDOW HOSTSTREAM BUTTON)

+                                                            (* ; "Edited  8-Oct-87 23:43 by Koomen")

     (if
 (AND (EQ BUTTON 'MIDDLE)
              (DOCOBJ-WAIT-MOUSE
 WINDOWSTREAM))
         then
 (ALLOW.BUTTON.EVENTS)
-             (if
 (DOCOBJ-EDIT-TIMESTAMP
 (IMAGEOBJPROP IMAGEOBJ
-                                               'OBJECTDATUM))
+             (if
 (DOCOBJ-EDIT-TIMESTAMP
 (IMAGEOBJPROP IMAGEOBJ 'OBJECTDATUM))
                  then
 'CHANGED])
 
 (DOCOBJ-TIMESTAMP-COPYFN

-  [LAMBDA (IMAGEOBJ SOURCEHOSTSTREAM TARGETHOSTSTREAM)

-                                          (* Koomen "31-Jan-87 00:30")

+  [LAMBDA (IMAGEOBJ SOURCEHOSTSTREAM TARGETHOSTSTREAM)       (* Koomen "31-Jan-87 00:30")

     (DECLARE
 (GLOBALVARS DOCOBJ-TIMESTAMP-IMAGEFNS))
     (IMAGEOBJCREATE (COPYALL (IMAGEOBJPROP IMAGEOBJ 'OBJECTDATUM))
            DOCOBJ-TIMESTAMP-IMAGEFNS])
 
 (DOCOBJ-TIMESTAMP-DISPLAYFN

-  [LAMBDA (IMAGEOBJ IMAGESTREAM IMAGESTREAMTYPE HOSTSTREAM)

-                                          (* Koomen " 4-Feb-87 14:11")

-    (PRINTOUT IMAGESTREAM (DOCOBJ-TIMESTAMP-TO-STRING

-                           (IMAGEOBJPROP IMAGEOBJ 'OBJECTDATUM])
+  [LAMBDA (IMAGEOBJ IMAGESTREAM IMAGESTREAMTYPE HOSTSTREAM)  (* Koomen " 4-Feb-87 14:11")

+    (PRINTOUT IMAGESTREAM (DOCOBJ-TIMESTAMP-TO-STRING
 (IMAGEOBJPROP IMAGEOBJ 'OBJECTDATUM])
 
 (DOCOBJ-TIMESTAMP-GETFN

-  [LAMBDA (FILESTREAM)
                    (* Koomen "31-Jan-87 00:19")

+  [LAMBDA (FILESTREAM)                                       (* Koomen "31-Jan-87 00:19")

     (DECLARE
 (GLOBALVARS DOCOBJ-TIMESTAMP-IMAGEFNS))
     (IMAGEOBJCREATE (READ FILESTREAM)
            DOCOBJ-TIMESTAMP-IMAGEFNS])
 
 (DOCOBJ-TIMESTAMP-IMAGEBOXFN

-  [LAMBDA (IMAGEOBJ IMAGESTREAM CURRENTX RIGHTMARGIN)

-                                          (* Koomen " 9-Feb-87 17:13")

+  [LAMBDA (IMAGEOBJ IMAGESTREAM CURRENTX RIGHTMARGIN)        (* Koomen " 9-Feb-87 17:13")

     (LET* ((TIMESTAMP (IMAGEOBJPROP IMAGEOBJ 'OBJECTDATUM))
            (TIMESTRING (DOCOBJ-TIMESTAMP-TO-STRING
 TIMESTAMP)))
           (DOCOBJ-STRING-IMAGEBOX
 TIMESTRING IMAGESTREAM])
 
 (DOCOBJ-TIMESTAMP-PREPRINTFN

-  [LAMBDA (IMAGEOBJ)
               (* ; 
-
                                   "Edited  8-Oct-87 22:29 by Koomen")

-
+  [LAMBDA (IMAGEOBJ)
                                        (* ; "Edited  8-Oct-87 22:29 by Koomen")

     (DOCOBJ-TIMESTAMP-TO-STRING
 (IMAGEOBJPROP IMAGEOBJ 'OBJECTDATUM])
 
 (DOCOBJ-TIMESTAMP-PUTFN

-  [LAMBDA (IMAGEOBJ FILESTREAM)
           (* Koomen " 4-Feb-87 14:08")

+  [LAMBDA (IMAGEOBJ FILESTREAM)                              (* Koomen " 4-Feb-87 14:08")

     (PROG [(TIMESTAMP (IMAGEOBJPROP IMAGEOBJ 'OBJECTDATUM]
           (replace
 (DOCOBJ-TIMESTAMP IDATE) of
 TIMESTAMP with
 (IDATE))
           (replace
 (DOCOBJ-TIMESTAMP DATESTR) of
 TIMESTAMP with
 NIL)
           (PRINT TIMESTAMP FILESTREAM])
 
 (DOCOBJ-TIMESTAMP-TO-STRING

-  [LAMBDA (TIMESTAMP)
                     (* Koomen " 4-Feb-87 14:12")

+  [LAMBDA (TIMESTAMP)                                        (* Koomen " 4-Feb-87 14:12")

     (OR (STRINGP (fetch
 (DOCOBJ-TIMESTAMP DATESTR) of
 TIMESTAMP))
-        (replace
 (DOCOBJ-TIMESTAMP DATESTR) of
 TIMESTAMP
-           with
 (GDATE (fetch
 (DOCOBJ-TIMESTAMP IDATE) of
 TIMESTAMP)
-                       (fetch
 (DOCOBJ-TIMESTAMP FORMAT) of
 TIMESTAMP])
+        (replace
 (DOCOBJ-TIMESTAMP DATESTR) of
 TIMESTAMP with
 (GDATE (fetch
 (DOCOBJ-TIMESTAMP IDATE)
+                                                                        of
 TIMESTAMP)
+                                                                     (fetch
 (DOCOBJ-TIMESTAMP FORMAT)
+                                                                        of
 TIMESTAMP])
 )
 
 (RPAQ? DocObjectsTimeStampFormat
 )
@@ -501,18 +491,14 @@
 (DEFINEQ
 
 (DOCOBJ-MAKE-FILESTAMP

-  [LAMBDA NIL
                      (* ; 
-
                                   "Edited  8-Oct-87 22:55 by Koomen")

-
+  [LAMBDA NIL
                                               (* ; "Edited  8-Oct-87 22:55 by Koomen")

     (DECLARE
 (SPECVARS TEXTOBJ)
            (GLOBALVARS DOCOBJ-FILESTAMP-IMAGEFNS))
     (IMAGEOBJCREATE (DOCOBJ-FILESTAMP-NEW-FULLNAME
 TEXTOBJ)
            DOCOBJ-FILESTAMP-IMAGEFNS])
 
 (DOCOBJ-MAKE-FILESTAMP-IMAGEFNS

-  [LAMBDA NIL
                      (* ; 
-
                                   "Edited  8-Oct-87 22:54 by Koomen")

-
+  [LAMBDA NIL
                                               (* ; "Edited  8-Oct-87 22:54 by Koomen")

     (LET ((DISPLAYFN (FUNCTION DOCOBJ-FILESTAMP-DISPLAYFN))
           (IMAGEBOXFN (FUNCTION DOCOBJ-FILESTAMP-IMAGEBOXFN))
           (PUTFN (FUNCTION DOCOBJ-FILESTAMP-PUTFN))
@@ -526,46 +512,33 @@
           (WHENCOPIEDFN (FUNCTION NILL))
           (WHENOPERATEDONFN (FUNCTION NILL))
           (PREPRINTFN (FUNCTION DOCOBJ-FILESTAMP-PREPRINTFN)))
-         (IMAGEFNSCREATE DISPLAYFN IMAGEBOXFN PUTFN GETFN COPYFN 
-                BUTTONEVENTINFN COPYBUTTONEVENTINFN WHENMOVEDFN 
-                WHENINSERTEDFN WHENDELETEDFN WHENCOPIEDFN 
-                WHENOPERATEDONFN PREPRINTFN])
+         (IMAGEFNSCREATE DISPLAYFN IMAGEBOXFN PUTFN GETFN COPYFN BUTTONEVENTINFN COPYBUTTONEVENTINFN
+                WHENMOVEDFN WHENINSERTEDFN WHENDELETEDFN WHENCOPIEDFN WHENOPERATEDONFN PREPRINTFN])
 
 (DOCOBJ-FILESTAMP-COPYFN

-  [LAMBDA (IMAGEOBJ SOURCEHOSTSTREAM TARGETHOSTSTREAM)

-                                          (* Koomen "31-Jan-87 04:10")

+  [LAMBDA (IMAGEOBJ SOURCEHOSTSTREAM TARGETHOSTSTREAM)       (* Koomen "31-Jan-87 04:10")

     (DECLARE
 (GLOBALVARS DOCOBJ-FILESTAMP-IMAGEFNS))
     (IMAGEOBJCREATE (IMAGEOBJPROP IMAGEOBJ 'OBJECTDATUM)
            DOCOBJ-FILESTAMP-IMAGEFNS])
 
 (DOCOBJ-FILESTAMP-DISPLAYFN

-  [LAMBDA (IMAGEOBJ IMAGESTREAM IMAGESTREAMTYPE HOSTSTREAM)

-                                   (* ; 
-
                                   "Edited  8-Oct-87 22:56 by Koomen")

-
+  [LAMBDA (IMAGEOBJ IMAGESTREAM IMAGESTREAMTYPE HOSTSTREAM)
 (* ; "Edited  8-Oct-87 22:56 by Koomen")

     (PRINTOUT IMAGESTREAM (DOCOBJ-FILESTAMP-GET-FULLNAME
 IMAGEOBJ])
 
 (DOCOBJ-FILESTAMP-GETFN

-  [LAMBDA (FILESTREAM)
             (* ; 
-
                                   "Edited  8-Oct-87 22:58 by Koomen")

-
+  [LAMBDA (FILESTREAM)
                                      (* ; "Edited  8-Oct-87 22:58 by Koomen")

     (DECLARE
 (GLOBALVARS DOCOBJ-FILESTAMP-IMAGEFNS))
     (LET ((FULLNAME (READ FILESTREAM)))
          (IMAGEOBJCREATE (AND FULLNAME (MKSTRING FULLNAME))
                 DOCOBJ-FILESTAMP-IMAGEFNS])
 
 (DOCOBJ-FILESTAMP-IMAGEBOXFN

-  [LAMBDA (IMAGEOBJ IMAGESTREAM CURRENTX RIGHTMARGIN)

-                                   (* ; 
-
                                   "Edited  8-Oct-87 22:59 by Koomen")

-
+  [LAMBDA (IMAGEOBJ IMAGESTREAM CURRENTX RIGHTMARGIN)
       (* ; "Edited  8-Oct-87 22:59 by Koomen")

     (LET ((FULLNAME (DOCOBJ-FILESTAMP-GET-FULLNAME
 IMAGEOBJ)))
          (DOCOBJ-STRING-IMAGEBOX
 FULLNAME IMAGESTREAM])
 
 (DOCOBJ-FILESTAMP-GET-FULLNAME

-  [LAMBDA (IMAGEOBJ NODEFAULTFLG)
  (* ; 
-
                                   "Edited  8-Oct-87 22:59 by Koomen")

-
+  [LAMBDA (IMAGEOBJ NODEFAULTFLG)
                           (* ; "Edited  8-Oct-87 22:59 by Koomen")

     (PROG [(FULLNAME (IMAGEOBJPROP IMAGEOBJ 'OBJECTDATUM]
           (RETURN (OR (if
 FULLNAME
                           then
 (if
 (LITATOM FULLNAME)
@@ -576,9 +549,7 @@
                           then
 "-- not yet filed --"])
 
 (DOCOBJ-FILESTAMP-NEW-FULLNAME

-  [LAMBDA (TEXTOBJ)
                (* ; 
-
                                   "Edited  8-Oct-87 22:52 by Koomen")

-
+  [LAMBDA (TEXTOBJ)
                                         (* ; "Edited  8-Oct-87 22:52 by Koomen")

     (PROG ((FULLNAME (FULLNAME TEXTOBJ)))
           (RETURN (if
 FULLNAME
                       then
 (if
 (LITATOM FULLNAME)
@@ -587,15 +558,11 @@
                                then
 (COPYALL FULLNAME])
 
 (DOCOBJ-FILESTAMP-PREPRINTFN

-  [LAMBDA (IMAGEOBJ)
               (* ; 
-
                                   "Edited  8-Oct-87 22:56 by Koomen")

-
+  [LAMBDA (IMAGEOBJ)
                                        (* ; "Edited  8-Oct-87 22:56 by Koomen")

     (DOCOBJ-FILESTAMP-GET-FULLNAME
 IMAGEOBJ T])
 
 (DOCOBJ-FILESTAMP-PUTFN

-  [LAMBDA (IMAGEOBJ FILESTREAM)
    (* ; 
-
                                   "Edited  8-Oct-87 22:39 by Koomen")

-
+  [LAMBDA (IMAGEOBJ FILESTREAM)
                             (* ; "Edited  8-Oct-87 22:39 by Koomen")

     (PROG [(FULLNAME (MKSTRING (FULLNAME FILESTREAM]
           (IMAGEOBJPROP IMAGEOBJ 'OBJECTDATUM FULLNAME)
           (PRINT FULLNAME FILESTREAM])
@@ -611,22 +578,19 @@
 (* ;; "Horizontal Rule")

 
 
-(FILESLOAD (SYSLOAD)
-       HRULE READNUMBER)
+(FILESLOAD HRULE READNUMBER)
 (DEFINEQ
 
 (DOCOBJ-MAKE-HRULE

-  [LAMBDA NIL
                             (* Koomen " 4-Feb-87 16:12")

-    (HRULE.CREATE (bind
 WIDTH for
 I from
 1
-                     while
 (AND (SETQ WIDTH (DOCOBJ-HRULE-GET-WIDTH

-                                             (ODDP I)
-                                             (EQ I 1)))
-                                (GREATERP WIDTH 0)) collect
 WIDTH])
+  [LAMBDA NIL                                                (* Koomen " 4-Feb-87 16:12")

+    (HRULE.CREATE (bind
 WIDTH for
 I from
 1 while
 (AND (SETQ WIDTH (DOCOBJ-HRULE-GET-WIDTH

+                                                                   (ODDP I)
+                                                                   (EQ I 1)))
+                                                      (GREATERP WIDTH 0)) collect
 WIDTH])
 
 (DOCOBJ-EDIT-HRULE

-  [LAMBDA (IMAGEOBJ)
                      (* Koomen " 4-Feb-87 15:45")

-    (PROG [NEWWIDTH (OLDWIDTH (MKLIST (IMAGEOBJPROP IMAGEOBJ
-                                             'RULE.WIDTH]
+  [LAMBDA (IMAGEOBJ)                                         (* Koomen " 4-Feb-87 15:45")

+    (PROG [NEWWIDTH (OLDWIDTH (MKLIST (IMAGEOBJPROP IMAGEOBJ 'RULE.WIDTH]
           (SETQ NEWWIDTH (COPYALL OLDWIDTH))
           (if
 (AND (NLSETQ (EDITE NEWWIDTH))
                    (NOT (EQUAL NEWWIDTH OLDWIDTH)))
@@ -634,18 +598,18 @@
                    (RETURN IMAGEOBJ])
 
 (DOCOBJ-HRULE-INIT

-  [LAMBDA NIL
                             (* Koomen " 4-Feb-87 16:13")

-       
-       (* * provide HRULE editing * *)

+  [LAMBDA NIL                                                (* Koomen " 4-Feb-87 16:13")

+
+         (* * provide HRULE editing * *)

 
     (DECLARE
 (GLOBALVARS HRULE.IMAGEFNS))
-    (replace
 (IMAGEFNS BUTTONEVENTINFN) of
 HRULE.IMAGEFNS
-       with
 (FUNCTION DOCOBJ-HRULE-BUTTONEVENTINFN))
+    (replace
 (IMAGEFNS BUTTONEVENTINFN) of
 HRULE.IMAGEFNS with
 (FUNCTION DOCOBJ-HRULE-BUTTONEVENTINFN
+                                                                ))
     NIL])
 
 (DOCOBJ-HRULE-GET-WIDTH

-  [LAMBDA (RULE? FIRST?)
                      (* ; 
-
                                                "Edited 24-May-93 23:35 by sybalsky:mv:envos")

+  [LAMBDA (RULE? FIRST?)                                     (* ; 
+
                                                        "Edited 24-May-93 23:35 by sybalsky:mv:envos")

     (DECLARE
 (GLOBALVARS DOCOBJ-HRULE-BLANK-PAD DOCOBJ-HRULE-RULE-PAD LASTMOUSEX LASTMOUSEY))
     [COND
        ((NULL DOCOBJ-HRULE-RULE-PAD)
@@ -660,10 +624,8 @@
            T])
 
 (DOCOBJ-HRULE-BUTTONEVENTINFN

-  [LAMBDA (IMAGEOBJ WINDOWSTREAM SELECTION RELX RELY WINDOW HOSTSTREAM 
-                 BUTTON)
           (* ; 
-
                                   "Edited  8-Oct-87 23:43 by Koomen")

-
+  [LAMBDA (IMAGEOBJ WINDOWSTREAM SELECTION RELX RELY WINDOW HOSTSTREAM BUTTON)

+                                                            (* ; "Edited  8-Oct-87 23:43 by Koomen")

     (if
 (AND (EQ BUTTON 'MIDDLE)
              (DOCOBJ-WAIT-MOUSE
 WINDOWSTREAM))
         then
 (ALLOW.BUTTON.EVENTS)
@@ -696,7 +658,6 @@
 
 (DOCOBJ-MAKE-INCLUDE

   [LAMBDA NIL
                                               (* ; "Edited 15-Oct-87 14:54 by Koomen")

-
     (DECLARE
 (SPECVARS TEXTOBJ))
     (PROG ((SUBFILE (TEDIT.GETINPUT TEXTOBJ "Enter file name: ")))
           (if
 SUBFILE
@@ -705,7 +666,6 @@
 
 (DOCOBJ-MAKE-INCLUDE-IMAGEFNS

   [LAMBDA NIL
                                               (* ; "Edited 23-Oct-87 00:20 by Koomen")

-
     (LET ((DISPLAYFN (FUNCTION DOCOBJ-INCLUDE-DISPLAYFN))
           (IMAGEBOXFN (FUNCTION DOCOBJ-INCLUDE-IMAGEBOXFN))
           (PUTFN (FUNCTION DOCOBJ-INCLUDE-PUTFN))
@@ -719,7 +679,7 @@
           (WHENCOPIEDFN (FUNCTION NILL))
           (WHENOPERATEDONFN (FUNCTION NILL))
           (PREPRINTFN (FUNCTION DOCOBJ-INCLUDE-PREPRINTFN)))
-         (IMAGEFNSCREATE DISPLAYFN IMAGEBOXFN PUTFN GETFN COPYFN BUTTONEVENTINFN COPYBUTTONEVENTINFN 
+         (IMAGEFNSCREATE DISPLAYFN IMAGEBOXFN PUTFN GETFN COPYFN BUTTONEVENTINFN COPYBUTTONEVENTINFN
                 WHENMOVEDFN WHENINSERTEDFN WHENDELETEDFN WHENCOPIEDFN WHENOPERATEDONFN PREPRINTFN])
 
 (DOCOBJ-INCLUDE-CREATE-OBJ

@@ -912,7 +872,6 @@
 
 (DOCOBJ-INCLUDE-COPYFN

   [LAMBDA (IMAGEOBJ SOURCEHOSTSTREAM TARGETHOSTSTREAM)
      (* ; "Edited 23-Oct-87 00:13 by Koomen")

-
     (DOCOBJ-INCLUDE-CREATE-OBJ
 (COPYALL (IMAGEOBJPROP IMAGEOBJ 'OBJECTDATUM])
 
 (DOCOBJ-INCLUDE-DISPLAYFN

@@ -927,28 +886,24 @@
 
 (DOCOBJ-INCLUDE-GETFN

   [LAMBDA (FILESTREAM)
                                      (* ; "Edited 26-Oct-87 22:00 by Koomen")

-
     (LET ((INCLOBJ (READ FILESTREAM)))
          (if
 (NLISTP INCLOBJ)
              then
 
-          
-          (* ;; "Version 1:  Just filename as string")

-          
-          (* ;; "Version 2:  List whose CAR is filename")

+                  (* ;; "Version 1:  Just filename as string")

+
+                  (* ;; "Version 2:  List whose CAR is filename")

 
                   (SETQ INCLOBJ (create
 INCLOBJ
-                                       FILENAME _
 INCLOBJ)))
+                                       FILENAME _ INCLOBJ)))
          (if
 (NLISTP (CDR INCLOBJ))
              then
 
-          
-          (* ;; "Version 3:  List whose CADR is ENABLEDP flag")

+                  (* ;; "Version 3:  List whose CADR is ENABLEDP flag")

 
                   (NCONC1 INCLOBJ T))
          (DOCOBJ-INCLUDE-CREATE-OBJ
 INCLOBJ])
 
 (DOCOBJ-INCLUDE-IMAGEBOXFN

   [LAMBDA (IMAGEOBJ IMAGESTREAM CURRENTX RIGHTMARGIN)
       (* ; "Edited 23-Oct-87 14:41 by Koomen")

-
     (OR (LET [(INCLOBJ (IMAGEOBJPROP IMAGEOBJ 'OBJECTDATUM]
              (if
 [AND INCLOBJ (OR (EQ (IMAGESTREAMTYPE IMAGESTREAM)
                                       'DISPLAY)
@@ -959,19 +914,17 @@
                                                                        else
 'DONTINCLDISPLAYSTRING))
                              IMAGESTREAM)))
         (create
 IMAGEBOX
-               XSIZE _
 0
-               YSIZE _
 0
-               YDESC _
 0
-               XKERN _
 0])
+               XSIZE _ 0
+               YSIZE _ 0
+               YDESC _ 0
+               XKERN _ 0])
 
 (DOCOBJ-INCLUDE-PREPRINTFN

   [LAMBDA (IMAGEOBJ)
                                        (* ; "Edited 23-Oct-87 14:19 by Koomen")

-
     (fetch
 (INCLOBJ FILENAME) of
 (IMAGEOBJPROP IMAGEOBJ 'OBJECTDATUM])
 
 (DOCOBJ-INCLUDE-PUTFN

   [LAMBDA (IMAGEOBJ FILESTREAM)
                             (* ; "Edited 15-Oct-87 17:17 by Koomen")

-
     (PRINT (IMAGEOBJPROP IMAGEOBJ 'OBJECTDATUM)
            FILESTREAM])
 )
@@ -993,29 +946,29 @@
 (PUTPROPS DOC-OBJECTS
 MAKEFILE-ENVIRONMENT
 (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10))
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (7640 21328 (DOCOBJ-ACQUIRE-OBJECT 7650 . 8651) (DOCOBJ-INIT 8653 . 9281) (
-DOCOBJ-TEDIT-MENU-ENTRY 9283 . 9705) (DOCOBJ-GET-LOOKS 9707 . 12167) (DOCOBJ-REGISTER-OBJECT 12169 . 
-12823) (DOCOBJ-STRING-IMAGEBOX 12825 . 13881) (DOCOBJ-WAIT-MOUSE 13883 . 14343) (
-DOCOBJ-BEFOREHARDCOPYFN 14345 . 19815) (DOCOBJ-AFTERHARDCOPYFN 19817 . 21326)) (21358 21625 (
-DOCOBJ-ACQUIRE-EVALED-OBJECT 21368 . 21623)) (21825 21967 (DOCOBJ-ACQUIRE-SNAPPED-OBJECT 21835 . 21965
-)) (22306 27102 (DOCOBJ-EDIT-TIMESTAMP 22316 . 22845) (DOCOBJ-MAKE-TIMESTAMP 22847 . 23258) (
-DOCOBJ-MAKE-TIMESTAMP-IMAGEFNS 23260 . 24330) (DOCOBJ-TIMESTAMP-BUTTONEVENTINFN 24332 . 24863) (
-DOCOBJ-TIMESTAMP-COPYFN 24865 . 25190) (DOCOBJ-TIMESTAMP-DISPLAYFN 25192 . 25485) (
-DOCOBJ-TIMESTAMP-GETFN 25487 . 25727) (DOCOBJ-TIMESTAMP-IMAGEBOXFN 25729 . 26085) (
-DOCOBJ-TIMESTAMP-PREPRINTFN 26087 . 26318) (DOCOBJ-TIMESTAMP-PUTFN 26320 . 26689) (
-DOCOBJ-TIMESTAMP-TO-STRING 26691 . 27100)) (27396 31703 (DOCOBJ-MAKE-FILESTAMP 27406 . 27747) (
-DOCOBJ-MAKE-FILESTAMP-IMAGEFNS 27749 . 28791) (DOCOBJ-FILESTAMP-COPYFN 28793 . 29108) (
-DOCOBJ-FILESTAMP-DISPLAYFN 29110 . 29398) (DOCOBJ-FILESTAMP-GETFN 29400 . 29753) (
-DOCOBJ-FILESTAMP-IMAGEBOXFN 29755 . 30093) (DOCOBJ-FILESTAMP-GET-FULLNAME 30095 . 30713) (
-DOCOBJ-FILESTAMP-NEW-FULLNAME 30715 . 31188) (DOCOBJ-FILESTAMP-PREPRINTFN 31190 . 31399) (
-DOCOBJ-FILESTAMP-PUTFN 31401 . 31701)) (32026 34523 (DOCOBJ-MAKE-HRULE 32036 . 32450) (
-DOCOBJ-EDIT-HRULE 32452 . 32924) (DOCOBJ-HRULE-INIT 32926 . 33258) (DOCOBJ-HRULE-GET-WIDTH 33260 . 
-34071) (DOCOBJ-HRULE-BUTTONEVENTINFN 34073 . 34521)) (34942 43284 (DOCOBJ-MAKE-INCLUDE 34952 . 35353) 
-(DOCOBJ-MAKE-INCLUDE-IMAGEFNS 35355 . 36360) (DOCOBJ-INCLUDE-CREATE-OBJ 36362 . 37130) (
-DOCOBJ-INCLUDE-EDIT 37132 . 41401) (DOCOBJ-INCLUDE-EDIT-WINDOWP 41403 . 42259) (
-DOCOBJ-INCLUDE-RESET-OBJ 42261 . 43282)) (43285 52131 (DOCOBJ-INCLUDE-BEFOREHARDCOPYFN 43295 . 46789) 
-(DOCOBJ-INCLUDE-CLEANUPFN 46791 . 48310) (DOCOBJ-INCLUDE-BUTTONEVENTINFN 48312 . 48989) (
-DOCOBJ-INCLUDE-COPYFN 48991 . 49209) (DOCOBJ-INCLUDE-DISPLAYFN 49211 . 49963) (DOCOBJ-INCLUDE-GETFN 
-49965 . 50688) (DOCOBJ-INCLUDE-IMAGEBOXFN 50690 . 51699) (DOCOBJ-INCLUDE-PREPRINTFN 51701 . 51920) (
-DOCOBJ-INCLUDE-PUTFN 51922 . 52129)))))
+  (FILEMAP (NIL (9262 22844 (DOCOBJ-ACQUIRE-OBJECT 9272 . 10273) (DOCOBJ-INIT 10275 . 10897) (
+DOCOBJ-TEDIT-MENU-ENTRY 10899 . 11306) (DOCOBJ-GET-LOOKS 11308 . 13768) (DOCOBJ-REGISTER-OBJECT 13770
+ . 14408) (DOCOBJ-STRING-IMAGEBOX 14410 . 15466) (DOCOBJ-WAIT-MOUSE 15468 . 15859) (
+DOCOBJ-BEFOREHARDCOPYFN 15861 . 21331) (DOCOBJ-AFTERHARDCOPYFN 21333 . 22842)) (22874 23139 (
+DOCOBJ-ACQUIRE-EVALED-OBJECT 22884 . 23137)) (23339 23496 (DOCOBJ-ACQUIRE-SNAPPED-OBJECT 23349 . 23494
+)) (23818 28482 (DOCOBJ-EDIT-TIMESTAMP 23828 . 24289) (DOCOBJ-MAKE-TIMESTAMP 24291 . 24688) (
+DOCOBJ-MAKE-TIMESTAMP-IMAGEFNS 24690 . 25709) (DOCOBJ-TIMESTAMP-BUTTONEVENTINFN 25711 . 26186) (
+DOCOBJ-TIMESTAMP-COPYFN 26188 . 26473) (DOCOBJ-TIMESTAMP-DISPLAYFN 26475 . 26696) (
+DOCOBJ-TIMESTAMP-GETFN 26698 . 26953) (DOCOBJ-TIMESTAMP-IMAGEBOXFN 26955 . 27272) (
+DOCOBJ-TIMESTAMP-PREPRINTFN 27274 . 27489) (DOCOBJ-TIMESTAMP-PUTFN 27491 . 27875) (
+DOCOBJ-TIMESTAMP-TO-STRING 27877 . 28480)) (28776 32750 (DOCOBJ-MAKE-FILESTAMP 28786 . 29111) (
+DOCOBJ-MAKE-FILESTAMP-IMAGEFNS 29113 . 30104) (DOCOBJ-FILESTAMP-COPYFN 30106 . 30381) (
+DOCOBJ-FILESTAMP-DISPLAYFN 30383 . 30595) (DOCOBJ-FILESTAMP-GETFN 30597 . 30934) (
+DOCOBJ-FILESTAMP-IMAGEBOXFN 30936 . 31204) (DOCOBJ-FILESTAMP-GET-FULLNAME 31206 . 31808) (
+DOCOBJ-FILESTAMP-NEW-FULLNAME 31810 . 32267) (DOCOBJ-FILESTAMP-PREPRINTFN 32269 . 32462) (
+DOCOBJ-FILESTAMP-PUTFN 32464 . 32748)) (33056 35661 (DOCOBJ-MAKE-HRULE 33066 . 33540) (
+DOCOBJ-EDIT-HRULE 33542 . 33984) (DOCOBJ-HRULE-INIT 33986 . 34386) (DOCOBJ-HRULE-GET-WIDTH 34388 . 
+35218) (DOCOBJ-HRULE-BUTTONEVENTINFN 35220 . 35659)) (36080 44419 (DOCOBJ-MAKE-INCLUDE 36090 . 36490) 
+(DOCOBJ-MAKE-INCLUDE-IMAGEFNS 36492 . 37495) (DOCOBJ-INCLUDE-CREATE-OBJ 37497 . 38265) (
+DOCOBJ-INCLUDE-EDIT 38267 . 42536) (DOCOBJ-INCLUDE-EDIT-WINDOWP 42538 . 43394) (
+DOCOBJ-INCLUDE-RESET-OBJ 43396 . 44417)) (44420 53233 (DOCOBJ-INCLUDE-BEFOREHARDCOPYFN 44430 . 47924) 
+(DOCOBJ-INCLUDE-CLEANUPFN 47926 . 49445) (DOCOBJ-INCLUDE-BUTTONEVENTINFN 49447 . 50124) (
+DOCOBJ-INCLUDE-COPYFN 50126 . 50343) (DOCOBJ-INCLUDE-DISPLAYFN 50345 . 51097) (DOCOBJ-INCLUDE-GETFN 
+51099 . 51809) (DOCOBJ-INCLUDE-IMAGEBOXFN 51811 . 52803) (DOCOBJ-INCLUDE-PREPRINTFN 52805 . 53023) (
+DOCOBJ-INCLUDE-PUTFN 53025 . 53231)))))
 STOP