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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ab8c87fca9752b1f135067f0c09e1122a9135f22..0115f9d0cf49387cd27581aef02c436cd3318a80 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 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).
 

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 785263789b0b1717427841a3975151c7d974a267..e46f0474e3b67aa70af36da838ea26a077b92ab8 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -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")))

diff --git a/test/ChangeLog b/test/ChangeLog
index 3f115d9e4e8ed97c81a5c28c80b30cc41a62400a..bf8ecbcb9eb20921f8b2657142ab4f57402b1dd2 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,11 @@
+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

diff --git a/test/automated/data/package/archive-contents b/test/automated/data/package/archive-contents
index b26179c0c3bcfc9414c601202903c8be5c47f17a..8d6f3226ae6266ff797fbdfdf6ec9f723bbf46a1 100644 (file)
--- a/test/automated/data/package/archive-contents
+++ b/test/automated/data/package/archive-contents
@@ -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"))]))

diff --git a/test/automated/data/package/multi-file-0.2.3.tar b/test/automated/data/package/multi-file-0.2.3.tar
index dde331d0e01cde7fe81a8e69e514a2f264869157..2f1c5e93df1d956aaaa5ebcb6191fa98c20beb2c 100644 (file)
Binary files a/test/automated/data/package/multi-file-0.2.3.tar and b/test/automated/data/package/multi-file-0.2.3.tar differ

diff --git a/test/automated/package-test.el b/test/automated/package-test.el
index b5235ee99a96c486502a43325ff65d0c5420cd88..84f520df9bc9673fc64142ad5ed94a108da28f3b 100644 (file)
--- a/test/automated/package-test.el
+++ b/test/automated/package-test.el
@@ -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)))))

diff --git a/test/automated/package-x-test.el b/test/automated/package-x-test.el
index c7b82360dd82cdf14feb8d2a19396db0a3f96a38..ab90d59c19d6cde77930805ae3acaf816c07a657 100644 (file)
--- a/test/automated/package-x-test.el
+++ b/test/automated/package-x-test.el
@@ -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