Tedit readonly files, cleanup filesets printfn (#532)

* FILESETS, TEDITWINDOW, TEDIT-PF-SEE

Add DTDECLARE to EXPORTFILES, fix TEDIT so that READONLY windows and processes are collected

* PRINTFN:  Eliminate PMORE

lispusers/TEDIT-PF-SEE

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "12-Oct-2021 22:31:01" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-PF-SEE.;30
 6975   
+
(FILECREATED "16-Oct-2021 19:23:40" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-PF-SEE.;32
 7178   
 
       changes to%:  (FNS CLOSE-TYPED-WINDOW)
 
-      previous date%: "12-Oct-2021 15:22:43" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-PF-SEE.;29)
+      previous date%: "12-Oct-2021 22:31:01" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-PF-SEE.;31)
 
 
 (PRETTYCOMPRINT TEDIT-PF-SEECOMS)
@@ -108,7 +108,7 @@
          WINDOW])
 
 (CLOSE-TYPED-WINDOW

-  [LAMBDA (WINDOW ALL)
                                  (* ; "Edited 12-Oct-2021 22:30 by rmk:")

+  [LAMBDA (WINDOW ALL)
                                  (* ; "Edited 16-Oct-2021 19:23 by rmk:")

 
     (* ;; "Puts the region of WINDOW back on the region list for its type, for later reuse.  If ALL, closes all windows of the type of WINDOW (and recursively puts their regions also on the list).")

 
@@ -120,10 +120,14 @@
                                                                            (WINDOWPROP W 'WINDOWTYPE)
                                                                            )
                                  UNLESS
 (EQ W WINDOW) DO
 (CLOSEW W))
-                   ELSE
 (CL:WHEN (TTY.PROCESSP (WINDOWPROP WINDOW 'PROCESS))
+                   ELSE
 
+
+                         (* ;; "This may no longer be needed, now that TEDIT removes the process for READONLY windows just as for ordinary edit windows.")

+
+                         (AND NIL (CL:WHEN (TTY.PROCESSP (WINDOWPROP WINDOW 'PROCESS))
                                                              (* ; 
 
                                            "Otherwise, the window pops up if you don't click away")

-                                (TTY.PROCESS T))
+                                      (TTY.PROCESS T)))
                          (DSUBST (WINDOWPROP WINDOW 'REGION)
                                 WINDOW TYPED-WINDOWS)))])
     WINDOW])
@@ -143,6 +147,6 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (843 3913 (SEE-TEDIT 853 . 1263) (PF-TEDIT 1265 . 3911)) (3914 6663 (GET-TYPED-WINDOW 
-3924 . 5397) (CLOSE-TYPED-WINDOW 5399 . 6661)))))
+  (FILEMAP (NIL (843 3913 (SEE-TEDIT 853 . 1263) (PF-TEDIT 1265 . 3911)) (3914 6866 (GET-TYPED-WINDOW 
+3924 . 5397) (CLOSE-TYPED-WINDOW 5399 . 6864)))))
 STOP