diff options
| author | Juri Linkov <juri@linkov.net> | 2021-07-08 20:51:15 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-07-08 20:51:15 +0300 |
| commit | 274e71f5cc33834a08e7bd24418553198cb01f34 (patch) | |
| tree | af7df6e43e4bc17a711ff901f642d2b02304fcc2 /lisp/tab-line.el | |
| parent | 57354bc64bdec4cfc70908c80325f665ad7fbc20 (diff) | |
| download | emacs-274e71f5cc33834a08e7bd24418553198cb01f34.tar.gz emacs-274e71f5cc33834a08e7bd24418553198cb01f34.tar.bz2 emacs-274e71f5cc33834a08e7bd24418553198cb01f34.zip | |
Don't turn mouse-1 into mouse-2 when clicking on the tab-line (bug#49247)
* lisp/tab-line.el (tab-line-tab-name-format-default): For 'tab-line-tab-map'
add the property 'follow-link' with the value 'ignore'.
Diffstat (limited to 'lisp/tab-line.el')
| -rw-r--r-- | lisp/tab-line.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/tab-line.el b/lisp/tab-line.el index 0d97da8ca71..d5fad353638 100644 --- a/lisp/tab-line.el +++ b/lisp/tab-line.el @@ -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 |