[Emacs-diffs] /srv/bzr/emacs/trunk r112082: * mouse.el (mouse-on-link-p): Check for scroll bar.

[Jan D.]

------------------------------------------------------------
revno: 112082
fixes bug: http://debbugs.gnu.org/13979
committer: Jan D. <address@hidden>
branch nick: trunk
timestamp: Mon 2013-03-18 18:19:24 +0100
message:
  * mouse.el (mouse-on-link-p): Check for scroll bar.
modified:
  lisp/ChangeLog
  lisp/mouse.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-03-18 13:04:13 +0000
+++ b/lisp/ChangeLog    2013-03-18 17:19:24 +0000
@@ -1,3 +1,7 @@
+2013-03-18  Jan Djärv  <address@hidden>
+
+       * mouse.el (mouse-on-link-p): Check for scroll bar (Bug#13979).
+
 2013-03-18  Michael Albinus  <address@hidden>
 
        * net/tramp-compat.el (tramp-compat-user-error): New defun.

=== modified file 'lisp/mouse.el'
--- a/lisp/mouse.el     2013-03-09 17:14:24 +0000
+++ b/lisp/mouse.el     2013-03-18 17:19:24 +0000
@@ -755,7 +755,8 @@
 - 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)