feature/package+vc 73669f73e6 7/9: Allow specifying a package name for 'package-vc-link-directory'

[Philip Kaludercic]

branch: feature/package+vc
commit 73669f73e65a038a6717377cf8308eba9b7ce2af
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Allow specifying a package name for 'package-vc-link-directory'
    
    * lisp/emacs-lisp/package-vc.el (package-vc-link-directory): Add argument 
NAME
---
 lisp/emacs-lisp/package-vc.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index d513e9a733..dfa8094e61 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -339,9 +339,16 @@ be requested using REV."
 ;;;###autoload
 (defalias 'package-checkout #'package-vc-install)
 
-(defun package-vc-link-directory (dir)
-  "Install the package in DIR by linking it into the ELPA directory."
-  (interactive (list (read-directory-name "Directory: ")))
+(defun package-vc-link-directory (dir name)
+  "Install the package NAME in DIR by linking it into the ELPA directory.
+If invoked interactively with a prefix argument, the user will be
+prompted for the package NAME.  Otherwise it will be inferred
+from the base name of DIR."
+  (interactive (let ((dir (read-directory-name "Directory: ")))
+                 (list dir
+                       (if current-prefix-arg
+                           (read-string "Package name: ")
+                         (file-name-base (directory-file-name dir))))))
   (unless (vc-responsible-backend dir)
     (user-error "Directory %S is not under version control" dir))
   (package--archives-initialize)