[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/package+vc faeb66ae42 3/3: Have 'package-vc-link-directory' use
From: |
Philip Kaludercic |
Subject: |
feature/package+vc faeb66ae42 3/3: Have 'package-vc-link-directory' use name if given |
Date: |
Thu, 20 Oct 2022 16:18:44 -0400 (EDT) |
branch: feature/package+vc
commit faeb66ae42d2617371eb3780adc379eb40877d38
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
Have 'package-vc-link-directory' use name if given
* lisp/emacs-lisp/package-vc.el (package-vc-link-directory): Use the
NAME argument.
---
lisp/emacs-lisp/package-vc.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index e9f5f254d0..360a5ebf9d 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