1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 3a5cd81d28d..46a05a51280 100644
--- 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))