From 30b6ba5ea80dd52f9f1336622265a580aa8ff6dc Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 14 Oct 2003 09:54:48 +0000 Subject: [PATCH] Must use `function-max-args' instead of `function-min-args' to detect optional argument of `char-attribute-list'. --- lisp/utf-2000/update-cdb.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4