X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fconcord-images.git;a=blobdiff_plain;f=concord-kaisei.el;h=53beee225084fb145488f8ac7f32d88a457a1df2;hp=0b72c807dff61baf9afe9411e4f072e1a0703d8c;hb=18ff325d1ad64156d439b139231deaa10d35240a;hpb=c844fcd0cf501e717d6f074bcb2227ab392111e6 diff --git a/concord-kaisei.el b/concord-kaisei.el index 0b72c80..53beee2 100644 --- a/concord-kaisei.el +++ b/concord-kaisei.el @@ -79,7 +79,8 @@ '=location@djvuchar (format "http://coe21.zinbun.kyoto-u.ac.jp/djvuchar?jpg=data/takuhonkaisei/%s&coords=%d,%d,%d,%d" taku-file x y (+ x w) (+ y h))) - (setq ucs-hng-chars (char-feature char '->HNG)) + (setq ucs-hng-chars (append (char-feature char '->HNG) + (char-feature char '->HNG@zinbun/takuhon))) (setq hng-cards nil) (dolist (hng-char ucs-hng-chars) (when (and (setq hng-code (encode-char hng-char ccs))