From 1ca074258e51b83a3a8eb988f2fcc7f98ecbcefc Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 20 Jun 1998 01:38:52 +0000 Subject: [PATCH] When creating a fontset from a specified ASCII font, don't use the resolved fon tname for the new fontset name. --- lisp/term/x-win.el | 6 +++--- 1 file 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)) -- 2.39.5