Add PLOTANDNC-PATCH from obsolete back to lispusers since its used by Notecards - specifically NCPLOTCARD (#1647)

Author: fghalasz

lispusers/PLOTANDNC-PATCH

@@ -0,0 +1,53 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
+
+
(FILECREATED " 4-Apr-2024 18:50:50" |{DSK}<home>frank>il>ncmedley>lispusers>PLOTANDNC-PATCH.;2|
 1814   
+
+      :PREVIOUS-DATE "22-Jan-88 15:45:26" |{DSK}<home>frank>il>ncmedley>lispusers>PLOTANDNC-PATCH.;1|
+)
+
+
+(PRETTYCOMPRINT PLOTANDNC-PATCHCOMS)
+
+(RPAQQ PLOTANDNC-PATCHCOMS
 (
+                            (* |;;| 
+
                     "define font read fns used by plot and notecards so system can read either kind")

+
+                            (FNS READFONT READ.FONTINTODESCRIPTOR)
+                            (P 
+                               (* |;;| 
+
                             "make sure these read fns are registered to avoid messages when reading")

+
+                               (PUSHNEW HPRINTREADFNS 'READFONT)
+                               (PUSHNEW HPRINTREADFNS 'READ.FONTINTODESCRIPTOR))))
+
+
+
+(* |;;| "define font read fns used by plot and notecards so system can read either kind")

+
+(DEFINEQ
+
+(readfont

+  (lambda (stream)
                                           (* |jop:| "27-Aug-85 13:34")

+    (prog ((proplist (read stream)))
+          (return (fontcreate (listget proplist 'family)
+                         (listget proplist 'size)
+                         (listget proplist 'face)
+                         (listget proplist 'rotation)
+                         (listget proplist 'device))))))
+
+(read.fontintodescriptor

+  (lambda (stream)
                                           (* \; "Edited 22-Jan-88 15:36 by thh:")

+
+    (apply 'fontcreate (read stream))))
+)
+
+
+(* |;;| "make sure these read fns are registered to avoid messages when reading")

+
+
+(PUSHNEW
 HPRINTREADFNS 'READFONT)
+
+(PUSHNEW
 HPRINTREADFNS 'READ.FONTINTODESCRIPTOR)
+(DECLARE\: DONTCOPY
+  (FILEMAP (NIL (1001 1609 (READFONT 1011 . 1427) (READ.FONTINTODESCRIPTOR 1429 . 1607)))))
+STOP