Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 05:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

(x-charset-registries): Name changed for consistency:

Browse source 
lao.mule -> MuleLao, Mule.Tibetan-X -> MuleTibetan-X.
(x-complement-fontset-spec): Optimization for latin-iso8859-1.
This commit is contained in:
Kenichi Handa 1997-06-21 01:17:00 +00:00
parent 9a6428f8b8
commit 2e18c9dd23
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/international/fontset.el
View file

@ -73,9 +73,9 @@
(indian-is13194 . "IS13194-Devanagari")
(indian-2-column . "MuleIndian-2")
(indian-1-column . "MuleIndian-1")
(lao . "lao.mule-1")
(tibetan . "Mule.Tibetan-0")
(tibetan-1-column . "Mule.Tibetan-1")
(lao . "MuleLao-1")
(tibetan . "MuleTibetan-0")
(tibetan-1-column . "MuleTibetan-1")
))
(let ((l x-charset-registries))
@ -225,7 +225,7 @@ XLFD-FIELDS is a vector of XLFD (X Logical Font Description) fields.
FONTLIST is an alist of cons of charset and fontname.
Fontnames for charsets not listed in FONTLIST are generated from
XLFD-FIELDS and a property of x-charset-register of each charset
XLFD-FIELDS and a property of x-charset-registry of each charset
automatically."
(let ((charsets charset-list)
(style-ignored (copy-sequence xlfd-fields))
@ -270,6 +270,14 @@ automatically."
alternative-fontname-alist)))
)))
(setq charsets (cdr charsets))))
;; Here's a trick for the charset latin-iso8859-1. If font for
;; ascii also contains Latin-1 characters, use it also for
;; latin-iso8859-1. This prevent loading a font for latin-iso8859-1
;; by a different name.
(if (string-match (cdr (assq 'latin-iso8859-1 x-charset-registries))
(cdr (assq 'ascii fontlist)))
(setcdr (assq 'latin-iso8859-1 fontlist) (cdr (assq 'ascii fontlist))))
fontlist)
;; Return a list to be appended to `x-fixed-font-alist' when