diff options
| -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." | |||
| 551 | (interactive "P") | 551 | (interactive "P") |
| 552 | (let* ((tabs (funcall tab-bar-tabs-function)) | 552 | (let* ((tabs (funcall tab-bar-tabs-function)) |
| 553 | (from-index (or from-index (1+ (tab-bar--current-tab-index tabs))))) | 553 | (from-index (or from-index (1+ (tab-bar--current-tab-index tabs))))) |
| 554 | (rotatef (nth (1- from-index) tabs) | 554 | (cl-rotatef (nth (1- from-index) tabs) |
| 555 | (nth (1- to-index) tabs)))) | 555 | (nth (1- to-index) tabs)))) |
| 556 | 556 | ||
| 557 | (defun tab-bar-move-tab (&optional arg) | 557 | (defun tab-bar-move-tab (&optional arg) |
| 558 | "Move the current tab ARG positions to the right. | 558 | "Move the current tab ARG positions to the right. |