masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 11:49:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix documentation and prompt in 'package-isolate'

Browse source 
* lisp/emacs-lisp/package.el (package-isolate): Fix doc string and
the prompt.  (Bug#75163)
This commit is contained in:
Eli Zaretskii 2025-01-04 14:18:54 +02:00
parent 55f43f5b22
commit 4b2bb63b7a
1 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/emacs-lisp/package.el
View file

@ -2647,16 +2647,23 @@ will be deleted."
(defun package-isolate (packages &optional temp-init) (defun package-isolate (packages &optional temp-init)
"Start an uncustomized Emacs and only load a set of PACKAGES. "Start an uncustomized Emacs and only load a set of PACKAGES.
Interactively, prompt for PACKAGES to load, which should be specified
separated by commas.
If called from Lisp, PACKAGES should be a list of packages to load.
If TEMP-INIT is non-nil, or when invoked with a prefix argument, If TEMP-INIT is non-nil, or when invoked with a prefix argument,
the Emacs user directory is set to a temporary directory." the Emacs user directory is set to a temporary directory.
This command is intended for testing Emacs and/or the packages
in a clean environment."
(interactive (interactive
(cl-loop for p in (cl-loop for p in (package--alist) append (cdr p)) (cl-loop for p in (cl-loop for p in (package--alist) append (cdr p))
unless (package-built-in-p p) unless (package-built-in-p p)
collect (cons (package-desc-full-name p) p) into table collect (cons (package-desc-full-name p) p) into table
finally return finally return
(list (cl-loop for c in (completing-read-multiple (list
"Isolate packages: " table (cl-loop for c in
nil t) (completing-read-multiple
"Packages to isolate, as comma-separated list: " table
nil t)
collect (alist-get c table nil nil #'string=)) collect (alist-get c table nil nil #'string=))
current-prefix-arg))) current-prefix-arg)))
(let* ((name (concat "package-isolate-" (let* ((name (concat "package-isolate-"