diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-06-20 01:38:52 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-06-20 01:38:52 +0000 |
| commit | 1ca074258e51b83a3a8eb988f2fcc7f98ecbcefc (patch) | |
| tree | 77a2ec04bd3d000eb58a3ea9f8e4b1a43d7e77de | |
| parent | 6deb154314c104ee5a77aafe240ff0088d316e65 (diff) | |
| download | emacs-1ca074258e51b83a3a8eb988f2fcc7f98ecbcefc.tar.gz emacs-1ca074258e51b83a3a8eb988f2fcc7f98ecbcefc.tar.bz2 emacs-1ca074258e51b83a3a8eb988f2fcc7f98ecbcefc.zip | |
When creating a fontset from a specified ASCII
font, don't use the resolved fon tname for the new fontset name.
| -rw-r--r-- | lisp/term/x-win.el | 6 |
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)) |