diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2022-10-07 18:58:02 +0200 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2022-10-08 11:57:38 +0200 |
| commit | f9065c7951bd31b3475e2c425cd2b6c08e51b7e1 (patch) | |
| tree | 6fa387ace5922822828cf1be1f1b7111cb83c7e7 /lisp/emacs-lisp | |
| parent | e092e60f1539898a42ed157b87bdd32f512109e0 (diff) | |
| download | emacs-f9065c7951bd31b3475e2c425cd2b6c08e51b7e1.tar.gz emacs-f9065c7951bd31b3475e2c425cd2b6c08e51b7e1.tar.bz2 emacs-f9065c7951bd31b3475e2c425cd2b6c08e51b7e1.zip | |
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'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package-vc.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |