procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix bug#16873

Browse source 
* lisp/emacs-lisp/package.el (package-desc): Use the contents of the
quoted form, not its cdr.
This commit is contained in:
Dmitry Gutov 2014-03-22 10:43:30 +02:00
parent 4568178886
commit 1197f2e665
4 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

2
lisp/emacs-lisp/package.el
View file

@ -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)))

3
test/automated/data/package/archive-contents
View file

@ -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])

1
test/automated/package-test.el
View file

@ -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.