mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 15:00:34 -08:00
Code Issues Projects Releases Wiki Activity

Add auxiliary function to query package specifications

Browse source 
* lisp/emacs-lisp/package-vc.el (package-vc-query-spec): Add
inline function.
This commit is contained in:
Philip Kaludercic 2022-10-23 13:02:25 +02:00
parent aaa5ae90a9
commit 7640b0751b
No known key found for this signature in database
GPG key ID: F2C3CC513DB89F66
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/package-vc.el
View file

@ -38,6 +38,7 @@
;;; Code:
(eval-when-compile (require 'rx))
(eval-when-compile (require 'inline))
(require 'package)
(require 'lisp-mnt)
(require 'vc)
@ -140,6 +141,13 @@ name for PKG-DESC."
nil nil #'string=)))
spec))
(define-inline package-vc-query-spec (pkg-desc prop)
"Query the property PROP for the package specification for PKG-DESC.
If no package specification can be determined, the function will
return nil."
(inline-letevals (pkg-desc prop)
(inline-quote (plist-get (pacakge-vc-desc->spec ,pkg-desc) ,prop))))
(defun package-vc--read-archive-data (archive)
"Update `package-vc-archive-spec-alist' with the contents of ARCHIVE.
This function is meant to be used as a hook for