Mercurial > emacs

diff lisp/international/fontset.el @ 23161:55a8313019f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 ab4f30149aa0
children 30beacf88b75
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