EDITFONT minor update: apply CHARSET.DECODE to charset argument (#2262)

Author: rmkaplan

lispusers/EDITFONT

@@ -1,16 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 4-Aug-2025 13:34:06" {WMEDLEY}<lispusers>EDITFONT.;26
 23614  
+
(FILECREATED "17-Aug-2025 12:11:44" {WMEDLEY}<lispusers>EDITFONT.;27
 23463  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS READSTRIKEFONTFILE BLANKCHARSETCREATE EF.INIT EF.DELETE BLANKFONTCREATE 
-                       EF.DELETECHAR EF.SAVE EDITFONT EF.CHARITEMS EF.EDITBM EF.BLANK COPYFONT 
-                       EF.CHANGESIZE EF.ENTER EF.REPLACE)
-                  (VARS EDITFONTCOMS)
-                  (RECORDS CHARITEM)
+      :CHANGES-TO (FNS EDITFONT)
 
-      :PREVIOUS-DATE " 2-Aug-2025 10:11:50" {WMEDLEY}<lispusers>EDITFONT.;14)
+      :PREVIOUS-DATE " 4-Aug-2025 13:34:06" {WMEDLEY}<lispusers>EDITFONT.;26)
 
 
 (PRETTYCOMPRINT EDITFONTCOMS)
@@ -412,13 +408,15 @@
           (RETURN FONT])
 
 (EDITFONT

-  [LAMBDA (FONT CHARSET)
                                     (* ; "Edited  3-Aug-2025 23:25 by rmk")


+  [LAMBDA (FONT CHARSET)
                                     (* ; "Edited 17-Aug-2025 12:03 by rmk")


+                                                             (* ; "Edited  3-Aug-2025 23:25 by rmk")


                                                              (* ; "Edited  2-Aug-2025 10:11 by rmk")

                                                              (* mjs "27-Mar-85 14:48")

                                                              (* kbr%: "21-Oct-85 15:35")

                                                              (* kbr%: "21-Oct-85 15:35")

     (SETQ FONT (FONTCREATE FONT))
-    (CL:UNLESS CHARSET (SETQ CHARSET 0))
+    (SETQ CHARSET (OR (CHARSET.DECODE CHARSET)
+                      0))
     (LET (CHARITEMS MENU TITLE HEIGHT WIDTH REGION POS WINDOW)
          (SETQ CHARITEMS (EF.CHARITEMS
 FONT CHARSET))
          (SETQ MENU (create
 MENU
@@ -463,10 +461,10 @@
 
 (EF.INIT
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1402 15256 (EF.INIT 1412 . 2046) (EF.PROMPT 2048 . 2630) (EF.MESSAGE 2632 . 2844) (
-EF.CLOSEFN 2846 . 3373) (EF.CHARITEMS 3375 . 4033) (EF.BUTTONEVENTFN 4035 . 4447) (EF.WHENSELECTEDFN 
-4449 . 4853) (EF.EDITBM 4855 . 6024) (EF.MIDDLEBUTTONFN 6026 . 6271) (EF.CHANGESIZE 6273 . 7602) (
-EF.DELETE 7604 . 8679) (EF.ENTER 8681 . 9622) (EF.REPLACE 9624 . 10597) (EF.SAVE 10599 . 14548) (
-COPYFONT 14550 . 14825) (READSTRIKEFONTFILE 14827 . 15254)) (15257 23426 (BLANKCHARSETCREATE 15267 . 
-21244) (EDITFONT 21246 . 23424)))))
+  (FILEMAP (NIL (1110 14964 (EF.INIT 1120 . 1754) (EF.PROMPT 1756 . 2338) (EF.MESSAGE 2340 . 2552) (
+EF.CLOSEFN 2554 . 3081) (EF.CHARITEMS 3083 . 3741) (EF.BUTTONEVENTFN 3743 . 4155) (EF.WHENSELECTEDFN 
+4157 . 4561) (EF.EDITBM 4563 . 5732) (EF.MIDDLEBUTTONFN 5734 . 5979) (EF.CHANGESIZE 5981 . 7310) (
+EF.DELETE 7312 . 8387) (EF.ENTER 8389 . 9330) (EF.REPLACE 9332 . 10305) (EF.SAVE 10307 . 14256) (
+COPYFONT 14258 . 14533) (READSTRIKEFONTFILE 14535 . 14962)) (14965 23275 (BLANKCHARSETCREATE 14975 . 
+20952) (EDITFONT 20954 . 23273)))))
 STOP