From: yamaoka <yamaoka>
Date: Tue, 27 Jul 1999 04:09:15 +0000 (+0000)
Subject: Rename from paths.el.
X-Git-Tag: et-gnus-6_11_08-03~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=40d03db27d74b7736b86bfc2846d4f43aefa44d2;p=elisp%2Fgnus.git-

Rename from paths.el.
---

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))))