Re: decode-char & utf-8-fragment-on-decoding

[Thomas Morgan <tlm@pocketmail.com>]

   It's indeed a bug that
   
   (eq utf-8-translation-table-for-decode
       (get 'utf-8-translation-table-for-decode 'translation-table))
     => nil

I noticed this code in international/characters.el:
   
   (modify-category-entry (make-char 'greek-iso8859-7) ?g)
   (let ((c #x370))
     (while (<= c #x3ff)
       (modify-category-entry (decode-char 'ucs c) ?g)
       (setq c (1+ c))))

My understanding is that the first line is sufficient to put all
characters from the charset `greek-iso8859-7' into the category ?g.

Then the purpose of the remaining lines must be to add Greek Unicode
characters into the category ?g, but they do not do that; instead,
they add the corresponding characters from greek-iso8859-7 in again.

So it looks like this bug has at least one practical consequence:
Greek Unicode characters are not put into the category ?g.

It occurred to me that even after this bug is fixed, the problem
would remain if utf-8-fragment-on-decoding were enabled while this
code is executed.  However, this code is executed before the user
has a chance to enable the option, right?  So as long as fragmentation
is not the default, that will be ok.