From 3bc062ea3e0fae88e8010880d45cd5ced8b49f02 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Wed, 6 Apr 2005 02:15:29 +0000 Subject: [PATCH] Use create-fontset-from-mac-roman-font to create the startup fontset if a font specification ends with `mac-roman'. --- lisp/term/mac-win.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 -- 2.39.5