* 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 (file)
--- 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 (file)
--- 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 ()