Mercurial > emacs
changeset 61335:de40dfe68257
Use create-fontset-from-mac-roman-font to create the startup fontset
if a font specification ends with `mac-roman'.
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
|---|---|
| date | Wed, 06 Apr 2005 02:15:29 +0000 |
| parents | 2718ee127982 |
| children | 9485e84928bd |
| files | lisp/term/mac-win.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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