From: YAMAMOTO Mitsuharu Date: Wed, 6 Apr 2005 02:15:29 +0000 (+0000) Subject: Use create-fontset-from-mac-roman-font to create the startup fontset X-Git-Tag: ttn-vms-21-2-B4~1185 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3bc062ea3e0fae88e8010880d45cd5ced8b49f02;p=emacs.git Use create-fontset-from-mac-roman-font to create the startup fontset if a font specification ends with `mac-roman'. --- 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