diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/fontset.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index a3056afc01e..06c5ada9d25 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -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 |