* 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>
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)))))