[nongnu] elpa/package-lint bf2b091b00: Consider locally-installed packages installable for linting purposes

[ELPA Syncer]

branch: elpa/package-lint
commit bf2b091b0033e4c8098a9c73734d3968c648292c
Author: Steve Purcell <steve@sanityinc.com>
Commit: Steve Purcell <steve@sanityinc.com>

    Consider locally-installed packages installable for linting purposes
---
 package-lint.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/package-lint.el b/package-lint.el
index f8d7bfd68e..49aa936e20 100644
--- a/package-lint.el
+++ b/package-lint.el
@@ -540,7 +540,8 @@ required version PACKAGE-VERSION.  If not, raise an error 
for DEP-POS."
   "Check that all VALID-DEPS are available for installation."
   (pcase-dolist (`(,package-name ,package-version ,dep-pos) valid-deps)
     (unless (eq 'emacs package-name)
-      (let ((archive-entry (assq package-name package-archive-contents)))
+      (let ((archive-entry (append (assq package-name package-archive-contents)
+                                   (assq package-name package-alist))))
         (if archive-entry
             (package-lint--check-package-installable archive-entry 
package-version dep-pos)
           (package-lint--error-at-point
@@ -1157,7 +1158,8 @@ Lines consisting only of whitespace or empty comments are 
considered empty."
 
 (defun package-lint--highest-installable-version-of (package)
   "Return the highest version of PACKAGE available for installation."
-  (let ((descriptors (cdr (assq package package-archive-contents))))
+  (let ((descriptors (append (cdr (assq package package-archive-contents))
+                             (cdr (assq package package-alist)))))
     (if (fboundp 'package-desc-version)
         (car (sort (mapcar 'package-desc-version descriptors)
                    (lambda (v1 v2) (not (version-list-< v1 v2)))))