mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
Fixes: debbugs:13979
This commit is contained in:
Jan Djärv 2013-03-18 18:19:24 +01:00
parent e9b4dbdcaa
commit e477dbfa64
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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.

3
lisp/mouse.el
View file

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