Subject: Re: bug#14639: package-initialize not run

From: Juanma Barranquero <[email-masked]>
Date: Mon, 17 Jun 2013 15:35:37 +0200

On Mon, Jun 17, 2013 at 4:34 AM, Juanma Barranquero <[email-masked]> wrote:

> or modifying package--description-file to return an absolute path.

--- lisp/startup.el 2013-06-15 15:36:11 +0000
+++ lisp/startup.el 2013-06-17 13:34:39 +0000
@@ -423,5 +423,6 @@

 (defun package--description-file (dir)
-  (concat (let ((subdir (file-name-nondirectory
+  (concat (file-name-as-directory dir)
+          (let ((subdir (file-name-nondirectory
                          (directory-file-name dir))))
             (if (string-match
"\\([^.].*?\\)-\\([0-9]+\\(?:[.][0-9]+\\|\\(?:pre\\|beta\\|alpha\\)[0-9]+\\)*\\)"
subdir)