diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2022-10-20 21:45:17 +0200 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2022-10-20 21:45:17 +0200 |
| commit | faeb66ae42d2617371eb3780adc379eb40877d38 (patch) | |
| tree | ab4da21516c480e01812761af419a47d4cdd2362 /lisp/emacs-lisp | |
| parent | 2dabcba1489aefe1c309bb1385ffc959e767f0c5 (diff) | |
| download | emacs-faeb66ae42d2617371eb3780adc379eb40877d38.tar.gz emacs-faeb66ae42d2617371eb3780adc379eb40877d38.tar.bz2 emacs-faeb66ae42d2617371eb3780adc379eb40877d38.zip | |
Have 'package-vc-link-directory' use name if given
* lisp/emacs-lisp/package-vc.el (package-vc-link-directory): Use the
NAME argument.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package-vc.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 |