From 9ff9457b2d71a33db8ceef8bf6e5745e7db7338a Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sun, 3 Aug 1997 02:51:30 +0000 Subject: [PATCH] Fix previous change. --- lisp/term/x-win.el | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index c16c021164d..d991f3b76a8 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -650,10 +650,6 @@ This is in addition to the primary selection.") (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 @@ This is in addition to the primary selection.") (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))) ))))) -- 2.39.2