Mercurial > emacs

comparison lisp/international/fontset.el @ 23161:55a8313019f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-complement-fontset-spec): If ASCII font is specified in FONTLIST, don't substitute it for the resolved name.
author Kenichi Handa <handa@m17n.org>
date Tue, 01 Sep 1998 02:24:46 +0000
parents ab4f30149aa0
children 30beacf88b75
comparison
equal deleted inserted replaced
23160:95a213639589 23161:55a8313019f3
318 (setq charsets (cdr charsets))) 318 (setq charsets (cdr charsets)))
319 319
320 ;; Be sure that ASCII font is available. 320 ;; Be sure that ASCII font is available.
321 (let ((slot (or (assq 'ascii fontlist) (assq 'ascii new-fontlist))) 321 (let ((slot (or (assq 'ascii fontlist) (assq 'ascii new-fontlist)))
322 ascii-font) 322 ascii-font)
323 (if (setq ascii-font (condition-case nil 323 (setq ascii-font (condition-case nil
324 (x-resolve-font-name (cdr slot)) 324 (x-resolve-font-name (cdr slot))
325 (error nil))) 325 (error nil)))
326 (setcdr slot ascii-font))
327 (if ascii-font 326 (if ascii-font
328 (let ((l x-font-name-charset-alist)) 327 (let ((l x-font-name-charset-alist))
329 ;; If the ASCII font can also be used for another 328 ;; If the ASCII font can also be used for another
330 ;; charsets, use that font instead of what generated based 329 ;; charsets, use that font instead of what generated based
331 ;; on x-charset-registery in the previous code. 330 ;; on x-charset-registery in the previous code.