(byte-compile-inline-expand):

[gnu-emacs] / lisp / international / fontset.el

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index a3056afc01e786120c02fc99405362b44a793fab..06c5ada9d2520278e09d29f99d5d8ba933633278 100644 (file)
--- 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