From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 1 Jun 2017 07:12:59 +0000 (+0900)
Subject: (www-display-object-desc): Check return value of
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=99fdabfa4eea3e158cde23775d4a8b146694ffaf;p=chise%2Fest.git

(www-display-object-desc): Check return value of
`www-get-feature-value' to accept character object as the same as list
of characters.
---

diff --git a/cwiki-view.el b/cwiki-view.el
index 570e6e3..a148dfb 100644
--- 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))))