diff options
| author | Kenichi Handa | 1998-06-20 01:38:52 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-06-20 01:38:52 +0000 |
| commit | 1ca074258e51b83a3a8eb988f2fcc7f98ecbcefc (patch) | |
| tree | 77a2ec04bd3d000eb58a3ea9f8e4b1a43d7e77de /lisp | |
| parent | 6deb154314c104ee5a77aafe240ff0088d316e65 (diff) | |
| download | emacs-1ca074258e51b83a3a8eb988f2fcc7f98ecbcefc.tar.gz emacs-1ca074258e51b83a3a8eb988f2fcc7f98ecbcefc.zip | |
When creating a fontset from a specified ASCII
font, don't use the resolved fon tname for the new fontset name.
Diffstat (limited to 'lisp')
| -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.") | |||
| 674 | (let ((font (or (cdr (assq 'font initial-frame-alist)) | 674 | (let ((font (or (cdr (assq 'font initial-frame-alist)) |
| 675 | (cdr (assq 'font default-frame-alist)) | 675 | (cdr (assq 'font default-frame-alist)) |
| 676 | (x-get-resource "font" "Font"))) | 676 | (x-get-resource "font" "Font"))) |
| 677 | resolved-name xlfd-fields) | 677 | xlfd-fields) |
| 678 | (if (and font | 678 | (if (and font |
| 679 | (not (query-fontset font)) | 679 | (not (query-fontset font)) |
| 680 | (setq resolved-name (x-resolve-font-name font)) | 680 | (x-resolve-font-name font) |
| 681 | (setq xlfd-fields (x-decompose-font-name resolved-name))) | 681 | (setq xlfd-fields (x-decompose-font-name font))) |
| 682 | (if (string= "fontset" | 682 | (if (string= "fontset" |
| 683 | (aref xlfd-fields xlfd-regexp-registry-subnum)) | 683 | (aref xlfd-fields xlfd-regexp-registry-subnum)) |
| 684 | (new-fontset font (x-complement-fontset-spec xlfd-fields nil)) | 684 | (new-fontset font (x-complement-fontset-spec xlfd-fields nil)) |