From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 29 Jun 2016 09:22:50 +0000 (+0900)
Subject: (concord-kaisei-add-takuhon): Refer feature `->HNG@zinbun/takuhon' as
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fconcord-images.git;a=commitdiff_plain;h=18ff325d1ad64156d439b139231deaa10d35240a;ds=sidebyside

(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
--- 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))