From 7327a8ae89df162eff4032929391618fc0e3a3d0 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 6 Feb 2020 00:11:07 +0900 Subject: [PATCH] (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'. --- cwiki-view.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) 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\">)

'=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 -- 1.7.10.4