Mercurial > emacs

comparison lisp/international/fontset.el @ 88595:c348d8f35224

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add setting for unicode font at the end of the default fontset.
author Kenichi Handa <handa@m17n.org>
date Wed, 22 May 2002 05:56:05 +0000
parents 101343133fe3
children cd23fd4b0145
comparison
equal deleted inserted replaced
88594:db610df6ebcc 88595:c348d8f35224
111 . ,(indian-glyph-char 255 'telugu)) . (nil . "Telugu-CDAC")) 111 . ,(indian-glyph-char 255 'telugu)) . (nil . "Telugu-CDAC"))
112 ((,(indian-glyph-char 0 'kannada) 112 ((,(indian-glyph-char 0 'kannada)
113 . ,(indian-glyph-char 255 'kannada)) . (nil . "Kannada-CDAC")) 113 . ,(indian-glyph-char 255 'kannada)) . (nil . "Kannada-CDAC"))
114 ((,(indian-glyph-char 0 'malayalam) 114 ((,(indian-glyph-char 0 'malayalam)
115 . ,(indian-glyph-char 255 'malayalam)) . (nil . "Malayalam-CDAC")) 115 . ,(indian-glyph-char 255 'malayalam)) . (nil . "Malayalam-CDAC"))
116 (unicode . (nil . "ISO10646-1"))
116 ))) 117 )))
117 charset font-spec) 118 charset font-spec)
118 (while l 119 (while l
119 (setq charset (car (car l)) font-spec (cdr (car l)) l (cdr l)) 120 (setq charset (car (car l)) font-spec (cdr (car l)) l (cdr l))
120 (set-fontset-font "fontset-default" charset font-spec))) 121 (set-fontset-font "fontset-default" charset font-spec)))