From bdeda7262c2ee5096eb281dc684b752957537fe5 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 20 Oct 2019 20:45:01 +0300 Subject: [PATCH] * 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 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. -- 2.39.2