* mouse.el (mouse-on-link-p): Check for scroll bar.

Fixes: debbugs:13979

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bd1cbbcf5bbeb82687024b18afd2201b1062b2d6..c3dc0bfaa87d7ca17ca586dd2e50413e57172a1c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-03-18  Jan Djärv  <jan.h.d@swipnet.se>
+
+       * mouse.el (mouse-on-link-p): Check for scroll bar (Bug#13979).
+
 2013-03-18  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp-compat.el (tramp-compat-user-error): New defun.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 51601bca8df679b3042134f3a8d52e5d10853cb9..ea6b1b04de020e54a67a51c083a39d5bccc6ba2e 100644 (file)
--- 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)