Debug message fix

[sxemacs] / lisp / build-autoloads.el

diff --git a/lisp/build-autoloads.el b/lisp/build-autoloads.el
index 123c457..81b0482 100644 (file)
--- a/lisp/build-autoloads.el
+++ b/lisp/build-autoloads.el
@@ -67,7 +67,7 @@
         (files (directory-files-recur
                 objdir 'full (mapfam
                               #'(lambda (e)
-                                  (replace-in-string e "\\." ""))
+                                  (replace-in-string e "\\." ""))
                               :initiator "\\.\\("
                               :terminator "\\)$"
                               :separator "\\|"
@@ -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)))))