X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fbuild-autoloads.el;h=81b0482b2143b0c3f39e472e37d5575f2499b78d;hb=66cd3621bffecf6208aefb78b0a388c9fc6717c8;hp=123c45716ad0360ab971613e8fea3b2e107feed8;hpb=2e3cb02e20b751359c415843893f02e7a1d4639f;p=sxemacs

diff --git a/lisp/build-autoloads.el b/lisp/build-autoloads.el
index 123c457..81b0482 100644
--- 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)))))