Properly determine the name of preceeding directory

	* lisp/build-autoloads.el (find-emod-directories): Use basename of
	dirname to determine name of preceeding directory.  Now that
	basename and dirname are POSIX compliant this works and is much
	more bullet proof than the split of dirname by /.

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

diff --git a/lisp/build-autoloads.el b/lisp/build-autoloads.el
index 35f531a..81b0482 100644 (file)
--- a/lisp/build-autoloads.el
+++ b/lisp/build-autoloads.el
@@ -77,7 +77,7 @@
         directories)
     (mapfam
      #'(lambda (f)
-        (let ((d (car (last (split-string-by-char (file-dirname f) ?/) 2))))
+        (let ((d (file-basename (file-dirname f))))
           (unless (bloom-owns-p dir-bloom d)
             (bloom-add dir-bloom d)
             (setq directories (cons d directories)))))