Correctly detect URLs surrounded by parentheses in comments

* lisp/thingatpt.el (thing-at-point--bounds-of-well-formed-url):
Make parentheses match work inside comments.

* test/lisp/thingatpt-tests.el (thing-at-point-url-in-comment): Add
unit test.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 25e01df70ee..7c3d73e52b7 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -380,7 +380,9 @@ the bounds of a possible ill-formed URI (one lacking a scheme)."
              (save-restriction
                (narrow-to-region (1- url-beg) (min end (point-max)))
                (setq paren-end (ignore-errors
-                                 (scan-lists (1- url-beg) 1 0))))
+                                 ;; Make the scan work inside comments.
+                                 (let ((parse-sexp-ignore-comments nil))
+                                   (scan-lists (1- url-beg) 1 0)))))
              (not (blink-matching-check-mismatch (1- url-beg) paren-end))
              (setq end (1- paren-end)))
         ;; Ensure PT is actually within BOUNDARY. Check the following