Commit b0ca1b8a authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(mouse-on-link-p): If arg POS is a mouse event,

check that window of that event is the selected window.
(mouse-drag-region-1): Compare mouse event window to selected
window before setting point.
parent baf70a02
......@@ -769,6 +769,8 @@ If the click is in the echo area, display the `*Messages*' buffer."
(defun mouse-on-link-p (pos)
"Return non-nil if POS is on a link in the current buffer.
POS must be a buffer position in the current buffer or an mouse
event location in the selected window, see `event-start'.
A clickable link is identified by one of the following methods:
......@@ -787,7 +789,7 @@ is a non-nil `mouse-face' property at POS. Return t in this case.
- If the value is a function, FUNC, POS is inside a link if
the call \(FUNC POS) returns non-nil. Return the return value
from that call.
from that call. Arg is \(posn-point POS) if POS is a mouse event,
- Otherwise, return the value itself.
......@@ -803,17 +805,22 @@ 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
(or (get-char-property pos 'follow-link)
(goto-char pos)
(key-binding [follow-link] nil t)))))
((eq action 'mouse-face)
(and (get-char-property pos 'mouse-face) t))
((functionp action)
(funcall action pos))
(t action))))
(if (consp pos)
(setq pos (and (eq (selected-window) (posn-window pos))
(posn-point pos))))
(when pos
(let ((action
(or (get-char-property pos 'follow-link)
(goto-char pos)
(key-binding [follow-link] nil t)))))
((eq action 'mouse-face)
(and (get-char-property pos 'mouse-face) t))
((functionp action)
(funcall action pos))
(t action)))))
(defun mouse-drag-region-1 (start-event)
(mouse-minibuffer-check start-event)
......@@ -831,7 +838,9 @@ at the same position."
(nth 3 bounds)
;; Don't count the mode line.
(1- (nth 3 bounds))))
on-link remap-double-click
(on-link (and mouse-1-click-follows-link
(eq start-window (selected-window))))
(click-count (1- (event-click-count start-event))))
(setq mouse-selection-click-count click-count)
(setq mouse-selection-click-count-buffer (current-buffer))
......@@ -841,7 +850,7 @@ at the same position."
(if (< (point) start-point)
(goto-char start-point))
(setq start-point (point))
(setq on-link (and mouse-1-click-follows-link
(setq on-link (and on-link
(mouse-on-link-p start-point)))
(setq remap-double-click (and on-link
(eq mouse-1-click-follows-link 'double)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment