# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1112753729 0
# Node ID de40dfe68257edb9103f8dce40529998dcf29abf
# Parent  2718ee1279828ab856d56a6a5b4c7a7b656da0c4
Use create-fontset-from-mac-roman-font to create the startup fontset
if a font specification ends with `mac-roman'.

diff -r 2718ee127982 -r de40dfe68257 lisp/term/mac-win.el
--- a/lisp/term/mac-win.el	Wed Apr 06 00:37:36 2005 +0000
+++ b/lisp/term/mac-win.el	Wed Apr 06 02:15:29 2005 +0000
@@ -1577,7 +1577,10 @@
 	  (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