From d691608bce93bd387d5ff6a02c11f683226c021e Mon Sep 17 00:00:00 2001 From: kaoru Date: Thu, 10 Feb 2005 15:50:34 +0000 Subject: [PATCH] * riece-addon.el (riece-resolve-addons): Directory don't push to addon. --- lisp/ChangeLog | 5 +++++ lisp/riece-addon.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bbfc311..260d297 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-02-10 TAKAHASHI Kaoru + + * riece-addon.el (riece-resolve-addons): Don't add directory to + addons. + 2005-02-09 Yoichi NAKAYAMA * riece-commands.el (riece-command-part): Fix argument. diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el index 7cf6bd4..0a5be0a 100644 --- a/lisp/riece-addon.el +++ b/lisp/riece-addon.el @@ -185,7 +185,8 @@ (append addons (mapcar (lambda (name) - (intern (file-name-sans-extension name))) + (unless (file-directory-p name) + (intern (file-name-sans-extension name)))) (directory-files riece-addon-directory nil "\\`[^.]" t))) addons))) -- 1.7.10.4