aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2025-01-04 14:18:54 +0200
committerEli Zaretskii2025-01-04 14:18:54 +0200
commit4b2bb63b7ac386daabb0bbd2dc00fb542a9bcc21 (patch)
tree3d404fd23d40e16748c34499c04a57eeccafcaff
parent55f43f5b220ed3cc49141257918e51e403dd85ac (diff)
downloademacs-4b2bb63b7ac386daabb0bbd2dc00fb542a9bcc21.tar.gz
emacs-4b2bb63b7ac386daabb0bbd2dc00fb542a9bcc21.zip
Fix documentation and prompt in 'package-isolate'
* lisp/emacs-lisp/package.el (package-isolate): Fix doc string and the prompt. (Bug#75163)
-rw-r--r--lisp/emacs-lisp/package.el15
1 files changed, 11 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index fa1d361d775..0fc5aaac343 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -2647,16 +2647,23 @@ will be deleted."
2647 2647
2648(defun package-isolate (packages &optional temp-init) 2648(defun package-isolate (packages &optional temp-init)
2649 "Start an uncustomized Emacs and only load a set of PACKAGES. 2649 "Start an uncustomized Emacs and only load a set of PACKAGES.
2650Interactively, prompt for PACKAGES to load, which should be specified
2651separated by commas.
2652If called from Lisp, PACKAGES should be a list of packages to load.
2650If TEMP-INIT is non-nil, or when invoked with a prefix argument, 2653If TEMP-INIT is non-nil, or when invoked with a prefix argument,
2651the Emacs user directory is set to a temporary directory." 2654the Emacs user directory is set to a temporary directory.
2655This command is intended for testing Emacs and/or the packages
2656in a clean environment."
2652 (interactive 2657 (interactive
2653 (cl-loop for p in (cl-loop for p in (package--alist) append (cdr p)) 2658 (cl-loop for p in (cl-loop for p in (package--alist) append (cdr p))
2654 unless (package-built-in-p p) 2659 unless (package-built-in-p p)
2655 collect (cons (package-desc-full-name p) p) into table 2660 collect (cons (package-desc-full-name p) p) into table
2656 finally return 2661 finally return
2657 (list (cl-loop for c in (completing-read-multiple 2662 (list
2658 "Isolate packages: " table 2663 (cl-loop for c in
2659 nil t) 2664 (completing-read-multiple
2665 "Packages to isolate, as comma-separated list: " table
2666 nil t)
2660 collect (alist-get c table nil nil #'string=)) 2667 collect (alist-get c table nil nil #'string=))
2661 current-prefix-arg))) 2668 current-prefix-arg)))
2662 (let* ((name (concat "package-isolate-" 2669 (let* ((name (concat "package-isolate-"