From e477dbfa64d70307f0221f7bb7abb8dabd5aad50 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20Dj=C3=A4rv?= Date: Mon, 18 Mar 2013 18:19:24 +0100 Subject: [PATCH] * mouse.el (mouse-on-link-p): Check for scroll bar. Fixes: debbugs:13979 --- lisp/ChangeLog | 4 ++++ lisp/mouse.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bd1cbbcf5bb..c3dc0bfaa87 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-03-18 Jan Djärv + + * mouse.el (mouse-on-link-p): Check for scroll bar (Bug#13979). + 2013-03-18 Michael Albinus * net/tramp-compat.el (tramp-compat-user-error): New defun. diff --git a/lisp/mouse.el b/lisp/mouse.el index 51601bca8df..ea6b1b04de0 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -755,7 +755,8 @@ click is the local or global binding of that event. - Otherwise, the mouse-1 event is translated into a mouse-2 event at the same position." (let ((action - (and (or (not (consp pos)) + (and (not (memq 'vertical-scroll-bar pos)) + (or (not (consp pos)) mouse-1-click-in-non-selected-windows (eq (selected-window) (posn-window pos))) (or (mouse-posn-property pos 'follow-link) -- 2.39.2