Fix bug#16873

* lisp/emacs-lisp/package.el (package-desc): Use the contents of the
quoted form, not its cdr.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 516261666df3bfa20a17f923a9a4d902729ff668..7cf7d50118cb613de3a4526f3f2ff04bce764658 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-03-22  Dmitry Gutov  <dgutov@yandex.ru>
+
+       * emacs-lisp/package.el (package-desc): Use the contents of the
+       quoted form, not its cdr.  (Bug#16873)
+
 2014-03-22  Juanma Barranquero  <lekktu@gmail.com>
 
        * w32-common-fns.el (x-selection-owner-p): Add empty docstring for the

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index ae2c286288768001ec760ab084b076d512a95a2b..480fddbd3204055b540c1e5047bd768e2f58178d 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -334,7 +334,7 @@ contrast, `package-user-dir' contains packages for personal use."
                                  (when value
                                    (push (cons (car rest-plist)
                                                (if (eq (car-safe value) 'quote)
-                                                   (cdr value)
+                                                   (cadr value)
                                                  value))
                                          alist))))
                              (setq rest-plist (cddr rest-plist)))

diff --git a/test/automated/data/package/archive-contents b/test/automated/data/package/archive-contents
index a6df6b8086ea67f4bcdd7b3b6403b2b165f15a72..e2f92304f8628d3e2283b96d11062aa1ac0e0afb 100644 (file)
--- a/test/automated/data/package/archive-contents
+++ b/test/automated/data/package/archive-contents
@@ -2,7 +2,8 @@
  (simple-single .
                 [(1 3)
                  nil "A single-file package with no dependencies" single
-                 ((:url . "http://doodles.au"))])
+                 ((:url . "http://doodles.au")
+                  (:keywords quote ("frobnicate")))])
  (simple-depend .
                 [(1 0)
                  ((simple-single (1 3))) "A single-file package with a dependency." single])

diff --git a/test/automated/package-test.el b/test/automated/package-test.el
index 72422a8684bfe7814f6cc5eb1aed64d2fba9120b..6d0dcdab299fed4d91fe1e09435b1a4467a94109 100644 (file)
--- a/test/automated/package-test.el
+++ b/test/automated/package-test.el
@@ -326,6 +326,7 @@ Must called from within a `tar-mode' buffer."
      (should (search-forward "Summary: A single-file package with no dependencies"
                              nil t))
      (should (search-forward "Homepage: http://doodles.au" nil t))
+     (should (search-forward "Keywords: frobnicate"))
      ;; No description, though. Because at this point we don't know
      ;; what archive the package originated from, and we don't have
      ;; its readme file saved.