Must use `function-max-args' instead of `function-min-args' to detect

optional argument of `char-attribute-list'.

diff --git a/lisp/utf-2000/update-cdb.el b/lisp/utf-2000/update-cdb.el
index 88c1192..9f4afab 100644 (file)
--- a/lisp/utf-2000/update-cdb.el
+++ b/lisp/utf-2000/update-cdb.el
@@ -76,13 +76,13 @@
       (save-charset-mapping-table ccs))
     )
    (t
-    (if (>= (function-min-args 'char-attribute-list) 1)
+    (if (>= (function-max-args 'char-attribute-list) 1)
        (char-attribute-list 'rehash)
       (mapcar (lambda (file)
                (mount-char-attribute-table
                 (intern (file-name-char-attribute-name file))))
              (directory-files
-              (expand-file-name "system-char-id"
+              (expand-file-name "system-char-id" ; "character/feature" ;
                                 system-char-database-directory)
               nil nil t t)))
     (dolist (ccs (charset-list))