From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 5 Feb 2020 15:11:07 +0000 (+0900)
Subject: (www-display-object-desc): For each character object to represent HNG
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7327a8ae89df162eff4032929391618fc0e3a3d0;p=chise%2Fest.git

(www-display-object-desc): For each character object to represent HNG
glyph-image, generate feature `sources@gallica' and display them if
the corresponding HNG-card object has feature `->glyph-image@gallica'.
---

diff --git a/cwiki-view.el b/cwiki-view.el
index 8b1cecb..5b1d63b 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -422,10 +422,16 @@ size=\"30\" maxlength=\"30\" value=\"%s\">)</p>
 			'=id HNG-card-id
 			'hng-card)))
 	(put-char-attribute object 'sources@HNG/card (list HNG-card-cobj))
-	(if (setq ret (concord-object-get
-		       HNG-card-cobj
-		       '->glyph-image@zinbun/takuhon))
-	    (put-char-attribute object 'sources@zinbun/takuhon ret))
+	(cond ((setq ret (concord-object-get
+			  HNG-card-cobj
+			  '->glyph-image@zinbun/takuhon))
+	       (put-char-attribute object 'sources@zinbun/takuhon ret)
+	       )
+	      ((setq ret (concord-object-get
+			  HNG-card-cobj
+			  '->glyph-image@gallica))
+	       (put-char-attribute object 'sources@gallica ret)
+	       ))
 	)
       (setq object-spec
 	    (cond