[Emacs-diffs] master 86814e7: * lisp/emacs-lisp/package.el (package-buffer-info):

[Artur Malabarba]

branch: master
commit 86814e7a80568a7b384e4a24d3ad565c5376ddc5
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    * lisp/emacs-lisp/package.el (package-buffer-info):
    
    Add author and maintainers to `package-buffer-info'.
---
 lisp/emacs-lisp/package.el     |    4 +++-
 test/automated/package-test.el |   17 +++++++++++++----
 2 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index c7e3096..84d6089 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -996,7 +996,9 @@ boundaries."
            (package--prepare-dependencies
             (package-read-from-string requires-str)))
        :kind 'single
-       :url homepage))))
+       :url homepage
+       :maintainer (lm-maintainer)
+       :authors (lm-authors)))))
 
 (defun package--read-pkg-desc (kind)
   "Read a `define-package' form in current buffer.
diff --git a/test/automated/package-test.el b/test/automated/package-test.el
index 524613d..763553e 100644
--- a/test/automated/package-test.el
+++ b/test/automated/package-test.el
@@ -50,7 +50,9 @@
                        :version '(1 3)
                        :summary "A single-file package with no dependencies"
                        :kind 'single
-                       :extras '((:url . "http://doodles.au";)))
+                       :extras '((:authors ("J. R. Hacker" . "address@hidden"))
+                                 (:maintainer "J. R. Hacker" . 
"address@hidden")
+                                 (:url . "http://doodles.au";)))
   "Expected `package-desc' parsed from simple-single-1.3.el.")
 
 (defvar simple-depend-desc
@@ -58,7 +60,9 @@
                        :version '(1 0)
                        :summary "A single-file package with a dependency."
                        :kind 'single
-                       :reqs '((simple-single (1 3))))
+                       :reqs '((simple-single (1 3)))
+                       :extras '((:authors ("J. R. Hacker" . "address@hidden"))
+                                 (:maintainer "J. R. Hacker" . 
"address@hidden")))
   "Expected `package-desc' parsed from simple-depend-1.0.el.")
 
 (defvar multi-file-desc
@@ -216,6 +220,8 @@ Must called from within a `tar-mode' buffer."
                                  "(define-package \"simple-single\" \"1.3\" "
                                  "\"A single-file package "
                                  "with no dependencies\" 'nil "
+                                 ":authors '((\"J. R. Hacker\" . 
\"address@hidden")) "
+                                 ":maintainer '(\"J. R. Hacker\" . 
\"address@hidden") "
                                  ":url \"http://doodles.au\"";
                                  ")\n"))))
       (should (file-exists-p autoloads-file))
@@ -480,7 +486,9 @@ Must called from within a `tar-mode' buffer."
         (package-make-ac-desc '(1 3) nil
                               "A single-file package with no dependencies"
                               'single
-                              '((:url . "http://doodles.au";))))
+                              '((:authors ("J. R. Hacker" . "address@hidden"))
+                                (:maintainer "J. R. Hacker" . "address@hidden")
+                                (:url . "http://doodles.au";))))
   "Expected contents of the archive entry from the \"simple-single\" package.")
 
 (defvar package-x-test--single-archive-entry-1-4
@@ -488,7 +496,8 @@ Must called from within a `tar-mode' buffer."
         (package-make-ac-desc '(1 4) nil
                               "A single-file package with no dependencies"
                               'single
-                              nil))
+                              '((:authors ("J. R. Hacker" . "address@hidden"))
+                                (:maintainer "J. R. Hacker" . 
"address@hidden"))))
   "Expected contents of the archive entry from the updated \"simple-single\" 
package.")
 
 (ert-deftest package-x-test-upload-buffer ()