From 73669f73e65a038a6717377cf8308eba9b7ce2af Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Wed, 12 Oct 2022 21:25:54 +0200 Subject: [PATCH] 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 d513e9a7331..dfa8094e614 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) -- 2.39.5