From: Philip Kaludercic <philipk@posteo.net>
Date: Sun, 9 Oct 2022 21:37:29 +0000 (+0200)
Subject: Rename 'package-vc-fetch' to 'package-vc-install'
X-Git-Tag: emacs-29.0.90~1616^2~307^2~67
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8e6e6e6de511ea5cf664a17761e879077aa07e0d;p=emacs.git

Rename 'package-vc-fetch' to 'package-vc-install'

* lisp/emacs-lisp/package-vc.el (package-vc-fetch): Rename to preserve
symmetry with 'package-install'.
(package-checkout): Follow the previous rename.
---

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index e02213ed3fa..f5cf90963fa 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -30,7 +30,7 @@
 ;;   * Detect merge conflicts                                   TODO
 ;;   * Check if there are upstream changes                      TODO
 ;; - Allow finding revisions that bump the version tag          TODO
-;;   * Allow for `package-vc-fetch' to use the version
+;;   * Allow for `package-vc-install' to use the version
 ;;     of the package if already installed.
 ;; - Allow for ELPA specifications to be respected without      TODO
 ;;   endangering the user with arbitrary code execution
@@ -276,7 +276,7 @@ The output is written out into PKG-FILE."
       (vc-pull))))
 
 ;;;###autoload
-(defun package-vc-fetch (name-or-url &optional name rev)
+(defun package-vc-install (name-or-url &optional name rev)
   "Fetch the source of NAME-OR-URL.
 If NAME-OR-URL is a URL, then the package will be downloaded from
 the repository indicated by the URL.  The function will try to
@@ -319,7 +319,7 @@ be requested using REV."
     ((user-error "Unknown package to fetch: %s" name-or-url)))))
 
 ;;;###autoload
-(defalias 'package-checkout #'package-vc-fetch)
+(defalias 'package-checkout #'package-vc-install)
 
 (defun package-vc-read-pkg (prompt)
   "Query for a source package description with PROMPT."