X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fest.git;a=blobdiff_plain;f=cwiki-view.el;h=5b1d63b95078badc0caec1360aba0e030eaae738;hp=8b1cecb35de0913353d3f74aa294a8c67683b9fc;hb=7327a8ae89df162eff4032929391618fc0e3a3d0;hpb=6da3d13f97f282cc415cde67bb9220d688abbe22

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