Mercurial > emacs
changeset 42072:9f1fa0a02eb3
Build the list L at compile time.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 16 Dec 2001 05:37:01 +0000 |
| parents | 1ecb0abf1d15 |
| children | b37ba2c1da9a |
| files | lisp/international/fontset.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/fontset.el Sun Dec 16 05:33:14 2001 +0000 +++ b/lisp/international/fontset.el Sun Dec 16 05:37:01 2001 +0000 @@ -40,7 +40,11 @@ ;; character `*' is embedded in `CHARSET_ENCODING' field. The ;; REGISTRY for ASCII characters are predefined as "ISO8859-1". -(let ((l `((latin-iso8859-1 . (nil . "ISO8859-1")) +(let ((l + ;; Eval this at compile-time, since fontset.el is always loaded + ;; when run under X and this would always load ind-util.el as well. + (eval-when-compile + `((latin-iso8859-1 . (nil . "ISO8859-1")) (latin-iso8859-2 . (nil . "ISO8859-2")) (latin-iso8859-3 . (nil . "ISO8859-3")) (latin-iso8859-4 . (nil . "ISO8859-4")) @@ -114,7 +118,7 @@ . ,(indian-glyph-char 255 'kannada)) . ("*" . "Kannada-CDAC")) ((,(indian-glyph-char 0 'malayalam) . ,(indian-glyph-char 255 'malayalam)) . ("*" . "Malayalam-CDAC")) - )) + ))) charset font-spec arg) (while l (setq charset (car (car l)) font-spec (cdr (car l)) l (cdr l))