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

* lisp/emacs-lisp/package-vc.el (package-vc-link-directory): Use the
NAME argument.
This commit is contained in:
Philip Kaludercic 2022-10-20 21:45:17 +02:00
parent 2dabcba148
commit faeb66ae42
No known key found for this signature in database
GPG key ID: F2C3CC513DB89F66

View file

@ -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