From: Juri Linkov <juri@linkov.net>
Date: Sun, 20 Oct 2019 17:45:01 +0000 (+0300)
Subject: * lisp/tab-bar.el (tab-bar-swap-tabs): Use cl-rotatef instead of rotatef.
X-Git-Tag: emacs-27.0.90~948
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bdeda7262c2ee5096eb281dc684b752957537fe5;p=emacs.git

* lisp/tab-bar.el (tab-bar-swap-tabs): Use cl-rotatef instead of rotatef.
---

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 1c182a9ba18..113202a3b54 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.