X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=path-util.el;h=db87fc7e21e8ac839f9677bef315a043e8b5a8f1;hb=9393e380f1295efcec9f120f45bab777182e693c;hp=d77464208b7eb67e8c193f713cedbdf1f126d8e8;hpb=8ea0cf57c248b6a4ba2f73288cc1b7cad582e171;p=elisp%2Fapel.git

diff --git a/path-util.el b/path-util.el
index d774642..db87fc7 100644
--- a/path-util.el
+++ b/path-util.el
@@ -54,18 +54,16 @@ You can specify following OPTIONS:
 	       (while rest
 		 (setq p (expand-file-name path (car rest)))
 		 (if (file-directory-p p)
-		     (throw 'tag p)
-		   )
-		 (setq rest (cdr rest))
-		 ))
-	     (not (member p load-path))
-	     )
+		     (throw 'tag p))
+		 (setq rest (cdr rest))))
+	     (not (or (member p load-path)
+		      (if (string-match "/$" p)
+			  (member (substring p 0 (1- (length p))) load-path)
+			(member (file-name-as-directory p) load-path)))))
 	(setq load-path
 	      (if (memq 'append options)
 		  (append load-path (list p))
-		(cons p load-path)
-		))
-      )))
+		(cons p load-path))))))
 
 ;;;###autoload
 (defun add-latest-path (pattern &optional all-paths)