diff options
| author | Juri Linkov <juri@linkov.net> | 2019-10-20 20:45:01 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2019-10-20 20:45:01 +0300 |
| commit | bdeda7262c2ee5096eb281dc684b752957537fe5 (patch) | |
| tree | 72e07640b4253a1e47d280a95970e8d9eebdf7d5 /lisp/tab-bar.el | |
| parent | 912966a5aaca489c4f130e38342c07a675c45085 (diff) | |
| download | emacs-bdeda7262c2ee5096eb281dc684b752957537fe5.tar.gz | |
* lisp/tab-bar.el (tab-bar-swap-tabs): Use cl-rotatef instead of rotatef.
Diffstat (limited to 'lisp/tab-bar.el')
| -rw-r--r-- | lisp/tab-bar.el | 4 |
1 files 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. |