(char-db-make-char-spec): Don't add `name' into char-spec of

Variation-Selectors of IVS.

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 87d11f6..eb5b318 100644 (file)
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -451,7 +451,8 @@
           (cond ((and (setq ret (encode-char char '=ucs 'defined-only))
                       (not (and (<= #xE000 ret)(<= ret #xF8FF))))
                  (setq char-spec (list (cons '=ucs ret)))
-                 (cond ((setq ret (get-char-attribute char 'name))
+                 (cond ((and (not (and (<= #xE0100 ret)(<= ret #xE01EF)))
+                             (setq ret (get-char-attribute char 'name)))
                         (setq char-spec (cons (cons 'name ret) char-spec))
                         )
                        ((setq ret (get-char-attribute char 'name*))