diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2022-10-23 13:02:25 +0200 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2022-10-23 13:02:25 +0200 |
| commit | 7640b0751ba1065f43ff93ed7ad2cc0d9dff9a97 (patch) | |
| tree | 7dd859d113d62d7bc39b376e511c5519b057be77 /lisp/emacs-lisp | |
| parent | aaa5ae90a90ba45c81bc7036ceedf5f15038c47e (diff) | |
| download | emacs-7640b0751ba1065f43ff93ed7ad2cc0d9dff9a97.tar.gz emacs-7640b0751ba1065f43ff93ed7ad2cc0d9dff9a97.tar.bz2 emacs-7640b0751ba1065f43ff93ed7ad2cc0d9dff9a97.zip | |
Add auxiliary function to query package specifications
* lisp/emacs-lisp/package-vc.el (package-vc-query-spec): Add
inline function.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package-vc.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el index 562c5340028..769f9ac5dc5 100644 --- a/lisp/emacs-lisp/package-vc.el +++ b/lisp/emacs-lisp/package-vc.el @@ -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 |