[Emacs-diffs] Changes to emacs/lisp/international/fontset.el

[Stefan Monnier]

Index: emacs/lisp/international/fontset.el
diff -c emacs/lisp/international/fontset.el:1.50 
emacs/lisp/international/fontset.el:1.51
*** emacs/lisp/international/fontset.el:1.50    Sat Nov 24 21:35:29 2001
--- emacs/lisp/international/fontset.el Sun Dec 16 00:37:01 2001
***************
*** 40,46 ****
  ;; 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"))
           (latin-iso8859-2 . (nil . "ISO8859-2"))
           (latin-iso8859-3 . (nil . "ISO8859-3"))
           (latin-iso8859-4 . (nil . "ISO8859-4"))
--- 40,50 ----
  ;; character `*' is embedded in `CHARSET_ENCODING' field.  The
  ;; REGISTRY for ASCII characters are predefined as "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,120 ****
             . ,(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))
--- 118,124 ----
             . ,(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))