diff options
author | Juri Linkov <juri@linkov.net> | 2019-10-01 23:15:03 +0300 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2019-10-01 23:15:03 +0300 |
commit | 2698d3dba2e9858b026ed127d4de3f86810a5ef3 (patch) | |
tree | 8e9b8f194cfcad8af83a4174a0105bbc691f06d6 /lisp/xt-mouse.el | |
parent | 25f45d710e91a7c1049f056ff27bc3e6968f5624 (diff) | |
parent | 3f981a0a89bca47a207fb362485f07e7322bb145 (diff) | |
download | emacs-2698d3dba2e9858b026ed127d4de3f86810a5ef3.tar.gz |
Merge branch 'feature/tabs'
Diffstat (limited to 'lisp/xt-mouse.el')
-rw-r--r-- | lisp/xt-mouse.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index 9e8a32a28ff..308f602b6d0 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el @@ -253,7 +253,13 @@ which is the \"1006\" extension implemented in Xterm >= 277." (top (nth 1 ltrb)) (posn (if w (posn-at-x-y (- x left) (- y top) w t) - (append (list nil 'menu-bar) + (append (list nil (if (and tab-bar-mode + (or (not menu-bar-mode) + ;; The tab-bar is on the + ;; second row below menu-bar + (eq y 1))) + 'tab-bar + 'menu-bar)) (nthcdr 2 (posn-at-x-y x y))))) (event (list type posn))) (setcar (nthcdr 3 posn) timestamp) |