mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Don't turn mouse-1 into mouse-2 when clicking on the tab-line (bug#49247)

Browse source 
* lisp/tab-line.el (tab-line-tab-name-format-default): For 'tab-line-tab-map'
add the property 'follow-link' with the value 'ignore'.
This commit is contained in:
Juri Linkov 2021-07-08 20:51:15 +03:00
parent 57354bc64b
commit 274e71f5cc
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/tab-line.el
View file

@ -471,7 +471,10 @@ should return the formatted tab name to display in the tab line."
(dolist (fn tab-line-tab-face-functions)
(setf face (funcall fn tab tabs face buffer-p selected-p)))
(apply 'propertize
(concat (propertize name 'keymap tab-line-tab-map)
(concat (propertize name
'keymap tab-line-tab-map
;; Don't turn mouse-1 into mouse-2 (bug#49247)
'follow-link 'ignore)
(or (and (or buffer-p (assq 'buffer tab) (assq 'close tab))
tab-line-close-button-show
(not (eq tab-line-close-button-show