From 18ff325d1ad64156d439b139231deaa10d35240a Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Wed, 29 Jun 2016 18:22:50 +0900 Subject: [PATCH] (concord-kaisei-add-takuhon): Refer feature `->HNG@zinbun/takuhon' as the same as `->HNG' to get HNG-chars from abstract character of UCS. --- concord-kaisei.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- 1.7.10.4