diff options
| author | Eli Zaretskii | 2025-01-04 14:18:54 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2025-01-04 14:18:54 +0200 |
| commit | 4b2bb63b7ac386daabb0bbd2dc00fb542a9bcc21 (patch) | |
| tree | 3d404fd23d40e16748c34499c04a57eeccafcaff | |
| parent | 55f43f5b220ed3cc49141257918e51e403dd85ac (diff) | |
| download | emacs-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.el | 15 |
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. |
| 2650 | Interactively, prompt for PACKAGES to load, which should be specified | ||
| 2651 | separated by commas. | ||
| 2652 | If called from Lisp, PACKAGES should be a list of packages to load. | ||
| 2650 | If TEMP-INIT is non-nil, or when invoked with a prefix argument, | 2653 | If TEMP-INIT is non-nil, or when invoked with a prefix argument, |
| 2651 | the Emacs user directory is set to a temporary directory." | 2654 | the Emacs user directory is set to a temporary directory. |
| 2655 | This command is intended for testing Emacs and/or the packages | ||
| 2656 | in 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-" |