]> git.eshelyaron.com Git - emacs.git/commitdiff
package.el: Allow Package-Requires to span multiple lines (Bug#36301)
authorThomas Fitzsimmons <fitzsim@fitzsim.org>
Fri, 16 Aug 2019 03:57:55 +0000 (23:57 -0400)
committerThomas Fitzsimmons <fitzsim@fitzsim.org>
Fri, 16 Aug 2019 04:02:13 +0000 (00:02 -0400)
* lisp/emacs-lisp/package.el (lm-header-multiline): Declare
function.
(package-buffer-info): Parse Package-Requires with
lm-header-multiline instead of lm-header.
(Bug#36301)

lisp/emacs-lisp/package.el

index a72522ad8f80bc07cda33dc32f251b805d555444..e6815fd9644388bf4b722cb384e17152d8b0a1ef 100644 (file)
@@ -1028,6 +1028,7 @@ is wrapped around any parts requiring it."
               deps))))
 
 (declare-function lm-header "lisp-mnt" (header))
+(declare-function lm-header-multiline "lisp-mnt" (header))
 (declare-function lm-homepage "lisp-mnt" (&optional file))
 (declare-function lm-keywords-list "lisp-mnt" (&optional file))
 (declare-function lm-maintainer "lisp-mnt" (&optional file))
@@ -1054,7 +1055,8 @@ boundaries."
     (narrow-to-region start (point))
     (require 'lisp-mnt)
     ;; Use some headers we've invented to drive the process.
-    (let* ((requires-str (lm-header "package-requires"))
+    (let* ((requires-str
+            (mapconcat 'identity (lm-header-multiline "package-requires") " "))
            ;; Prefer Package-Version; if defined, the package author
            ;; probably wants us to use it.  Otherwise try Version.
            (pkg-version