From 6fa3b4715455c46b2f8c896400b00ffb1001ba9c Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 21 Dec 1999 01:44:59 +0000 Subject: [PATCH] Add the path of APEL to `load-path' as well as its parent directory. --- lisp/dgnuspath.el.in | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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) -- 1.7.10.4