mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-10 15:56:18 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Juri Linkov 2021-10-17 21:03:27 +03:00
parent 04716ca48f
commit ace4ce16a3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/tab-bar.el
View File

@ -362,8 +362,9 @@ at the mouse-down event to the position at mouse-up event."
(to (tab-bar--key-to-number (to (tab-bar--key-to-number
(nth 0 (tab-bar--event-to-item (nth 0 (tab-bar--event-to-item
(event-end event)))))) (event-end event))))))
(unless (or (eq from t) (eq to t)) (unless (or (eq from to) (eq from t) (eq to t))
(tab-bar-move-tab-to to from)))) (tab-bar-move-tab-to
(if (null to) (1+ (tab-bar--current-tab-index)) to) from))))
(defvar tab-bar-map (defvar tab-bar-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))