Rmk50: TERMINAL fonts plus fixed masterscope conflicts (#806)

* EDITFONT:  CHARSET in  interface

* IDLEHAX, LIFE, TMAX-ENDNOTE:  Clean up conflicts in making full masterscope DB

* FONT:  Add charset coercion for TERMINAL

* TERMINAL fonts:  Remove bogus character set files

so that better coercions can take place

lispusers/tmax/TMAX-ENDNOTE

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED "18-Mar-2022 07:12:34" 
-|{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX-ENDNOTE.;4|
 23444  
+
(FILECREATED "26-Jun-2022 18:15:33" 
+|{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>TMAX>TMAX-ENDNOTE.;3|
 23863  
 
-      :CHANGES-TO (VARS TMAX-ENDNOTECOMS)
+      :CHANGES-TO (FNS REGMARK.PUTFN REGMARK.BUTTONEVENTINFN)
 
-      :PREVIOUS-DATE "17-Mar-2022 23:10:26" 
-|{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX-ENDNOTE.;2|)
+      :PREVIOUS-DATE "18-Mar-2022 07:12:34" 
+|{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>TMAX>TMAX-ENDNOTE.;2|)
 
 
 ; Copyright (c) 1987 by Xerox Corporation.
@@ -381,11 +381,12 @@
            ydesc _ 0
            xkern _ 0)))
 
-(regmark.putfn

-  (lambda (markobj stream)
                                   (* |fsg| "23-Jul-87 14:02")

-    (prin2 (list '|Region| (|fetch|
 region.use |of|
 (|fetch|
 objectdatum |of|
 markobj))
-                 (|fetch|
 marking |of|
 (|fetch|
 objectdatum |of|
 markobj)))
-           stream)))
+(REGMARK.PUTFN

+  (LAMBDA (MARKOBJ STREAM)
                                  (* \; "Edited 26-Jun-2022 18:12 by rmk")

+                                                             (* |fsg| "23-Jul-87 14:02")

+    (PRIN2 (LIST '|Region| (|fetch|
 (REGMARKOBJ
 REGION.USE) |of|
 (|fetch|
 OBJECTDATUM |of|
 MARKOBJ))
+                 (|fetch|
 (REGMARKOBJ
 MARKING) |of|
 (|fetch|
 OBJECTDATUM |of|
 MARKOBJ)))
+           STREAM)))
 
 (regmark.getfn

   (lambda (stream copy.object)
                               (* |fsg| "20-Aug-87 14:58")

@@ -405,22 +406,25 @@
                           (|fetch|
 objectdatum |of|
 image.obj))))
         (error "Unknown TARGET stream type" (imagestreamtype target.stream)))))
 
-(regmark.buttoneventinfn

-  (lambda (markobj stream)
                                   (* |fsg| "18-Feb-87 10:07")

-          (* * |This| |function| |is| |never| |called| |because| |the| regmark 
-
          |ImageObjects| |are| |protected| |after| |they| |are| |inserted| |and| 
-
          |anything| |protected| |can't| |be| |selected.|)

+(REGMARK.BUTTONEVENTINFN

+  (LAMBDA (MARKOBJ STREAM)
                                  (* \; "Edited 26-Jun-2022 18:13 by rmk")

+                                                             (* |fsg| "18-Feb-87 10:07")

 
-    (and (mousestate middle)
-         (let ((markdatum (|fetch|
 objectdatum |of|
 markobj)))
-              (tedit.promptprint stream (concat "Region used for " (|fetch|
 region.use |of|
 markdatum
-                                                                          )
-                                               (cond
-                                                  ((|fetch|
 marking |of|
 markdatum)
-                                                   (concat ", Marker is " (|fetch|
 marking
-                                                                             |of|
 markdatum)))
-                                                  (t "")))
-                     t)))))
+         (* * |This| |function| |is| |never| |called| |because| |the| REGMARK 
+
         |ImageObjects| |are| |protected| |after| |they| |are| |inserted| |and| |anything| 
+
         |protected| |can't| |be| |selected.|)

+
+    (AND (MOUSESTATE MIDDLE)
+         (LET ((MARKDATUM (|fetch|
 OBJECTDATUM |of|
 MARKOBJ)))
+              (TEDIT.PROMPTPRINT STREAM (CONCAT "Region used for " (|fetch|
 (REGMARKOBJ
 REGION.USE)
+                                                                      |of|
 MARKDATUM)
+                                               (COND
+                                                  ((|fetch|
 (REGMARKOBJ
 MARKING) |of|
 MARKDATUM)
+                                                   (CONCAT ", Marker is " (|fetch|
 (REGMARKOBJ
 
+                                                                                          MARKING)
+                                                                             |of|
 MARKDATUM)))
+                                                  (T "")))
+                     T)))))
 )
 
 (RPAQ? \\REGMARKOBJ.IMAGEFNS

@@ -445,13 +449,13 @@
 )
 (PUTPROPS TMAX-ENDNOTE COPYRIGHT ("Xerox Corporation" 1987))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (2489 12116 (ADD.ENDNOTE 2499 . 3167) (INSERT.ENDNOTES 3169 . 5372) (
-INSERT.ENDNOTES.TEXT 5374 . 6803) (DELETE.ENDNOTES 6805 . 7796) (NOTESREGIONP 7798 . 8060) (
-SET.ENDNOTE.STYLE 8062 . 10735) (MAP.ENDNOTE.LOOKS 10737 . 11504) (GET.ENDNOTE.FONTS 11506 . 12114)) (
-12117 16032 (ENDNOTEP 12127 . 12468) (NOTE.PUTFN 12470 . 13122) (NOTE.GETFN 13124 . 13704) (
-NOTE.BUTTONEVENTINFN 13706 . 14486) (NOTE.WHENSELECTEDFN 14488 . 16030)) (16790 19194 (AUX.TEDIT 16800
- . 17762) (AUX.TEDIT.AFTERQUITFN 17764 . 18207) (AUX.TEDIT.TITLEMENUFN 18209 . 19192)) (19279 22743 (
-REGMARKOBJ 19289 . 19696) (REGMARKOBJP 19698 . 19892) (REGMARK.DISPLAYFN 19894 . 20140) (
-REGMARK.IMAGEBOXFN 20142 . 20493) (REGMARK.PUTFN 20495 . 20827) (REGMARK.GETFN 20829 . 21128) (
-REGMARK.COPYFN 21130 . 21668) (REGMARK.BUTTONEVENTINFN 21670 . 22741)))))
+  (FILEMAP (NIL (2529 12156 (ADD.ENDNOTE 2539 . 3207) (INSERT.ENDNOTES 3209 . 5412) (
+INSERT.ENDNOTES.TEXT 5414 . 6843) (DELETE.ENDNOTES 6845 . 7836) (NOTESREGIONP 7838 . 8100) (
+SET.ENDNOTE.STYLE 8102 . 10775) (MAP.ENDNOTE.LOOKS 10777 . 11544) (GET.ENDNOTE.FONTS 11546 . 12154)) (
+12157 16072 (ENDNOTEP 12167 . 12508) (NOTE.PUTFN 12510 . 13162) (NOTE.GETFN 13164 . 13744) (
+NOTE.BUTTONEVENTINFN 13746 . 14526) (NOTE.WHENSELECTEDFN 14528 . 16070)) (16830 19234 (AUX.TEDIT 16840
+ . 17802) (AUX.TEDIT.AFTERQUITFN 17804 . 18247) (AUX.TEDIT.TITLEMENUFN 18249 . 19232)) (19319 23162 (
+REGMARKOBJ 19329 . 19736) (REGMARKOBJP 19738 . 19932) (REGMARK.DISPLAYFN 19934 . 20180) (
+REGMARK.IMAGEBOXFN 20182 . 20533) (REGMARK.PUTFN 20535 . 21006) (REGMARK.GETFN 21008 . 21307) (
+REGMARK.COPYFN 21309 . 21847) (REGMARK.BUTTONEVENTINFN 21849 . 23160)))))
 STOP