From d03244e34769342bb52e094f05c5e1a33fea689a Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 18 Jun 2017 09:09:34 +0200 Subject: [PATCH] * url/url-util.el (url-get-url-at-point): Add missing group in regex. --- lisp/url/url-util.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el index 9897dea9c7f..a3c9655ebdd 100644 --- a/lisp/url/url-util.el +++ b/lisp/url/url-util.el @@ -565,7 +565,7 @@ Has a preference for looking backward when not directly on a symbol." (skip-chars-forward url-get-url-filename-chars)) (setq start (point))) (setq url (buffer-substring-no-properties start (point)))) - (if (and url (string-match "^(.*)\\.?$" url)) + (if (and url (string-match "^(\\(.*\\))\\.?$" url)) (setq url (match-string 1 url))) (if (and url (string-match "^URL:" url)) (setq url (substring url 4 nil))) -- 2.39.2