From ace4ce16a3b393a4f670efe4603966ef93b4eb63 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 17 Oct 2021 21:03:27 +0300 Subject: [PATCH] * lisp/tab-bar.el (tab-bar-mouse-move-tab): Don't drag tab to itself. --- lisp/tab-bar.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 76a217c9368..fe3472215a7 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -362,8 +362,9 @@ at the mouse-down event to the position at mouse-up event." (to (tab-bar--key-to-number (nth 0 (tab-bar--event-to-item (event-end event)))))) - (unless (or (eq from t) (eq to t)) - (tab-bar-move-tab-to to from)))) + (unless (or (eq from to) (eq from t) (eq to t)) + (tab-bar-move-tab-to + (if (null to) (1+ (tab-bar--current-tab-index)) to) from)))) (defvar tab-bar-map (let ((map (make-sparse-keymap))) -- 2.39.2