* riece-addon.el (riece-resolve-addons): Directory don't push to addon.
authorTAKAHASHI Kaoru <kaoru@kaisei.org>
Thu, 10 Feb 2005 15:50:34 +0000 (15:50 +0000)
committerTAKAHASHI Kaoru <kaoru@kaisei.org>
Thu, 10 Feb 2005 15:50:34 +0000 (15:50 +0000)
lisp/ChangeLog
lisp/riece-addon.el

index bbfc311..260d297 100644 (file)
@@ -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.
 2005-02-09  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * riece-commands.el (riece-command-part): Fix argument.
index 7cf6bd4..0a5be0a 100644 (file)
        (append addons
               (mapcar
                (lambda (name)
        (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)))
 
                (directory-files riece-addon-directory nil "\\`[^.]" t)))
      addons)))