From: yamaoka <yamaoka>
Date: Tue, 21 Dec 1999 01:44:59 +0000 (+0000)
Subject: Add the path of APEL to `load-path' as well as its parent directory.
X-Git-Tag: t-gnus-6_14_0-13~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6fa3b4715455c46b2f8c896400b00ffb1001ba9c;p=elisp%2Fgnus.git-

Add the path of APEL to `load-path' as well as its parent directory.
---

diff --git a/lisp/dgnuspath.el.in b/lisp/dgnuspath.el.in
index 36749e6..3ee338f 100644
--- a/lisp/dgnuspath.el.in
+++ b/lisp/dgnuspath.el.in
@@ -7,8 +7,11 @@
     (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 (string-match "apel/$" path)
+	(progn
+	  (if (file-directory-p path)
+	      (setq paths (nconc paths (list path))))
+	  (setq path (substring path 0 (match-beginning 0)))))
     (if (file-directory-p path)
 	(setq paths (nconc paths (list path)))))
   (or (null paths)