+ ((eq ccs '=gt-k)
+ (setq char (decode-char '=gt-k code-point)
+ png-file (format "/opt/chisewiki/glyphs/%d/GT-K/%05d.png"
+ size code-point))
+ (setq plain 1)
+ (while (and (<= plain 11)
+ (null
+ (setq ret (encode-char
+ char
+ (intern (format "=gt-pj-k%d" plain))))))
+ (setq plain (1+ plain)))
+ (setq font (format
+ "/usr/local/share/fonts/TrueType/GT/gt2000k%d.ttf"
+ plain)
+ char (decode-char '=jis-x0208@1990 ret))
+ (when (setq ret (encode-char char '=ucs@jis/1990))
+ (setq char (decode-char '=ucs ret)))
+ )