[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 274e71f: Don't turn mouse-1 into mouse-2 when clicking on the tab
From: |
Juri Linkov |
Subject: |
master 274e71f: Don't turn mouse-1 into mouse-2 when clicking on the tab-line (bug#49247) |
Date: |
Thu, 8 Jul 2021 13:51:44 -0400 (EDT) |
branch: master
commit 274e71f5cc33834a08e7bd24418553198cb01f34
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
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'.
---
lisp/mouse.el | 4 ++--
lisp/tab-line.el | 5 ++++-
2 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/lisp/mouse.el b/lisp/mouse.el
index ab260d4..89e5d7c 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1208,7 +1208,7 @@ overlay property, the value of that property determines
what to do.
for the `follow-link' event, the binding of that event determines
what to do.
-The resulting value determine whether POS is inside a link:
+The resulting value determines whether POS is inside a link:
- If the value is `mouse-face', POS is inside a link if there
is a non-nil `mouse-face' property at POS. Return t in this case.
@@ -2881,8 +2881,8 @@ is copied instead of being cut."
(set-marker (nth 2 state) nil))
(with-current-buffer (window-buffer window)
(setq cursor-type (nth 3 state)))))))
-
+
;;; Bindings for mouse commands.
(global-set-key [down-mouse-1] 'mouse-drag-region)
diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index 0d97da8..d5fad35 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 274e71f: Don't turn mouse-1 into mouse-2 when clicking on the tab-line (bug#49247),
Juri Linkov <=