[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 7b4c4e68464: * lisp/buff-menu.el (Buffer-menu-marked-buffers): Ad
From: |
Juri Linkov |
Subject: |
master 7b4c4e68464: * lisp/buff-menu.el (Buffer-menu-marked-buffers): Add save-excursion. |
Date: |
Sat, 2 Mar 2024 12:16:17 -0500 (EST) |
branch: master
commit 7b4c4e68464272cc7941cb53b4421cf0e3d3c3cd
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/buff-menu.el (Buffer-menu-marked-buffers): Add save-excursion.
---
lisp/buff-menu.el | 19 ++++++++++---------
1 file changed, 10 insertions(+), 9 deletions(-)
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index ca417290018..ec5337e3fda 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -556,15 +556,16 @@ in the selected frame, and will remove any marks."
(defun Buffer-menu-marked-buffers (&optional unmark)
"Return the list of buffers marked with `Buffer-menu-mark'.
If UNMARK is non-nil, unmark them."
- (let (buffers)
- (Buffer-menu-beginning)
- (while (re-search-forward "^>" nil t)
- (let ((buffer (Buffer-menu-buffer)))
- (if (and buffer unmark)
- (tabulated-list-set-col 0 " " t))
- (if (buffer-live-p buffer)
- (push buffer buffers))))
- (nreverse buffers)))
+ (save-excursion
+ (let (buffers)
+ (Buffer-menu-beginning)
+ (while (re-search-forward "^>" nil t)
+ (let ((buffer (Buffer-menu-buffer)))
+ (if (and buffer unmark)
+ (tabulated-list-set-col 0 " " t))
+ (if (buffer-live-p buffer)
+ (push buffer buffers))))
+ (nreverse buffers))))
(defun Buffer-menu-isearch-buffers ()
"Search for a string through all marked buffers using Isearch."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 7b4c4e68464: * lisp/buff-menu.el (Buffer-menu-marked-buffers): Add save-excursion.,
Juri Linkov <=