(concord-kaisei-add-takuhon): Refer feature `->HNG@zinbun/takuhon' as

the same as `->HNG' to get HNG-chars from abstract character of UCS.

diff --git a/concord-kaisei.el b/concord-kaisei.el
index 0b72c80..53beee2 100644 (file)
--- 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))