From: Juri Linkov <juri@linkov.net>
Date: Sun, 17 Oct 2021 18:03:27 +0000 (+0300)
Subject: * lisp/tab-bar.el (tab-bar-mouse-move-tab): Don't drag tab to itself.
X-Git-Tag: emacs-28.0.90~265
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ace4ce16a3b393a4f670efe4603966ef93b4eb63;p=emacs.git

* lisp/tab-bar.el (tab-bar-mouse-move-tab): Don't drag tab to itself.
---

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)))