From 0fc3499c0909cc65e4dc7ce4631c4072fd761290 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 21 Nov 2016 14:09:04 +0900 Subject: [PATCH] (char-db-insert-relation-feature): Accept character as argument `value'. --- lisp/utf-2000/char-db-util.el | 2 ++ 1 file changed, 2 insertions(+) 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) -- 1.7.10.4