Use create-fontset-from-mac-roman-font to create the startup fontset

if a font specification ends with `mac-roman'.

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index ecfb80ff645..cdf81f02ce2 100644
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -1577,7 +1577,10 @@ ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman")
           (new-fontset font (x-complement-fontset-spec xlfd-fields nil))
         ;; Create a fontset from FONT.  The fontset name is
         ;; generated from FONT.
-        (create-fontset-from-ascii-font font resolved-name "startup"))))
+        (if (and (string= "mac" (aref xlfd-fields xlfd-regexp-registry-subnum))
+                 (string= "roman" (aref xlfd-fields xlfd-regexp-encoding-subnum)))
+            (create-fontset-from-mac-roman-font font resolved-name "startup")
+          (create-fontset-from-ascii-font font resolved-name "startup")))))
 
 ;; Apply a geometry resource to the initial frame.  Put it at the end
 ;; of the alist, so that anything specified on the command line takes