Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 21:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(x-complement-fontset-spec): If ASCII

Browse source 
font is specified in FONTLIST, don't substitute it for the
resolved name.
This commit is contained in:
Kenichi Handa 1998-09-01 02:24:46 +00:00
parent 490822ffc8
commit f0c8b3efad
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/international/fontset.el
View file

@ -320,10 +320,9 @@ automatically."
;; Be sure that ASCII font is available.
(let ((slot (or (assq 'ascii fontlist) (assq 'ascii new-fontlist)))
ascii-font)
(if (setq ascii-font (condition-case nil
(x-resolve-font-name (cdr slot))
(error nil)))
(setcdr slot ascii-font))
(setq ascii-font (condition-case nil
(x-resolve-font-name (cdr slot))
(error nil)))
(if ascii-font
(let ((l x-font-name-charset-alist))
;; If the ASCII font can also be used for another