From 40d03db27d74b7736b86bfc2846d4f43aefa44d2 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 27 Jul 1999 04:09:15 +0000 Subject: [PATCH] Rename from paths.el. --- lisp/dgnuspath.el.in | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 lisp/dgnuspath.el.in diff --git a/lisp/dgnuspath.el.in b/lisp/dgnuspath.el.in new file mode 100644 index 0000000..36749e6 --- /dev/null +++ b/lisp/dgnuspath.el.in @@ -0,0 +1,15 @@ +;; -*- Emacs-Lisp -*- +(let ((addpath + "@ADDITIONAL_LOAD_PATH@" + ) + path paths) + (while (string-match "[^\0-\37:]+" addpath) + (setq path (file-name-as-directory + (expand-file-name (match-string 0 addpath))) + addpath (substring addpath (match-end 0))) + (if (string-match "apel/" path) + (setq path (substring path 0 (match-beginning 0)))) + (if (file-directory-p path) + (setq paths (nconc paths (list path))))) + (or (null paths) + (setq load-path (nconc paths load-path)))) -- 1.7.10.4