diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/mouse.el | 3 |
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) |