diff options
| author | Visuwesh <visuweshm@gmail.com> | 2022-07-03 15:29:44 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-07-04 12:14:57 +0200 |
| commit | f133336a1afc45f4329eb8ed8a1e0e319a4691d9 (patch) | |
| tree | d6b66955a7da8368c429d061973f90a33e462681 /lisp/net/eww.el | |
| parent | 906b97edb9a7dbc61af4386cb34d4bf89bd0ecfb (diff) | |
| download | emacs-f133336a1afc45f4329eb8ed8a1e0e319a4691d9.tar.gz emacs-f133336a1afc45f4329eb8ed8a1e0e319a4691d9.tar.bz2 emacs-f133336a1afc45f4329eb8ed8a1e0e319a4691d9.zip | |
Exclude radio buttons when suggesting URI in eww
* lisp/net/eww.el (eww-links-at-point): Exclude radio links.
(bug#56366).
Diffstat (limited to 'lisp/net/eww.el')
| -rw-r--r-- | lisp/net/eww.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 3c16942e7c0..1671e062b25 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -932,9 +932,9 @@ The renaming scheme is performed in accordance with (defun eww-links-at-point () "Return list of URIs, if any, linked at point." - (remq nil - (list (get-text-property (point) 'shr-url) - (get-text-property (point) 'image-url)))) + (seq-filter #'stringp + (list (get-text-property (point) 'shr-url) + (get-text-property (point) 'image-url)))) (defun eww-view-source () "View the HTML source code of the current page." |