diff options
| author | Juri Linkov <juri@linkov.net> | 2021-09-12 21:30:06 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-09-12 21:30:06 +0300 |
| commit | 911043845d8c0a8e67407ac80ded3bf6362bb972 (patch) | |
| tree | d369c7ae5832b0e3cadece843c69a381decbf9cc /lisp | |
| parent | aa33e38e21e09045bc2ab598e34f3c1510442cb0 (diff) | |
| download | emacs-911043845d8c0a8e67407ac80ded3bf6362bb972.tar.gz emacs-911043845d8c0a8e67407ac80ded3bf6362bb972.tar.bz2 emacs-911043845d8c0a8e67407ac80ded3bf6362bb972.zip | |
* lisp/tab-bar.el (tab-bar-get-buffer-tab): Use 'remq' instead of 'seq-remove'
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/tab-bar.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index e30a5c44119..2684ff998b7 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -1945,7 +1945,7 @@ Otherwise, prefer buffers of the current tab." (frame . ,frame))))) (let* ((tabs (funcall tab-bar-tabs-function frame)) (current-tab (tab-bar--current-tab-find tabs))) - (seq-remove (lambda (tab) (eq (car tab) 'current-tab)) tabs) + (setq tabs (remq current-tab tabs)) (if ignore-current-tab ;; Use tabs without current-tab. tabs |