Lost an edit

Author: rmkaplan

lispusers/COMPAREDIRECTORIES

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "28-Oct-2025 14:52:05" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;280
 138241 
+
(FILECREATED "28-Oct-2025 17:40:13" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;284
 138494 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS CDBROWSER-COPY CDBROWSER)
+      :CHANGES-TO (FNS CDBROWSER-COPY CD-MENUFN)
 
-      :PREVIOUS-DATE "28-Oct-2025 14:34:57" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;279)
+      :PREVIOUS-DATE "28-Oct-2025 14:52:05" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;280)
 
 
 (PRETTYCOMPRINT COMPAREDIRECTORIESCOMS)
@@ -1983,7 +1983,7 @@
 (CD-MENUFN

   [LAMBDA (TBITEM MENUITEM CDBROWSER KEY)
 
-    (* ;; "Edited 28-Oct-2025 11:53 by rmk")

+    (* ;; "Edited 28-Oct-2025 17:35 by rmk")

 
     (* ;; "Edited 26-Mar-2025 09:39 by rmk")

 
@@ -2012,7 +2012,8 @@
               (Compare (IF
 (AND FILE1 FILE2)
                            THEN
 (CD-COMPARE-FILES
 FILE1 FILE2 LABEL1 LABEL2 TYPE (WINDOWPROP
                                                                                   WINDOW
-                                                                                  'REGION))
+                                                                                  'REGION)
+                                       CDBROWSER)
                          ELSE
 (FLASHWINDOW T)
                               (PRIN3 "Only one file" T)))
               (See% left (IF
 FILE1
@@ -2141,7 +2142,7 @@
                                                              NIL])
 
 (CDBROWSER-COPY

-  [LAMBDA (CDBROWSER
 TBITEM SOURCE UNIXDEST)
                 (* ; "Edited 28-Oct-2025 14:42 by rmk")


+  [LAMBDA (CDBROWSER
 TBITEM SOURCE UNIXDEST)
                 (* ; "Edited 28-Oct-2025 17:39 by rmk")


                                                              (* ; "Edited 25-Oct-2025 23:58 by rmk")


                                                              (* ; "Edited 24-May-2022 15:49 by rmk")


                                                              (* ; "Edited 25-Apr-2022 09:24 by rmk")


@@ -2197,7 +2198,9 @@
                (CL:UNLESS DESTFILE
                    (SETQ DESTFILE (CD-SWAPDIRS
 SOURCEFILE SOURCEDIR DESTDIR)))
                [SETQ RESULT (if
 UNIXDEST
-                                then
 [PSEUDOFILENAME (PACKFILENAME 'HOST 'DSK 'BODY
+                                then
 (SPUTMULTI (fetch
 (TABLEBROWSER TBUSERDATA) of
 CDBROWSER)
+                                            'ORIGINALFILES DESTFILE (COPYFILE DESTFILE '{NODIRCORE))
+                                     [PSEUDOFILENAME (PACKFILENAME 'HOST 'DSK 'BODY
                                                             (COPYFILE SOURCEFILE (PACKFILENAME
                                                                                   'HOST
                                                                                   'UNIX
@@ -2333,8 +2336,8 @@ CREATED-AS 82099 . 86896) (SOURCE-FOR-COMPILED-P 86898 . 89825) (COMPILE-SOURCE-
 COPY-COMPARED-FILES 95510 . 97331) (COPY-MISSING-FILES 97333 . 99490) (COMPILED-ON-SAME-SOURCE 99492
  . 101282)) (101478 109356 (CDBROWSER 101488 . 105455) (CDBROWSER.STRINGS 105457 . 109354)) (109518 
 111254 (CD.TABLEITEM 109528 . 109748) (CD.TABLEITEM.PRINTFN 109750 . 109949) (CD.TABLEITEM.COPYFN 
-109951 . 111009) (CDTABLEBROWSER.HEADING.REPAINTFN 111011 . 111252)) (111255 137725 (
+109951 . 111009) (CDTABLEBROWSER.HEADING.REPAINTFN 111011 . 111252)) (111255 137978 (
 CDTABLEBROWSER.WHENSELECTEDFN 111265 . 111733) (CD.COMMANDSELECTEDFN 111735 . 117908) (CD-MENUFN 
-117910 . 124210) (CD-COMPARE-FILES 124212 . 127739) (CDBROWSER-COPY 127741 . 132599) (
-CDBROWSER-DELETE-FILE 132601 . 137204) (CD-SWAPDIRS 137206 . 137723)))))
+117910 . 124259) (CD-COMPARE-FILES 124261 . 127788) (CDBROWSER-COPY 127790 . 132852) (
+CDBROWSER-DELETE-FILE 132854 . 137457) (CD-SWAPDIRS 137459 . 137976)))))
 STOP