From: tomo <tomo>
Date: Tue, 14 Oct 2003 09:54:48 +0000 (+0000)
Subject: Must use `function-max-args' instead of `function-min-args' to detect
X-Git-Tag: r21-4-12-chise-0_21-pre8-for-libchise-b1-r0_2_0-pre9~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=30b6ba5ea80dd52f9f1336622265a580aa8ff6dc;p=chise%2Fxemacs-chise.git

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