diff options
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/shr.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index a6b8693dd74..5582e29c526 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -934,8 +934,12 @@ size, and full-buffer size." (shr-browse-url)) (defun shr-browse-url (&optional external mouse-event) - "Browse the URL under point. -If EXTERNAL, browse the URL using `shr-external-browser'." + "Browse the URL at point using `browse-url'. +If EXTERNAL is non-nil (interactively, the prefix argument), browse +the URL using `shr-external-browser'. +If this function is invoked by a mouse click, it will browse the URL +at the position of the click. Optional argument MOUSE-EVENT describes +the mouse click event." (interactive (list current-prefix-arg last-nonmenu-event)) (mouse-set-point mouse-event) (let ((url (get-text-property (point) 'shr-url))) |