diff options
| author | Juri Linkov | 2019-10-20 20:45:01 +0300 |
|---|---|---|
| committer | Juri Linkov | 2019-10-20 20:45:01 +0300 |
| commit | bdeda7262c2ee5096eb281dc684b752957537fe5 (patch) | |
| tree | 72e07640b4253a1e47d280a95970e8d9eebdf7d5 | |
| parent | 912966a5aaca489c4f130e38342c07a675c45085 (diff) | |
| download | emacs-bdeda7262c2ee5096eb281dc684b752957537fe5.tar.gz emacs-bdeda7262c2ee5096eb281dc684b752957537fe5.zip | |
* lisp/tab-bar.el (tab-bar-swap-tabs): Use cl-rotatef instead of rotatef.
| -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. |