When creating a fontset from a specified ASCII

font, don't use the resolved fon tname for the new fontset name.

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 3a5cd81d28da08cf10948bc0d5ed26941c9f53aa..46a05a51280ac45659aaa0893645fed5072b3a63 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -674,11 +674,11 @@ This is in addition to the primary selection.")
       (let ((font (or (cdr (assq 'font initial-frame-alist))
                      (cdr (assq 'font default-frame-alist))
                      (x-get-resource "font" "Font")))
-           resolved-name xlfd-fields)
+           xlfd-fields)
        (if (and font
                 (not (query-fontset font))
-                (setq resolved-name (x-resolve-font-name font))
-                (setq xlfd-fields (x-decompose-font-name resolved-name)))
+                (x-resolve-font-name font)
+                (setq xlfd-fields (x-decompose-font-name font)))
            (if (string= "fontset"
                         (aref xlfd-fields xlfd-regexp-registry-subnum))
                (new-fontset font (x-complement-fontset-spec xlfd-fields nil))