From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 1 Jun 2017 07:14:11 +0000 (+0900)
Subject: (char-db-json-insert-relation-feature): Check argument `value' to
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=601c9412259793787cdbb1ab99e6ab7cac3402cf;p=chise%2Fest.git

(char-db-json-insert-relation-feature): Check argument `value' to
accept character object as the same as list of characters.
---

diff --git a/char-db-json.el b/char-db-json.el
index b609842..2da62e5 100644
--- a/char-db-json.el
+++ b/char-db-json.el
@@ -291,6 +291,8 @@
   (let ((lbs (concat "\n" (make-string (current-column) ?\ )))
 	separator cell sources required-features
 	ret)
+    (if (characterp value)
+	(setq value (list value)))
     (while (consp value)
       (setq cell (car value))
       (if (integerp cell)