From: Visuwesh <visuweshm@gmail.com>
Date: Sun, 3 Jul 2022 13:29:44 +0000 (+0200)
Subject: Exclude radio buttons when suggesting URI in eww
X-Git-Tag: emacs-29.0.90~1447^2~1211
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f133336a1afc45f4329eb8ed8a1e0e319a4691d9;p=emacs.git

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 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."