Mercurial > emacs

changeset 22515:c7f3d4ec2c69

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
When creating a fontset from a specified ASCII font, don't use the resolved fon tname for the new fontset name.
author Kenichi Handa <handa@m17n.org>
date Sat, 20 Jun 1998 01:38:52 +0000
parents dee11277c07d
children 31e6e5b66fea
files lisp/term/x-win.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/x-win.el	Fri Jun 19 19:21:23 1998 +0000
+++ b/lisp/term/x-win.el	Sat Jun 20 01:38:52 1998 +0000
@@ -674,11 +674,11 @@
       (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))