master 7b4c4e68464: * lisp/buff-menu.el (Buffer-menu-marked-buffers): Add save-excursion.

[Juri Linkov]

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."