From: Jan Djärv Date: Mon, 18 Mar 2013 17:19:24 +0000 (+0100) Subject: * mouse.el (mouse-on-link-p): Check for scroll bar. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~537 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e477dbfa64d70307f0221f7bb7abb8dabd5aad50;p=emacs.git * mouse.el (mouse-on-link-p): Check for scroll bar. Fixes: debbugs:13979 --- 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)