* 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 76a217c9368ac1def09af4c9d38fa2631c62c84d..fe3472215a70a45ecccb808761bee72e49a85cc5 100644 (file)
--- 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)))