From faeb66ae42d2617371eb3780adc379eb40877d38 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Thu, 20 Oct 2022 21:45:17 +0200 Subject: [PATCH] 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 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 -- 2.39.5