From: kaoru <kaoru>
Date: Thu, 10 Feb 2005 15:50:34 +0000 (+0000)
Subject: * riece-addon.el (riece-resolve-addons): Directory don't push to addon.
X-Git-Tag: riece-1_0_8~35
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d691608bce93bd387d5ff6a02c11f683226c021e;p=elisp%2Friece.git

* riece-addon.el (riece-resolve-addons): Directory don't push to addon.
---

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  <kaoru@kaisei.org>
+
+	* riece-addon.el (riece-resolve-addons): Don't add directory to
+	addons.
+
 2005-02-09  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* 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)))