Mercurial > emacs
comparison lisp/term/x-win.el @ 19051:4572e0e4aef1
Do not create style-variants of fontset. They
are just registered in uninstanciated-fontset-alist.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 31 Jul 1997 05:54:43 +0000 |
| parents | d37ea94a4bb1 |
| children | 349afa7775de |
comparison
equal
deleted
inserted
replaced
| 19050:c11b9b44e233 | 19051:4572e0e4aef1 |
|---|---|
| 649 (if (fboundp 'new-fontset) | 649 (if (fboundp 'new-fontset) |
| 650 (progn | 650 (progn |
| 651 ;; Create the standard fontset. | 651 ;; Create the standard fontset. |
| 652 (create-fontset-from-fontset-spec standard-fontset-spec) | 652 (create-fontset-from-fontset-spec standard-fontset-spec) |
| 653 ;; Create variants of the standard fontset. | 653 ;; Create variants of the standard fontset. |
| 654 (create-fontset-from-fontset-spec standard-fontset-spec 'bold) | 654 ;;(create-fontset-from-fontset-spec standard-fontset-spec 'bold) |
| 655 (create-fontset-from-fontset-spec standard-fontset-spec 'italic) | 655 ;;(create-fontset-from-fontset-spec standard-fontset-spec 'italic) |
| 656 (create-fontset-from-fontset-spec standard-fontset-spec 'bold-italic) | 656 ;;(create-fontset-from-fontset-spec standard-fontset-spec 'bold-italic) |
| 657 | 657 |
| 658 ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...). | 658 ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...). |
| 659 (create-fontset-from-x-resource) | 659 (create-fontset-from-x-resource) |
| 660 | 660 |
| 661 ;; Try to create a fontset from a font specification which comes | 661 ;; Try to create a fontset from a font specification which comes |
| 686 (aset xlfd-fields xlfd-regexp-registry-subnum "fontset") | 686 (aset xlfd-fields xlfd-regexp-registry-subnum "fontset") |
| 687 (aset xlfd-fields xlfd-regexp-encoding-subnum "startup") | 687 (aset xlfd-fields xlfd-regexp-encoding-subnum "startup") |
| 688 (setq fontset (x-compose-font-name xlfd-fields)) | 688 (setq fontset (x-compose-font-name xlfd-fields)) |
| 689 (setq fontset-spec (concat fontset ", ascii:" font)) | 689 (setq fontset-spec (concat fontset ", ascii:" font)) |
| 690 (create-fontset-from-fontset-spec fontset-spec nil t) | 690 (create-fontset-from-fontset-spec fontset-spec nil t) |
| 691 (create-fontset-from-fontset-spec fontset-spec 'bold t) | 691 ;;(create-fontset-from-fontset-spec fontset-spec 'bold t) |
| 692 (create-fontset-from-fontset-spec fontset-spec 'italic t) | 692 ;;(create-fontset-from-fontset-spec fontset-spec 'italic t) |
| 693 (create-fontset-from-fontset-spec fontset-spec 'bold-italic t) | 693 ;;(create-fontset-from-fontset-spec fontset-spec 'bold-italic t) |
| 694 (setq fontset-alias-alist | 694 (setq fontset-alias-alist |
| 695 (cons (cons fontset font) fontset-alias-alist))) | 695 (cons (cons fontset font) fontset-alias-alist))) |
| 696 ))))) | 696 ))))) |
| 697 | 697 |
| 698 ;; Sun expects the menu bar cut and paste commands to use the clipboard. | 698 ;; Sun expects the menu bar cut and paste commands to use the clipboard. |