Exclude radio buttons when suggesting URI in eww

* lisp/net/eww.el (eww-links-at-point): Exclude radio links.
(bug#56366).

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 3c16942e7c01caac4a936183feea3a998faee727..1671e062b25d094cc8caec6152b3f4c6b2573795 100644 (file)
--- 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."