procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make package-vc-install-from-checkout NAME argument optional

Browse source 
* lisp/emacs-lisp/package-vc.el (package-vc-install-from-checkout):
Allow nil NAME; update documentation.  (Bug#66393)
This commit is contained in:
Joseph Turner 2023-10-08 23:29:23 +02:00 • committed by Philip Kaludercic
parent 68318dfd16
commit 35205f19ca
1 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -953,18 +953,19 @@ for the last released version of the package."
(find-file directory)))
;;;###autoload
(defun package-vc-install-from-checkout (dir name)
(defun package-vc-install-from-checkout (dir &optional name)
"Install the package NAME from its source directory DIR.
NAME defaults to the base name of DIR.
Interactively, prompt the user for DIR, which should be a directory
under version control, typically one created by `package-vc-checkout'.
If invoked interactively with a prefix argument, prompt the user
for the NAME of the package to set up. Otherwise infer the package
name 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))))))
for the NAME of the package to set up."
(interactive (let* ((dir (read-directory-name "Directory: "))
(base (file-name-base (directory-file-name dir))))
(list dir (and current-prefix-arg
(read-string
(format-prompt "Package name" base)
nil nil base)))))
(unless (vc-responsible-backend dir)
(user-error "Directory %S is not under version control" dir))
(package-vc--archives-initialize)