diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-07-31 05:54:43 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-07-31 05:54:43 +0000 |
| commit | 5796b3b7af226cb59b486dafaaa3fb06dfa8eaaf (patch) | |
| tree | 25dadfac32a4498f236906957340cc915c769820 | |
| parent | 7b26d5d3eb11612322fb57e4521d17a578183225 (diff) | |
| download | emacs-5796b3b7af226cb59b486dafaaa3fb06dfa8eaaf.tar.gz | |
Do not create style-variants of fontset. They
are just registered in uninstanciated-fontset-alist.
| -rw-r--r-- | lisp/term/x-win.el | 12 |
1 files 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))) ))))) |