(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 (file)
--- 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)