Add `=gt' features for isolated GT characters.
authortomo <tomo>
Mon, 16 Jun 2003 08:37:54 +0000 (08:37 +0000)
committertomo <tomo>
Mon, 16 Jun 2003 08:37:54 +0000 (08:37 +0000)
lisp/utf-2000/isolated-char.el

index 0b2be87..2e9f025 100644 (file)
              plane (string-to-int (match-string 4))
              code (string-to-int (match-string 5) 16))
        (put-char-attribute (decode-builtin-char '=gt gt-code)
+                           '=gt gt-code)
+       (put-char-attribute (decode-builtin-char '=gt gt-code)
                            (intern (format "=gt-pj-%d" plane))
                            code)
        )))