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

(x-complement-fontset-spec): In the

Browse source 
case that we use ASCII font for the other charsets, use only
family and regisry part of it.
This commit is contained in:
Kenichi Handa 2001-02-24 02:42:48 +00:00
parent 119171dd3d
commit 6bf84cdec5
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/international/fontset.el
View file

@ -315,7 +315,8 @@ FONTLIST.
If a font specifid for ASCII supports the other charsets (see the
variable `x-font-name-charset-alist'), add that information to FONTLIST."
(let* ((slot (assq 'ascii fontlist))
(ascii-font (cdr slot)))
(ascii-font (cdr slot))
ascii-font-spec)
(if ascii-font
(setcdr slot (setq ascii-font (x-resolve-font-name ascii-font)))
;; If font for ASCII is not specified, add it.
@ -326,6 +327,16 @@ variable `x-font-name-charset-alist'), add that information to FONTLIST."
;; If the font for ASCII also supports the other charsets, and
;; they are not specified in FONTLIST, add them.
(setq xlfd-fields (x-decompose-font-name ascii-font))
(if (not xlfd-fields)
(setq ascii-font-spec ascii-font)
(setq ascii-font-spec
(cons (format "%s-%s"
(aref xlfd-fields xlfd-regexp-foundry-subnum)
(aref xlfd-fields xlfd-regexp-family-subnum))
(format "%s-%s"
(aref xlfd-fields xlfd-regexp-registry-subnum)
(aref xlfd-fields xlfd-regexp-encoding-subnum)))))
(let ((tail x-font-name-charset-alist)
elt)
(while tail
@ -337,7 +348,7 @@ variable `x-font-name-charset-alist'), add that information to FONTLIST."
(setq charset (car charsets) charsets (cdr charsets))
(or (assq charset fontlist)
(setq fontlist
(cons (cons charset ascii-font) fontlist))))))))
(cons (cons charset ascii-font-spec) fontlist))))))))
fontlist))