From: Andreas Schwab <schwab@linux-m68k.org>
Date: Sun, 18 Jun 2017 07:09:34 +0000 (+0200)
Subject: * url/url-util.el (url-get-url-at-point): Add missing group in
X-Git-Tag: emacs-26.0.90~521^2~44
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d03244e34769342bb52e094f05c5e1a33fea689a;p=emacs.git

* url/url-util.el (url-get-url-at-point): Add missing group in
regex.
---

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)))