Commit 494e898b authored by Dmitry Gutov's avatar Dmitry Gutov

* lisp/emacs-lisp/package.el (package-buffer-info, describe-package-1):

Use :url instead of :homepage, as per
http://lists.gnu.org/archive/html/emacs-devel/2013-09/msg00622.html

* test/automated/package-test.el: Update all cases to use :url instead
of :homepage.

* test/automated/package-x-test.el
(package-x-test--single-archive-entry-1-3): Same.
parent e9155c4a
2013-10-01 Dmitry Gutov <dgutov@yandex.ru>
* emacs-lisp/package.el (package-buffer-info, describe-package-1):
Use :url instead of :homepage, as per
http://lists.gnu.org/archive/html/emacs-devel/2013-09/msg00622.html
* newcomment.el (comment-beginning): When `comment-use-syntax' is
non-nil, use `syntax-ppss' (Bug#15251).
......
......@@ -1038,7 +1038,7 @@ boundaries."
file-name pkg-version desc
(if requires-str (package-read-from-string requires-str))
:kind 'single
:homepage homepage))))
:url homepage))))
(declare-function tar-get-file-descriptor "tar-mode" (file))
(declare-function tar--extract "tar-mode" (descriptor))
......@@ -1207,8 +1207,7 @@ If optional arg NO-ACTIVATE is non-nil, don't activate packages."
(reqs (if desc (package-desc-reqs desc)))
(version (if desc (package-desc-version desc)))
(archive (if desc (package-desc-archive desc)))
(homepage (if desc (cdr (assoc :homepage
(package-desc-extras desc)))))
(homepage (if desc (cdr (assoc :url (package-desc-extras desc)))))
(built-in (eq pkg-dir 'builtin))
(installable (and archive (not built-in)))
(status (if desc (package-desc-status desc) "orphan")))
......
2013-10-01 Dmitry Gutov <dgutov@yandex.ru>
* automated/package-test.el: Update all cases to use :url instead
of :homepage.
* automated/package-x-test.el
(package-x-test--single-archive-entry-1-3): Same.
2013-09-29 Dmitry Gutov <dgutov@yandex.ru>
* automated/package-test.el (simple-single-desc-1-4): Remove, it
......
......@@ -2,11 +2,11 @@
(simple-single .
[(1 3)
nil "A single-file package with no dependencies" single
((:homepage . "http://doodles.au"))])
((:url . "http://doodles.au"))])
(simple-depend .
[(1 0)
((simple-single (1 3))) "A single-file package with a dependency." single])
(multi-file .
[(0 2 3)
nil "Example of a multi-file tar package" tar
((:homepage . "http://puddles.li"))]))
((:url . "http://puddles.li"))]))
......@@ -48,7 +48,7 @@
:version '(1 3)
:summary "A single-file package with no dependencies"
:kind 'single
:extras '((:homepage . "http://doodles.au")))
:extras '((:url . "http://doodles.au")))
"Expected `package-desc' parsed from simple-single-1.3.el.")
(defvar simple-depend-desc
......@@ -64,7 +64,7 @@
:version '(0 2 3)
:summary "Example of a multi-file tar package"
:kind 'tar
:extras '((:homepage . "http://puddles.li")))
:extras '((:url . "http://puddles.li")))
"Expected `package-desc' from \"multi-file-0.2.3.tar\".")
(defvar new-pkg-desc
......@@ -189,7 +189,7 @@ Must called from within a `tar-mode' buffer."
(concat "(define-package \"simple-single\" \"1.3\" "
"\"A single-file package "
"with no dependencies\" 'nil "
":homepage \"http://doodles.au\""
":url \"http://doodles.au\""
")\n"))))
(should (file-exists-p autoloads-file))
(should-not (get-file-buffer autoloads-file)))))
......
......@@ -49,7 +49,7 @@
(package-make-ac-desc '(1 3) nil
"A single-file package with no dependencies"
'single
'((:homepage . "http://doodles.au"))))
'((:url . "http://doodles.au"))))
"Expected contents of the archive entry from the \"simple-single\" package.")
(defvar package-x-test--single-archive-entry-1-4
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment