Spawn new process with ADDR_NO_RANDOMIZE personality if not already set

[sxemacs] / lisp / build-autoloads.el

diff --git a/lisp/build-autoloads.el b/lisp/build-autoloads.el
index 642420c..81b0482 100644 (file)
--- a/lisp/build-autoloads.el
+++ b/lisp/build-autoloads.el
@@ -65,27 +65,19 @@
 (defun find-emod-directories ()
   (let* ((objdir "../modules/")
         (files (directory-files-recur
-                objdir 'full (concat
-                              "\\.\\("
-                              (mapconcat
-                               #'(lambda (e)
-                                   (replace-in-string e "\\." ""))
-                               module-extensions "\\|")
-                              "\\)$")
-                             ;; http://issues.sxemacs.org/show_bug.cgi?id=162
-                             ;; (mapfam
-                             ;;  #'(lambda (e)
-                             ;;      (replace-in-string e "\\." ""))
-                             ;;  :initiator "\\.\\("
-                             ;;  :terminator "\\)$"
-                             ;;  :separator "\\|"
-                             ;;  :result-type #'concat module-extensions)
+                objdir 'full (mapfam
+                              #'(lambda (e)
+                                  (replace-in-string e "\\." ""))
+                              :initiator "\\.\\("
+                              :terminator "\\)$"
+                              :separator "\\|"
+                              :result-type #'concat module-extensions)
                 'list t 1))
         (dir-bloom (make-bloom))
         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)))))