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

font is specified in FONTLIST, don't substitute it for the resolved name.
1998-09-01 02:24:46 +00:00
parent 490822ffc8
commit f0c8b3efad
1 changed files with 3 additions and 4 deletions
--- 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