From 551e07e5f5baf57eaa103a4660ccad85a1f8046c Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 17 Jun 2013 17:33:52 +0200 Subject: [PATCH] lisp/startup.el: Fix bug#14639. (command-line): Expand package name returned by `package--description-file'. --- lisp/ChangeLog | 5 +++++ lisp/startup.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 64745559126..ccc90427de2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-06-17 Juanma Barranquero + + * startup.el (command-line): Expand package name returned by + `package--description-file' (bug#14639). + 2013-06-17 Dmitry Gutov * emacs-lisp/package.el (package-load-descriptor): Do not call diff --git a/lisp/startup.el b/lisp/startup.el index 52dd6b074ba..77b2bcec5b7 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1203,7 +1203,9 @@ the `--debug-init' option to view a complete error backtrace." (when (let ((subdir (expand-file-name subdir dir))) (and (file-directory-p subdir) (file-exists-p - (package--description-file subdir)))) + (expand-file-name + (package--description-file subdir) + subdir)))) (throw 'package-dir-found t))))))) (package-initialize)) -- 2.39.2