diff options
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2005-04-06 02:15:29 +0000 |
|---|---|---|
| committer | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2005-04-06 02:15:29 +0000 |
| commit | 3bc062ea3e0fae88e8010880d45cd5ced8b49f02 (patch) | |
| tree | 644c2685f52369cf61f13c414ae52127b910ce29 /lisp/term | |
| parent | e183fe27841f16891c8aaa0ce353230f74323826 (diff) | |
| download | emacs-3bc062ea3e0fae88e8010880d45cd5ced8b49f02.tar.gz | |
Use create-fontset-from-mac-roman-font to create the startup fontset
if a font specification ends with `mac-roman'.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/mac-win.el | 5 |
1 files changed, 4 insertions, 1 deletions
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 |