Mercurial > emacs
changeset 19085:349afa7775de
Fix previous change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sun, 03 Aug 1997 02:51:30 +0000 |
| parents | 9f4b95f30c4f |
| children | 358f6a7b1bbb |
| files | lisp/term/x-win.el |
| diffstat | 1 files changed, 1 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/x-win.el Sun Aug 03 02:50:47 1997 +0000 +++ b/lisp/term/x-win.el Sun Aug 03 02:51:30 1997 +0000 @@ -650,10 +650,6 @@ (progn ;; Create the standard fontset. (create-fontset-from-fontset-spec standard-fontset-spec) - ;; Create variants of the standard fontset. - ;;(create-fontset-from-fontset-spec standard-fontset-spec 'bold) - ;;(create-fontset-from-fontset-spec standard-fontset-spec 'italic) - ;;(create-fontset-from-fontset-spec standard-fontset-spec 'bold-italic) ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...). (create-fontset-from-x-resource) @@ -687,10 +683,7 @@ (aset xlfd-fields xlfd-regexp-encoding-subnum "startup") (setq fontset (x-compose-font-name xlfd-fields)) (setq fontset-spec (concat fontset ", ascii:" font)) - (create-fontset-from-fontset-spec fontset-spec nil t) - ;;(create-fontset-from-fontset-spec fontset-spec 'bold t) - ;;(create-fontset-from-fontset-spec fontset-spec 'italic t) - ;;(create-fontset-from-fontset-spec fontset-spec 'bold-italic t) + (create-fontset-from-fontset-spec fontset-spec t) (setq fontset-alias-alist (cons (cons fontset font) fontset-alias-alist))) )))))