Add the path of APEL to `load-path' as well as its parent directory.
authoryamaoka <yamaoka>
Tue, 21 Dec 1999 01:44:59 +0000 (01:44 +0000)
committeryamaoka <yamaoka>
Tue, 21 Dec 1999 01:44:59 +0000 (01:44 +0000)
lisp/dgnuspath.el.in

index 36749e6..3ee338f 100644 (file)
@@ -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)