Use 'subdir as per (directory-files) documentation

    * lisp/loadup.el(really-early-error-handler): Use 'subdir instead
      of 'dirs-only

Signed-off-by: Nelson Ferreira <nelson.ferreira@ieee.org>

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 9591871..5ca5983 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -148,7 +148,7 @@ file .sxemacs.source.tree is found."
                 (mapcar
                  #'(lambda (i) (concat i "/"))
                  (directory-files temp-path t "^[^-.]"
                 (mapcar
                  #'(lambda (i) (concat i "/"))
                  (directory-files temp-path t "^[^-.]"

-                                  nil 'dirs-only))
+                                  nil 'subdir))

                 (cons (file-name-as-directory temp-path)
                       load-path))))
 
                 (cons (file-name-as-directory temp-path)
                       load-path))))