From: bg66 <bg66>
Date: Sun, 1 Sep 2002 09:41:19 +0000 (+0000)
Subject: * lisp/initz-util.el (initz-add-to-load-path): Expand `path' before
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d70cc278824b847f549ff770d20809c7f45b9dc1;p=elisp%2Finitz.git

* lisp/initz-util.el (initz-add-to-load-path): Expand `path' before
adding to `load-path'.
---

diff --git a/ChangeLog b/ChangeLog
index f7282ef..2c474a8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-01  OHASHI Akira  <bg66@koka-in.org>
+
+	* lisp/initz-util.el (initz-add-to-load-path): Expand `path' before
+	adding to `load-path'.
+
 2002-05-17  OHASHI Akira  <bg66@koka-in.org>
 
 	* README (Development): Fix typo.
diff --git a/lisp/initz-util.el b/lisp/initz-util.el
index 71f85ac..66c0bda 100644
--- a/lisp/initz-util.el
+++ b/lisp/initz-util.el
@@ -76,12 +76,13 @@
   "Add PATHS to `load-path' recursively."
   (let ((paths (if (listp paths) paths (list paths))))
     (mapc #'(lambda (path)
-	      (when (file-directory-p path)
-		(add-to-list 'load-path path)
-		(initz-add-to-load-path
-		 ;; Without `.' and `..'.
-		 (directory-files
-		  path t "^\\([^.].+\\|\\.[^.].+\\|\\.\\..+\\)$"))))
+	      (let ((path (expand-file-name path)))
+		(when (file-directory-p path)
+		  (add-to-list 'load-path path)
+		  (initz-add-to-load-path
+		   ;; Without `.' and `..'.
+		   (directory-files
+		    path t "^\\([^.].+\\|\\.[^.].+\\|\\.\\..+\\)$")))))
 	  paths)))
 
 (defun initz-features ()