changeset 23161:55a8313019f3

(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 95a213639589
children b36799069143
files lisp/international/fontset.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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