From 3b6e01cccf89ba0f3485751125f43463bc429345 Mon Sep 17 00:00:00 2001 From: Philipp Stephani Date: Thu, 15 Jun 2017 11:49:56 +0200 Subject: 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. --- test/lisp/thingatpt-tests.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'test/lisp/thingatpt-tests.el') diff --git a/test/lisp/thingatpt-tests.el b/test/lisp/thingatpt-tests.el index d4449eacbf9..128534264e5 100644 --- a/test/lisp/thingatpt-tests.el +++ b/test/lisp/thingatpt-tests.el @@ -120,4 +120,13 @@ position to retrieve THING.") (should (equal (list-at-point) (cdr str-res))))))) +(ert-deftest thing-at-point-url-in-comment () + (with-temp-buffer + (c-mode) + (insert "/* (http://foo/bar)\n(http://foo/bar(baz)) */\n") + (goto-char 6) + (should (equal (thing-at-point 'url) "http://foo/bar")) + (goto-char 23) + (should (equal (thing-at-point 'url) "http://foo/bar(baz)")))) + ;;; thingatpt.el ends here -- cgit v1.2.1