[Emacs-diffs] master bdeda72: * lisp/tab-bar.el (tab-bar-swap-tabs): Use cl-rotatef instead of rotatef.

[Juri Linkov]

branch: master
commit bdeda7262c2ee5096eb281dc684b752957537fe5
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    * lisp/tab-bar.el (tab-bar-swap-tabs): Use cl-rotatef instead of rotatef.
---
 lisp/tab-bar.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 1c182a9..113202a 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -551,8 +551,8 @@ FROM-INDEX and TO-INDEX count from 1."
   (interactive "P")
   (let* ((tabs (funcall tab-bar-tabs-function))
          (from-index (or from-index (1+ (tab-bar--current-tab-index tabs)))))
-    (rotatef (nth (1- from-index) tabs)
-             (nth (1- to-index) tabs))))
+    (cl-rotatef (nth (1- from-index) tabs)
+                (nth (1- to-index) tabs))))
 
 (defun tab-bar-move-tab (&optional arg)
   "Move the current tab ARG positions to the right.