40 |
;; character `*' is embedded in `CHARSET_ENCODING' field. The |
;; character `*' is embedded in `CHARSET_ENCODING' field. The |
41 |
;; REGISTRY for ASCII characters are predefined as "ISO8859-1". |
;; REGISTRY for ASCII characters are predefined as "ISO8859-1". |
42 |
|
|
43 |
(let ((l `((latin-iso8859-1 . (nil . "ISO8859-1")) |
(let ((l |
44 |
|
;; Eval this at compile-time, since fontset.el is always loaded |
45 |
|
;; when run under X and this would always load ind-util.el as well. |
46 |
|
(eval-when-compile |
47 |
|
`((latin-iso8859-1 . (nil . "ISO8859-1")) |
48 |
(latin-iso8859-2 . (nil . "ISO8859-2")) |
(latin-iso8859-2 . (nil . "ISO8859-2")) |
49 |
(latin-iso8859-3 . (nil . "ISO8859-3")) |
(latin-iso8859-3 . (nil . "ISO8859-3")) |
50 |
(latin-iso8859-4 . (nil . "ISO8859-4")) |
(latin-iso8859-4 . (nil . "ISO8859-4")) |
118 |
. ,(indian-glyph-char 255 'kannada)) . ("*" . "Kannada-CDAC")) |
. ,(indian-glyph-char 255 'kannada)) . ("*" . "Kannada-CDAC")) |
119 |
((,(indian-glyph-char 0 'malayalam) |
((,(indian-glyph-char 0 'malayalam) |
120 |
. ,(indian-glyph-char 255 'malayalam)) . ("*" . "Malayalam-CDAC")) |
. ,(indian-glyph-char 255 'malayalam)) . ("*" . "Malayalam-CDAC")) |
121 |
)) |
))) |
122 |
charset font-spec arg) |
charset font-spec arg) |
123 |
(while l |
(while l |
124 |
(setq charset (car (car l)) font-spec (cdr (car l)) l (cdr l)) |
(setq charset (car (car l)) font-spec (cdr (car l)) l (cdr l)) |