comparison lisp/mouse.el @ 59499:e13b943b7f9a

(mouse-on-link-p): Change functionality and doc string to comply with latest description in lisp ref.

59498:294644b0fa30

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

1) If the character at POS has a non-nil `follow-link' text or
overlay property, the value of that property is returned.

2) If there is a local key-binding or a keybinding at position
POS for the `follow-link' event, the binding of that event
determines whether POS is inside a link:

- If the binding 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 binding 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 binding of the `follow-link' binding.

The return value is interpreted as follows:

- If it is a string, the mouse-1 event is translated into the
first character of the string, i.e. the action of the mouse-1

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."
  (or (get-char-property pos 'follow-link)
      (save-excursion
	(goto-char pos)
	(let ((b (key-binding [follow-link] nil t)))
	  (cond
	   ((eq b 'mouse-face)
	    (and (get-char-property pos 'mouse-face) t))
	   ((functionp b)
	    (funcall b pos))
	   (t b))))))

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

59499:e13b943b7f9a

(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 as action code,
or if there is a local key-binding or a keybinding at position
POS for the `follow-link' event, use the binding of that event as
action code.

The action code is used to determine whether POS is inside a link:

- If the action code 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 action code 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 action code itself.

The return value is interpreted as follows:

- If it is a string, the mouse-1 event is translated into the
first character of the string, i.e. the action of the mouse-1

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