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

Fixes: debbugs:13979

2 files changed, 6 insertions, 1 deletions

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  <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 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)