comparison lisp/mouse.el @ 60204:074d6632232c

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

60203:ba4a03ed6f89

      (mouse-drag-region-1 start-event))))


(defun mouse-on-link-p (pos)
  "Return non-nil if POS is on a link in the current buffer.

A clickable link is identified by one of the following methods:

- If the character at POS has a non-nil `follow-link' text or
overlay property, use the value of that property determines what

- If the value is `mouse-face', POS is inside a link if there
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.

- Otherwise, return the value itself.

The return value is interpreted as follows:

first element of that vector, i.e. the action of the mouse-1
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))))

(defun mouse-drag-region-1 (start-event)
  (mouse-minibuffer-check start-event)
  (let* ((echo-keystrokes 0)
	 (start-posn (event-start start-event))

	 (top (nth 1 bounds))
	 (bottom (if (window-minibuffer-p start-window)
		     (nth 3 bounds)
		   ;; Don't count the mode line.
		   (1- (nth 3 bounds))))
	 on-link 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))
    (mouse-set-point start-event)
    ;; In case the down click is in the middle of some intangible text,
    ;; use the end of that text, and put it in START-POINT.
    (if (< (point) start-point)
	(goto-char start-point))
    (setq start-point (point))
    (setq on-link (and mouse-1-click-follows-link
		       (mouse-on-link-p start-point)))
    (setq remap-double-click (and on-link
				  (eq mouse-1-click-follows-link 'double)
				  (= click-count 1)))
    (if remap-double-click  ;; Don't expand mouse overlay in links

60204:074d6632232c

      (mouse-drag-region-1 start-event))))


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

- If the character at POS has a non-nil `follow-link' text or
overlay property, use the value of that property determines what

- If the value is `mouse-face', POS is inside a link if there
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.  Arg is \(posn-point POS) if POS is a mouse event,

- Otherwise, return the value itself.

The return value is interpreted as follows:

first element of that vector, i.e. the action of the mouse-1
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."
  (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)
  (let* ((echo-keystrokes 0)
	 (start-posn (event-start start-event))

	 (top (nth 1 bounds))
	 (bottom (if (window-minibuffer-p start-window)
		     (nth 3 bounds)
		   ;; Don't count the mode line.
		   (1- (nth 3 bounds))))
	 (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))
    (mouse-set-point start-event)
    ;; In case the down click is in the middle of some intangible text,
    ;; use the end of that text, and put it in START-POINT.
    (if (< (point) start-point)
	(goto-char start-point))
    (setq start-point (point))
    (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)
				  (= click-count 1)))
    (if remap-double-click  ;; Don't expand mouse overlay in links