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