From: Philip Kaludercic <philipk@posteo.net>
Date: Thu, 20 Oct 2022 19:45:17 +0000 (+0200)
Subject: Have 'package-vc-link-directory' use name if given
X-Git-Tag: emacs-29.0.90~1616^2~307^2~45
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=faeb66ae42d2617371eb3780adc379eb40877d38;p=emacs.git

Have 'package-vc-link-directory' use name if given

* lisp/emacs-lisp/package-vc.el (package-vc-link-directory): Use the
NAME argument.
---

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index e9f5f254d09..360a5ebf9d6 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -446,7 +446,7 @@ from the base name of DIR."
   (unless (vc-responsible-backend dir)
     (user-error "Directory %S is not under version control" dir))
   (package--archives-initialize)
-  (let* ((name (file-name-base (directory-file-name dir)))
+  (let* ((name (or name (file-name-base (directory-file-name dir))))
          (pkg-dir (expand-file-name name package-user-dir)))
     (make-symbolic-link dir pkg-dir)
     (package-vc-unpack-1 (package-desc-create