Mercurial > emacs
comparison lisp/term/x-win.el @ 18715:d37ea94a4bb1
Give t as arg NOERROR to
create-fontset-from-fontset-spec.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 10 Jul 1997 06:48:24 +0000 |
| parents | b726d209302c |
| children | 4572e0e4aef1 |
comparison
equal
deleted
inserted
replaced
| 18714:5d47a06d19bf | 18715:d37ea94a4bb1 |
|---|---|
| 685 (aset xlfd-fields xlfd-regexp-avgwidth-subnum nil) | 685 (aset xlfd-fields xlfd-regexp-avgwidth-subnum nil) |
| 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) | 690 (create-fontset-from-fontset-spec fontset-spec nil t) |
| 691 (create-fontset-from-fontset-spec fontset-spec 'bold) | 691 (create-fontset-from-fontset-spec fontset-spec 'bold t) |
| 692 (create-fontset-from-fontset-spec fontset-spec 'italic) | 692 (create-fontset-from-fontset-spec fontset-spec 'italic t) |
| 693 (create-fontset-from-fontset-spec fontset-spec 'bold-italic) | 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. |