; Remove unnecessary 'let' binding

* lisp/emacs-lisp/package-vc.el (pacakge-vc-desc->spec): Simplify function.
This commit is contained in:
Philip Kaludercic 2022-10-23 13:07:43 +02:00
parent 7640b0751b
commit ab46a0df7b
No known key found for this signature in database
GPG key ID: F2C3CC513DB89F66

View file

@ -134,12 +134,11 @@ All other values are ignored.")
"Retrieve the package specification for PKG-DESC.
The optional argument NAME can be used to override the default
name for PKG-DESC."
(let ((spec (alist-get
(or name (package-desc-name pkg-desc))
(alist-get (intern (package-desc-archive pkg-desc))
package-vc-archive-spec-alist)
nil nil #'string=)))
spec))
(alist-get
(or name (package-desc-name pkg-desc))
(alist-get (intern (package-desc-archive pkg-desc))
package-vc-archive-spec-alist)
nil nil #'string=))
(define-inline package-vc-query-spec (pkg-desc prop)
"Query the property PROP for the package specification for PKG-DESC.