mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 16:20:17 -08:00
Code Issues Projects Releases Wiki Activity

Allow specifying a package name for 'package-vc-link-directory'

Browse source 
* lisp/emacs-lisp/package-vc.el (package-vc-link-directory): Add argument NAME
This commit is contained in:
Philip Kaludercic 2022-10-12 21:25:54 +02:00
parent 0e3b67e3a3
commit 73669f73e6
No known key found for this signature in database
GPG key ID: F2C3CC513DB89F66
1 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/package-vc.el
View file

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