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:
parent
2dabcba148
commit
faeb66ae42
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue