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

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 96c1b85f98b2f8a1306bf1a51800567d6e0f9d7b..5efcca1bd5ef3130c1822a652b643e0b9d005302 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -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)
-            (save-excursion
-              (goto-char pos)
-              (key-binding [follow-link] nil t)))))
-    (cond
-     ((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)
+              (save-excursion
+                (goto-char pos)
+                (key-binding [follow-link] nil t)))))
+      (cond
+       ((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))))
+        remap-double-click
         (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)