From d70cc278824b847f549ff770d20809c7f45b9dc1 Mon Sep 17 00:00:00 2001
From: bg66 <bg66>
Date: Sun, 1 Sep 2002 09:41:19 +0000
Subject: [PATCH] * lisp/initz-util.el (initz-add-to-load-path): Expand `path'
 before adding to `load-path'.

---
 ChangeLog          |    5 +++++
 lisp/initz-util.el |   13 +++++++------
 2 files changed, 12 insertions(+), 6 deletions(-)

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 ()
-- 
1.7.10.4