- (append addons
- (mapcar
- (lambda (name)
- (intern (file-name-sans-extension name)))
- (directory-files riece-addon-directory nil "\\`[^.]" t)))))
+ (if (file-directory-p riece-addon-directory)
+ (append addons
+ (mapcar
+ (lambda (name)
+ (unless (file-directory-p name)
+ (intern (file-name-sans-extension name))))
+ (directory-files riece-addon-directory nil "\\`[^.]" t)))
+ addons)))