martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

When creating a fontset from a specified ASCII

Browse Source 
font, don't use the resolved fon tname for the new fontset name.
This commit is contained in:
Kenichi Handa
1998-06-20 01:38:52 +00:00
parent 6deb154314
commit 1ca074258e
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/term/x-win.el
View File

@@ -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))