diff options
| -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") | |||
| 1577 | (new-fontset font (x-complement-fontset-spec xlfd-fields nil)) | 1577 | (new-fontset font (x-complement-fontset-spec xlfd-fields nil)) |
| 1578 | ;; Create a fontset from FONT. The fontset name is | 1578 | ;; Create a fontset from FONT. The fontset name is |
| 1579 | ;; generated from FONT. | 1579 | ;; generated from FONT. |
| 1580 | (create-fontset-from-ascii-font font resolved-name "startup")))) | 1580 | (if (and (string= "mac" (aref xlfd-fields xlfd-regexp-registry-subnum)) |
| 1581 | (string= "roman" (aref xlfd-fields xlfd-regexp-encoding-subnum))) | ||
| 1582 | (create-fontset-from-mac-roman-font font resolved-name "startup") | ||
| 1583 | (create-fontset-from-ascii-font font resolved-name "startup"))))) | ||
| 1581 | 1584 | ||
| 1582 | ;; Apply a geometry resource to the initial frame. Put it at the end | 1585 | ;; Apply a geometry resource to the initial frame. Put it at the end |
| 1583 | ;; of the alist, so that anything specified on the command line takes | 1586 | ;; of the alist, so that anything specified on the command line takes |