Mercurial > emacs
comparison lisp/term/mac-win.el @ 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 | ffb5c0421a14 |
children | c47b59f4f76f 02f1dbc4a199 |
comparison
equal
deleted
inserted
replaced
61334:2718ee127982 | 61335:de40dfe68257 |
---|---|
1575 (setq xlfd-fields (x-decompose-font-name font))) | 1575 (setq xlfd-fields (x-decompose-font-name font))) |
1576 (if (string= "fontset" (aref xlfd-fields xlfd-regexp-registry-subnum)) | 1576 (if (string= "fontset" (aref xlfd-fields xlfd-regexp-registry-subnum)) |
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 |
1584 ;; precedence. | 1587 ;; precedence. |
1585 (let* ((res-geometry (x-get-resource "geometry" "Geometry")) | 1588 (let* ((res-geometry (x-get-resource "geometry" "Geometry")) |