]> git.eshelyaron.com Git - emacs.git/commitdiff
Use create-fontset-from-mac-roman-font to create the startup fontset
authorYAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Wed, 6 Apr 2005 02:15:29 +0000 (02:15 +0000)
committerYAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Wed, 6 Apr 2005 02:15:29 +0000 (02:15 +0000)
if a font specification ends with `mac-roman'.

lisp/term/mac-win.el

index ecfb80ff645811956fd9063311ec3d51a53e01a1..cdf81f02ce29544afe1596b93f16969cdae99c9a 100644 (file)
@@ -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