* lisp/emacs-lisp/package.el (package-autoload-ensure-default-file):

Add current dir to the load-path.
(package-generate-autoloads): Don't rely on autoload-ensure-default-file.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 30c49c942c6b49fbf5094757aae18498d9086b16..61d6af86d2ef285e473af6e5f2b9d3d5be5fd5ec 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2013-04-27  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emacs-lisp/package.el (package-autoload-ensure-default-file):
+       Add current dir to the load-path.
+       (package-generate-autoloads): Don't rely on
+       autoload-ensure-default-file.
+
 2013-04-26  Reuben Thomas  <rrt@sc3d.org>
 
        * textmodes/remember.el (remember-store-in-files): Document that

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 605d1cf375c94d92c61ca9bae845e5dbee014c61..c80b8d970dc6e6010d428cdce161f25829d47bae 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -588,7 +588,8 @@ EXTRA-PROPERTIES is currently unused."
      (concat ";;; " (file-name-nondirectory file)
             " --- automatically extracted autoloads\n"
             ";;\n"
-            ";;; Code:\n\n"
+            ";;; Code:\n"
+             "(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))\n"
             "\f\n;; Local Variables:\n"
             ";; version-control: never\n"
             ";; no-byte-compile: t\n"
@@ -605,8 +606,7 @@ EXTRA-PROPERTIES is currently unused."
         ;;(ignore-name (concat name "-pkg.el"))
         (generated-autoload-file (expand-file-name auto-name pkg-dir))
         (version-control 'never))
-    (unless (fboundp 'autoload-ensure-default-file)
-      (package-autoload-ensure-default-file generated-autoload-file))
+    (package-autoload-ensure-default-file generated-autoload-file)
     (update-directory-autoloads pkg-dir)
     (let ((buf (find-buffer-visiting generated-autoload-file)))
       (when buf (kill-buffer buf)))))