`load-path' should contain only directory names

* lisp/emacs-lisp/package.el (package-autoload-ensure-default-file):
`load-path' should contain only directory names

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 2dbcdf649408bb0fffd77c3d139c459b6c47e719..2962da5a917b7400749e0d6677a8fbf2a0221dfe 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -889,7 +889,8 @@ untar into a directory named DIR; otherwise, signal an error."
              " --- automatically extracted autoloads\n"
              ";;\n"
              ";;; Code:\n"
-             "(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))\n"
+             ;; `load-path' should contain only directory names
+             "(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))\n"
              "\f\n;; Local Variables:\n"
              ";; version-control: never\n"
              ";; no-byte-compile: t\n"