procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use create-fontset-from-mac-roman-font to create the startup fontset

Browse source 
if a font specification ends with `mac-roman'.
This commit is contained in:
YAMAMOTO Mitsuharu 2005-04-06 02:15:29 +00:00
parent e183fe2784
commit 3bc062ea3e
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/term/mac-win.el
View file

@ -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