Rmk47: TEDIT, GITFNS, COREIO (#791)

* COMPARETEXT: Inverted nodes stay inverted when scrolled

* COMPARESOURCES: Remove unused stub for browsing in TEDIT window

* COMPAREDIRECTORIES: Upgrade to new LISPFILETYPE, add CD-COMPARE-FILES

CD-COMPARE-FILES interface to compare 2 given files, not whole directory

* TEDIT:  Show only file name, not stream address

* COREIO: preserve STREAMPROPS on stream reopen

* GITFNS:  Various project and git-interface cleanups

library/TEDIT

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 4-Jun-2022 15:43:05" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>library>TEDIT.;39
 143317 
+
(FILECREATED " 6-Jun-2022 00:36:53" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>library>TEDIT.;40
 143378 
 
       :CHANGES-TO (FNS TEDIT)
 
-      :PREVIOUS-DATE "23-May-2022 15:52:33" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>library>TEDIT.;38)
+      :PREVIOUS-DATE " 4-Jun-2022 15:43:05" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>library>TEDIT.;39)
 
 
 (* ; "
@@ -253,6 +253,8 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation.
 (TEDIT

   [LAMBDA (TEXT WINDOW DONTSPAWN PROPS)
 
+    (* ;; "Edited  6-Jun-2022 00:35 by rmk")

+
     (* ;; "Edited  4-Jun-2022 15:42 by rmk")

 
     (* ;; "Edited 31-Jan-2022 17:19 by rmk: String TEXT is a file name")

@@ -298,7 +300,7 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation.
                                        (TEDIT.CREATEW (COND
                                                          (TEXT (CONCAT 
                                                               "Please specify an editing window for "
-                                                                      TEXT))
+                                                                      (FULLNAME TEXT)))
                                                          (T 
                                                     "Please specify a region for the editing window."
                                                             ))
@@ -2267,7 +2269,7 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation.
 (* ; "TEDIT Support information")

 
 
-(RPAQQ TEDITSYSTEMDATE
 " 4-Jun-2022 15:43:05")
+(RPAQQ TEDITSYSTEMDATE
 " 6-Jun-2022 00:36:53")
 
 (RPAQ TEDITSUPPORT
 "TEditSupport.PA")
 (DEFINEQ
@@ -2293,20 +2295,20 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation.
 (PUTPROPS TEDIT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991 
 1992 1993 1995 1999 2018 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4349 118487 (\TEDIT2 4359 . 7110) (COERCETEXTOBJ 7112 . 15888) (TEDIT 15890 . 21011) (
-TEDITSTRING 21013 . 21572) (TEDIT-SEE 21574 . 24163) (TEDIT.CHARWIDTH 24165 . 26189) (TEDIT.COPY 26191
- . 34627) (TEDIT.DELETE 34629 . 35319) (TEDIT.DO.BLUEPENDINGDELETE 35321 . 38388) (TEDIT.INSERT 38390
- . 43920) (TEDIT.KILL 43922 . 45479) (TEDIT.MAPLINES 45481 . 46880) (TEDIT.MAPPIECES 46882 . 47838) (
-TEDIT.MOVE 47840 . 57624) (TEDIT.QUIT 57626 . 59626) (TEDIT.STRINGWIDTH 59628 . 60299) (TEDIT.\INSERT 
-60301 . 62326) (TEXTOBJ 62328 . 63453) (TEXTSTREAM 63455 . 65070) (\TEDIT.INCLUDE 65072 . 68972) (
-\TEDIT.INSERT.PIECES 68974 . 78889) (\TEDIT.MOVE.PIECEMAPFN 78891 . 80970) (\TEDIT.OBJECT.SHOWSEL 
-80972 . 84601) (\TEDIT.RESTARTFN 84603 . 86598) (\TEDIT.CHARDELETE 86600 . 90562) (
-\TEDIT.COPY.PIECEMAPFN 90564 . 93789) (\TEDIT.DELETE 93791 . 101309) (\TEDIT.DIFFUSE.PARALOOKS 101311
- . 104075) (\TEDIT.FOREIGN.COPY? 104077 . 107804) (\TEDIT.QUIT 107806 . 110952) (\TEDIT.WORDDELETE 
-110954 . 115787) (\TEDIT1 115789 . 118485)) (118601 118717 (\CREATE.TEDIT.RESTART.MENU 118611 . 118715
-)) (118816 122505 (PLCHAIN 118826 . 119100) (PRINTLINE 119102 . 121866) (SEEFILE 121868 . 122503)) (
-122546 142189 (TEDIT.INSERT.OBJECT 122556 . 131633) (TEDIT.EDIT.OBJECT 131635 . 133891) (
-TEDIT.FIND.OBJECT 133893 . 134786) (TEDIT.FIND.OBJECT.SUBTREE 134788 . 135594) (TEDIT.PUT.OBJECT 
-135596 . 137255) (TEDIT.GET.OBJECT 137257 . 140456) (TEDIT.OBJECT.CHANGED 140458 . 142187)) (142467 
-142830 (MAKETEDITFORM 142477 . 142828)))))
+  (FILEMAP (NIL (4349 118548 (\TEDIT2 4359 . 7110) (COERCETEXTOBJ 7112 . 15888) (TEDIT 15890 . 21072) (
+TEDITSTRING 21074 . 21633) (TEDIT-SEE 21635 . 24224) (TEDIT.CHARWIDTH 24226 . 26250) (TEDIT.COPY 26252
+ . 34688) (TEDIT.DELETE 34690 . 35380) (TEDIT.DO.BLUEPENDINGDELETE 35382 . 38449) (TEDIT.INSERT 38451
+ . 43981) (TEDIT.KILL 43983 . 45540) (TEDIT.MAPLINES 45542 . 46941) (TEDIT.MAPPIECES 46943 . 47899) (
+TEDIT.MOVE 47901 . 57685) (TEDIT.QUIT 57687 . 59687) (TEDIT.STRINGWIDTH 59689 . 60360) (TEDIT.\INSERT 
+60362 . 62387) (TEXTOBJ 62389 . 63514) (TEXTSTREAM 63516 . 65131) (\TEDIT.INCLUDE 65133 . 69033) (
+\TEDIT.INSERT.PIECES 69035 . 78950) (\TEDIT.MOVE.PIECEMAPFN 78952 . 81031) (\TEDIT.OBJECT.SHOWSEL 
+81033 . 84662) (\TEDIT.RESTARTFN 84664 . 86659) (\TEDIT.CHARDELETE 86661 . 90623) (
+\TEDIT.COPY.PIECEMAPFN 90625 . 93850) (\TEDIT.DELETE 93852 . 101370) (\TEDIT.DIFFUSE.PARALOOKS 101372
+ . 104136) (\TEDIT.FOREIGN.COPY? 104138 . 107865) (\TEDIT.QUIT 107867 . 111013) (\TEDIT.WORDDELETE 
+111015 . 115848) (\TEDIT1 115850 . 118546)) (118662 118778 (\CREATE.TEDIT.RESTART.MENU 118672 . 118776
+)) (118877 122566 (PLCHAIN 118887 . 119161) (PRINTLINE 119163 . 121927) (SEEFILE 121929 . 122564)) (
+122607 142250 (TEDIT.INSERT.OBJECT 122617 . 131694) (TEDIT.EDIT.OBJECT 131696 . 133952) (
+TEDIT.FIND.OBJECT 133954 . 134847) (TEDIT.FIND.OBJECT.SUBTREE 134849 . 135655) (TEDIT.PUT.OBJECT 
+135657 . 137316) (TEDIT.GET.OBJECT 137318 . 140517) (TEDIT.OBJECT.CHANGED 140519 . 142248)) (142528 
+142891 (MAKETEDITFORM 142538 . 142889)))))
 STOP