diff options
| author | Eli Zaretskii | 2018-04-01 12:09:54 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2018-04-01 12:09:54 +0300 |
| commit | af1624f29bc264fe0cff31c46b25b0b0c90e24bf (patch) | |
| tree | c1ad013b30ad7ff7d9120d26ee7f0b4c20c59525 | |
| parent | 3a451bd1e068092442f253291df643b0c02fee2d (diff) | |
| download | emacs-af1624f29bc264fe0cff31c46b25b0b0c90e24bf.tar.gz emacs-af1624f29bc264fe0cff31c46b25b0b0c90e24bf.zip | |
* lisp/net/shr.el (shr-browse-url): Doc fix. (Bug#30957)
| -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." | |||
| 934 | (shr-browse-url)) | 934 | (shr-browse-url)) |
| 935 | 935 | ||
| 936 | (defun shr-browse-url (&optional external mouse-event) | 936 | (defun shr-browse-url (&optional external mouse-event) |
| 937 | "Browse the URL under point. | 937 | "Browse the URL at point using `browse-url'. |
| 938 | If EXTERNAL, browse the URL using `shr-external-browser'." | 938 | If EXTERNAL is non-nil (interactively, the prefix argument), browse |
| 939 | the URL using `shr-external-browser'. | ||
| 940 | If this function is invoked by a mouse click, it will browse the URL | ||
| 941 | at the position of the click. Optional argument MOUSE-EVENT describes | ||
| 942 | the mouse click event." | ||
| 939 | (interactive (list current-prefix-arg last-nonmenu-event)) | 943 | (interactive (list current-prefix-arg last-nonmenu-event)) |
| 940 | (mouse-set-point mouse-event) | 944 | (mouse-set-point mouse-event) |
| 941 | (let ((url (get-text-property (point) 'shr-url))) | 945 | (let ((url (get-text-property (point) 'shr-url))) |