diff options
| author | Philip Kaludercic | 2025-12-27 21:18:26 +0100 |
|---|---|---|
| committer | Philip Kaludercic | 2025-12-27 21:18:26 +0100 |
| commit | a5618ce5d068dc2e61fe1fde6504cd7ae84e7ab1 (patch) | |
| tree | 641a2fd3fcf36421c1ba39f23a5cc2c26b4f19fd | |
| parent | c8c191d1a32576261c4294fcfc778fff278840ee (diff) | |
| download | emacs-feature/package-revamp.tar.gz emacs-feature/package-revamp.zip | |
Avoid modifying temporary buffer with package-review difffeature/package-revamp
* lisp/package/package-install.el (package-review): Narrow the
buffer to the region without the sentinel message. Below,
'insert-buffer-substring' will not copy over the last two lines.
| -rw-r--r-- | lisp/package/package-install.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/package/package-install.el b/lisp/package/package-install.el index c5ac2e70eb8..74cc767cff7 100644 --- a/lisp/package/package-install.el +++ b/lisp/package/package-install.el | |||
| @@ -1142,7 +1142,7 @@ attached." | |||
| 1142 | ;; delete sentinel message | 1142 | ;; delete sentinel message |
| 1143 | (goto-char (point-max)) | 1143 | (goto-char (point-max)) |
| 1144 | (forward-line -2) | 1144 | (forward-line -2) |
| 1145 | (delete-region (point) (point-max)) | 1145 | (narrow-to-region (point-min) (point)) |
| 1146 | ;; prepare mail buffer | 1146 | ;; prepare mail buffer |
| 1147 | (let ((tmp-buf (current-buffer))) | 1147 | (let ((tmp-buf (current-buffer))) |
| 1148 | (compose-mail (with-demoted-errors "Failed to find maintainers: %S" | 1148 | (compose-mail (with-demoted-errors "Failed to find maintainers: %S" |