emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

emacs-29 27edd7f88cb 3/3: Remove 'package-vc--query-spec'


From: Philip Kaludercic
Subject: emacs-29 27edd7f88cb 3/3: Remove 'package-vc--query-spec'
Date: Wed, 15 Mar 2023 05:29:15 -0400 (EDT)

branch: emacs-29
commit 27edd7f88cb3506b2ca8bd6c26c6a83b6a291e81
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Remove 'package-vc--query-spec'
    
    * lisp/emacs-lisp/package-vc.el (require): Do not load `inline' during
    compilation.
    (package-vc--query-spec): Remove function.
    (package-vc--clone): Do not call 'package-vc--query-spec'.
---
 lisp/emacs-lisp/package-vc.el | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index 09f8b4462e2..253b35f1f1a 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -48,7 +48,6 @@
 ;;; Code:
 
 (eval-when-compile (require 'rx))
-(eval-when-compile (require 'inline))
 (eval-when-compile (require 'map))
 (eval-when-compile (require 'cl-lib))
 (require 'package)
@@ -227,13 +226,6 @@ name for PKG-DESC."
                            (mapcar #'cdr package-vc--archive-spec-alist))))
    '() nil #'string=))
 
-(define-inline package-vc--query-spec (pkg-desc prop)
-  "Query the property PROP for the package specification of PKG-DESC.
-If no package specification can be determined, the function will
-return nil."
-  (inline-letevals (pkg-desc prop)
-    (inline-quote (plist-get (package-vc--desc->spec ,pkg-desc) ,prop))))
-
 (defun package-vc--read-archive-data (archive)
   "Update `package-vc--archive-spec-alist' for ARCHIVE.
 This function is meant to be used as a hook for `package-read-archive-hook'."
@@ -578,7 +570,6 @@ attribute in PKG-SPEC."
     (unless (file-exists-p dir)
       (make-directory (file-name-directory dir) t)
       (let ((backend (or (plist-get pkg-spec :vc-backend)
-                         (package-vc--query-spec pkg-desc :vc-backend)
                          (package-vc--guess-backend url)
                          (plist-get (alist-get (package-desc-archive pkg-desc)
                                                package-vc--archive-data-alist



reply via email to

[Prev in Thread] Current Thread [Next in Thread]