Systematically renamed internal Tedit files with \TEDIT

This includes some files in lispusers that are not in the Tedit core but had references to Tedit internal functions (TMAX, DOC-OBJECTS and some others) that have been renamed. (I hope to clean out those internal references, at some point.)

A few additional changes are here to track the changes that were recently made in the unrenamed master branch.  Going forward, I want to make future changes in this branch.

Eventual plan is to introduce a Tedit package and do another systematic renaming of all \TEDIT.xxx functions to TEDIT::xxx, this is a first step.

This does not yet include a backward-compatibility mapping of oldnames to newnames, as was discussed in the technical meeting.

lispusers/TEDIT-PF-SEE

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "25-Dec-2023 12:29:39" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;118
 8191   
+
(FILECREATED "27-Mar-2024 23:45:38" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;119
 8322   
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS PF-TEDIT)
 
-      :PREVIOUS-DATE " 5-Dec-2023 23:52:07" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;117)
+      :PREVIOUS-DATE "25-Dec-2023 12:29:39" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;118)
 
 
 (PRETTYCOMPRINT TEDIT-PF-SEECOMS)
@@ -23,7 +23,8 @@
 (DEFINEQ
 
 (PF-TEDIT

-  [LAMBDA (FN IFILES REPRINT)
                                (* ; "Edited 25-Dec-2023 12:24 by rmk")


+  [LAMBDA (FN IFILES REPRINT)
                                (* ; "Edited 27-Mar-2024 23:45 by rmk")


+                                                             (* ; "Edited 25-Dec-2023 12:24 by rmk")


                                                              (* ; "Edited  5-Dec-2023 23:50 by rmk")


                                                              (* ; "Edited 12-Oct-2023 00:19 by rmk")


                                                              (* ; "Edited 14-Sep-2023 22:33 by rmk")


@@ -65,7 +66,7 @@
                   THEN
 (SETQ TFPROP (LIST FN (CAR LOC)))
                        [SETQ WINDOW (FIND
 W IN
 (OPENWINDOWS)
                                        SUCHTHAT
 (AND (EQUAL TFPROP (WINDOWPROP W 'TF))
-                                                     (WINDOWPROP W 'TEXTOBJ]
+                                                     (fetch
 (TEXTWINDOW WTEXTSTREAM) of
 W]
                        (IF
 (AND WINDOW (NOT REPRINT))
                            THEN
 
                                 (* ;; 
@@ -148,5 +149,5 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (782 7671 (PF-TEDIT 792 . 7669)))))
+  (FILEMAP (NIL (782 7802 (PF-TEDIT 792 . 7800)))))
 STOP