Debug message fix

[sxemacs] / lisp / build-autoloads.el

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