diff options
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 |