From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 21 Nov 2016 05:09:04 +0000 (+0900)
Subject: (char-db-insert-relation-feature): Accept character as argument
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0fc3499c0909cc65e4dc7ce4631c4072fd761290;p=chise%2Fxemacs-chise.git-

(char-db-insert-relation-feature): Accept character as argument
`value'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 458069f..e9f5a02 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -761,6 +761,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)