Mercurial > emacs

comparison lisp/term/x-win.el @ 19085:349afa7775de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Kenichi Handa <handa@m17n.org>
date Sun, 03 Aug 1997 02:51:30 +0000
parents 4572e0e4aef1
children 3940bb7f5515
comparison
equal deleted inserted replaced
19084:9f4b95f30c4f 19085:349afa7775de
648 648
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.
654 ;;(create-fontset-from-fontset-spec standard-fontset-spec 'bold)
655 ;;(create-fontset-from-fontset-spec standard-fontset-spec 'italic)
656 ;;(create-fontset-from-fontset-spec standard-fontset-spec 'bold-italic)
657 653
658 ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...). 654 ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...).
659 (create-fontset-from-x-resource) 655 (create-fontset-from-x-resource)
660 656
661 ;; Try to create a fontset from a font specification which comes 657 ;; Try to create a fontset from a font specification which comes
685 (aset xlfd-fields xlfd-regexp-avgwidth-subnum nil) 681 (aset xlfd-fields xlfd-regexp-avgwidth-subnum nil)
686 (aset xlfd-fields xlfd-regexp-registry-subnum "fontset") 682 (aset xlfd-fields xlfd-regexp-registry-subnum "fontset")
687 (aset xlfd-fields xlfd-regexp-encoding-subnum "startup") 683 (aset xlfd-fields xlfd-regexp-encoding-subnum "startup")
688 (setq fontset (x-compose-font-name xlfd-fields)) 684 (setq fontset (x-compose-font-name xlfd-fields))
689 (setq fontset-spec (concat fontset ", ascii:" font)) 685 (setq fontset-spec (concat fontset ", ascii:" font))
690 (create-fontset-from-fontset-spec fontset-spec nil t) 686 (create-fontset-from-fontset-spec fontset-spec t)
691 ;;(create-fontset-from-fontset-spec fontset-spec 'bold t)
692 ;;(create-fontset-from-fontset-spec fontset-spec 'italic t)
693 ;;(create-fontset-from-fontset-spec fontset-spec 'bold-italic t)
694 (setq fontset-alias-alist 687 (setq fontset-alias-alist
695 (cons (cons fontset font) fontset-alias-alist))) 688 (cons (cons fontset font) fontset-alias-alist)))
696 ))))) 689 )))))
697 690
698 ;; Sun expects the menu bar cut and paste commands to use the clipboard. 691 ;; Sun expects the menu bar cut and paste commands to use the clipboard.