procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juri Linkov 2019-10-20 20:45:01 +03:00
parent 912966a5aa
commit bdeda7262c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/tab-bar.el
View file

@ -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.