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

(cherry picked from commit 7b4c4e68464272cc7941cb53b4421cf0e3d3c3cd)

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index ca417290018a3c9377b50a21188f8034eb1d1d7b..ec5337e3fda6d8085446413f450411cbed42927d 100644 (file)
--- 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."