projects
/
sxemacs
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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>
;; Author: Steve Youngs <steve@sxemacs.org>
;; Maintainer: SXEmacs Development Team <sxemacs-devel@sxemacs.org>
;; Created: <2008-05-01>
-;; Homepage: http://www.sxemacs.org/
+;; Homepage: http
s
://www.sxemacs.org/
;; Keywords: util, module, emodule, dumped
;; This file is part of SXEmacs.
;; Keywords: util, module, emodule, dumped
;; This file is part of SXEmacs.
@@
-38,7
+38,7
@@
;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
;;; Commentary:
;; 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.
;;
;; 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:
;;
;;; Todo:
;;
-;;
+;;
;;; Code:
(defvar emodule-completions nil
;;; Code:
(defvar emodule-completions nil
@@
-68,12
+68,12
@@
delimited path string."
path)
module-load-path))
(types (mapfam
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)))
completions)
(while dirs
(let ((files (directory-files-recur (car dirs) nil types 'list t 0)))