From: Philip Kaludercic <philipk@posteo.net>
Date: Fri, 7 Oct 2022 16:58:02 +0000 (+0200)
Subject: Use 'package-vc-p' in package-vc.el
X-Git-Tag: emacs-29.0.90~1616^2~307^2~73
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9065c7951bd31b3475e2c425cd2b6c08e51b7e1;p=emacs.git

Use 'package-vc-p' in package-vc.el

* package-vc.el (package-vc-commit): Use it instead of 'eq'.
(package-vc-version): Use it instead of 'eq'.
---

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index d3850a5e2c0..e03a5f73b4b 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -71,7 +71,7 @@
 
 (defun package-vc-commit (pkg)
   "Extract the commit of a development package PKG."
-  (cl-assert (eq (package-desc-kind pkg) 'vc))
+  (cl-assert (package-vc-p pkg))
   ;; FIXME: vc should be extended to allow querying the commit of a
   ;; directory (as is possible when dealing with git repositores).
   ;; This should be a fallback option.
@@ -82,7 +82,7 @@
 
 (defun package-vc-version (pkg)
   "Extract the commit of a development package PKG."
-  (cl-assert (eq (package-desc-kind pkg) 'vc))
+  (cl-assert (package-vc-p pkg))
   (cl-loop with dir = (package-desc-dir pkg) ;FIXME: dir is nil
            for file in (sort (directory-files dir t "\\.el\\'")
                              (lambda (s1 s2)