(www-display-object-desc): Check return value of

[chise/est.git] / cwiki-view.el

diff --git a/cwiki-view.el b/cwiki-view.el
index 570e6e3..a148dfb 100644 (file)
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -190,10 +190,14 @@ li { margin: 0 0 0 2em; }
                           genre rdf-uri-object)
                 "")))
       (when (setq parents (www-get-feature-value object '<-denotational))
+       (if (characterp parents)
+           (setq parents (list parents)))
        (princ (format "<p>%s %s</p>\n<hr>\n"
                       (www-format-value-as-char-list parents)
                       (www-format-feature-name '->denotational lang))))
       (when (setq parents (www-get-feature-value object '<-subsumptive))
+       (if (characterp parents)
+           (setq parents (list parents)))
        (princ (format "<p>%s %s</p>\n<hr>\n"
                       (www-format-value-as-char-list parents)
                       (www-format-feature-name '->subsumptive lang))))