emacs-lisp/package.el (package--read-pkg-desc): Fix tar-desc reference.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 38d41b27ef4f082f68e35e6e709ed784668a0cee..c18a8ff0f522998c81a3d0400767b28e96772ca4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -25,6 +25,9 @@
        (package-autoremove): Use it.
        (package-menu-execute): Offer to remove unneeded packages.
 
+       (package--read-pkg-desc, package-tar-file-info): Fix reference to
+       tar-desc.
+
 2015-02-03  Thierry Volpiatto  <thierry.volpiatto@gmail.com>
 
        * emacs-lisp/package.el (package-reinstall): Don't change package's selected status.

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index d013fd4a329c005715561901d3f642bc82735b48..fa620eb6bb6d896eb1bdb392a71cca419683928d 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1345,7 +1345,9 @@ The return result is a `package-desc'."
       (error "No package descriptor file found"))
     (with-current-buffer (tar--extract tar-desc)
       (unwind-protect
-          (package--read-pkg-desc 'tar)
+          (or (package--read-pkg-desc 'tar)
+              (error "Can't find define-package in %s"
+                     (tar-header-name tar-desc)))
         (kill-buffer (current-buffer))))))
 
 (defun package-dir-info ()
@@ -1378,13 +1380,12 @@ Return the pkg-desc, with desc-kind set to KIND."
   (unwind-protect
       (let* ((pkg-def-parsed (read (current-buffer)))
              (pkg-desc
-              (if (not (eq (car pkg-def-parsed) 'define-package))
-                  (error "Can't find define-package in %s"
-                         (tar-header-name tar-desc))
+              (when (eq (car pkg-def-parsed) 'define-package)
                 (apply #'package-desc-from-define
                   (append (cdr pkg-def-parsed))))))
-        (setf (package-desc-kind pkg-desc) kind)
-        pkg-desc)))
+        (when pkg-desc
+          (setf (package-desc-kind pkg-desc) kind)
+          pkg-desc))))
 
 
 ;;;###autoload