From 0f36e5fc3b831900fe90978442875f8a87cc209a Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 31 Jul 1997 05:54:43 +0000 Subject: [PATCH] Do not create style-variants of fontset. They are just registered in uninstanciated-fontset-alist. --- lisp/term/x-win.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 9eeb1e9ad58..c16c021164d 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -651,9 +651,9 @@ This is in addition to the primary selection.") ;; 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-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) @@ -688,9 +688,9 @@ This is in addition to the primary selection.") (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 'bold t) + ;;(create-fontset-from-fontset-spec fontset-spec 'italic t) + ;;(create-fontset-from-fontset-spec fontset-spec 'bold-italic t) (setq fontset-alias-alist (cons (cons fontset font) fontset-alias-alist))) ))))) -- 2.39.2