Spawn new process with ADDR_NO_RANDOMIZE personality if not already set

[sxemacs] / lisp / emod-utils.el

diff --git a/lisp/emod-utils.el b/lisp/emod-utils.el
index 06c1128..50ef6e0 100644 (file)
--- a/lisp/emod-utils.el
+++ b/lisp/emod-utils.el
@@ -5,7 +5,7 @@
 ;; Author:     Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: SXEmacs Development Team <sxemacs-devel@sxemacs.org>
 ;; Created:    <2008-05-01>
-;; Homepage:   http://www.sxemacs.org/
+;; Homepage:   https://www.sxemacs.org/
 ;; Keywords:   util, module, emodule, dumped
 
 ;; This file is part of SXEmacs.
@@ -38,7 +38,7 @@
 ;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 ;;; Commentary:
-;; 
+;;
 ;;    Here are a number of utils for interacting with emodules, such
 ;;    as finding them, loading them.  That sort of thing.
 ;;
@@ -46,7 +46,7 @@
 
 ;;; Todo:
 ;;
-;;     
+;;
 
 ;;; Code:
 (defvar emodule-completions nil
@@ -68,12 +68,12 @@ delimited path string."
                    path)
                  module-load-path))
        (types (mapfam
-               #'(lambda (e)
-                   (replace-in-string e "\\." ""))
-               :initiator "\\.\\("
-               :terminator "\\)$"
-               :separator "\\|"
-               :result-type #'concat module-extensions))
+               #'(lambda (e)
+                   (replace-in-string e "\\." ""))
+               :initiator "\\.\\("
+               :terminator "\\)$"
+               :separator "\\|"
+               :result-type #'concat module-extensions))
        completions)
     (while dirs
       (let ((files (directory-files-recur (car dirs) nil types 'list t 0)))