Commit af1624f2 authored by Eli Zaretskii's avatar Eli Zaretskii

* lisp/net/shr.el (shr-browse-url): Doc fix. (Bug#30957)

parent 3a451bd1
...@@ -934,8 +934,12 @@ size, and full-buffer size." ...@@ -934,8 +934,12 @@ size, and full-buffer size."
(shr-browse-url)) (shr-browse-url))
(defun shr-browse-url (&optional external mouse-event) (defun shr-browse-url (&optional external mouse-event)
"Browse the URL under point. "Browse the URL at point using `browse-url'.
If EXTERNAL, browse the URL using `shr-external-browser'." 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)) (interactive (list current-prefix-arg last-nonmenu-event))
(mouse-set-point mouse-event) (mouse-set-point mouse-event)
(let ((url (get-text-property (point) 'shr-url))) (let ((url (get-text-property (point) 'shr-url)))
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