Mercurial > emacs

comparison lisp/international/fontset.el @ 27534:eeb998860456

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(standard-fontset-spec): Purecopy it. (create-fontset-from-x-resource): Don't concat integers.
author Dave Love <fx@gnu.org>
date Mon, 31 Jan 2000 17:17:49 +0000
parents 8a6d8101919e
children ceaded4c2cb9
comparison
equal deleted inserted replaced
27533:6dfbe5197843 27534:eeb998860456
677 ;; Create standard fontset from 16 dots fonts which are the most widely 677 ;; Create standard fontset from 16 dots fonts which are the most widely
678 ;; installed fonts. Fonts for Chinese-GB, Korean, and Chinese-CNS are 678 ;; installed fonts. Fonts for Chinese-GB, Korean, and Chinese-CNS are
679 ;; specified here because FAMILY of those fonts are not "fixed" in 679 ;; specified here because FAMILY of those fonts are not "fixed" in
680 ;; many cases. 680 ;; many cases.
681 (defvar standard-fontset-spec 681 (defvar standard-fontset-spec
682 "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-standard, 682 (purecopy "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-standard,
683 chinese-gb2312:-*-medium-r-normal-*-16-*-gb2312*-*, 683 chinese-gb2312:-*-medium-r-normal-*-16-*-gb2312*-*,
684 korean-ksc5601:-*-medium-r-normal-*-16-*-ksc5601*-*, 684 korean-ksc5601:-*-medium-r-normal-*-16-*-ksc5601*-*,
685 chinese-cns11643-1:-*-medium-r-normal-*-16-*-cns11643*-1, 685 chinese-cns11643-1:-*-medium-r-normal-*-16-*-cns11643*-1,
686 chinese-cns11643-2:-*-medium-r-normal-*-16-*-cns11643*-2, 686 chinese-cns11643-2:-*-medium-r-normal-*-16-*-cns11643*-2,
687 chinese-cns11643-3:-*-medium-r-normal-*-16-*-cns11643*-3, 687 chinese-cns11643-3:-*-medium-r-normal-*-16-*-cns11643*-3,
688 chinese-cns11643-4:-*-medium-r-normal-*-16-*-cns11643*-4, 688 chinese-cns11643-4:-*-medium-r-normal-*-16-*-cns11643*-4,
689 chinese-cns11643-5:-*-medium-r-normal-*-16-*-cns11643*-5, 689 chinese-cns11643-5:-*-medium-r-normal-*-16-*-cns11643*-5,
690 chinese-cns11643-6:-*-medium-r-normal-*-16-*-cns11643*-6, 690 chinese-cns11643-6:-*-medium-r-normal-*-16-*-cns11643*-6,
691 chinese-cns11643-7:-*-medium-r-normal-*-16-*-cns11643*-7" 691 chinese-cns11643-7:-*-medium-r-normal-*-16-*-cns11643*-7")
692 "String of fontset spec of the standard fontset. 692 "String of fontset spec of the standard fontset.
693 You have the biggest chance to display international characters 693 You have the biggest chance to display international characters
694 with correct glyphs by using the standard fontset. 694 with correct glyphs by using the standard fontset.
695 See the documentation of `create-fontset-from-fontset-spec' for the format.") 695 See the documentation of `create-fontset-from-fontset-spec' for the format.")
696 696
700 ;; `standard-fontset-spec'. 700 ;; `standard-fontset-spec'.
701 701
702 (defun create-fontset-from-x-resource () 702 (defun create-fontset-from-x-resource ()
703 (let ((idx 0) 703 (let ((idx 0)
704 fontset-spec) 704 fontset-spec)
705 (while (setq fontset-spec (x-get-resource (concat "fontset-" idx) 705 (while (setq fontset-spec (x-get-resource (format "fontset-%d" idx)
706 (concat "Fontset-" idx))) 706 (format "Fontset-%d" idx)))
707 (create-fontset-from-fontset-spec fontset-spec t 'noerror) 707 (create-fontset-from-fontset-spec fontset-spec t 'noerror)
708 (setq idx (1+ idx))))) 708 (setq idx (1+ idx)))))
709 709
710 (defsubst fontset-list () 710 (defsubst fontset-list ()
711 "Returns a list of all defined fontset names." 711 "Returns a list of all defined fontset names."