# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 904616686 0
# Node ID 55a8313019f3e675a97f08dd99f07d6472466688
# Parent  95a21363958940e7d4e4e1373855e6e8aec7e2f2
(x-complement-fontset-spec): If ASCII
font is specified in FONTLIST, don't substitute it for the
resolved name.

diff -r 95a213639589 -r 55a8313019f3 lisp/international/fontset.el
--- a/lisp/international/fontset.el	Tue Sep 01 00:30:46 1998 +0000
+++ b/lisp/international/fontset.el	Tue Sep 01 02:24:46 1998 +0000
@@ -320,10 +320,9 @@
     ;; 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