[Emacs-diffs] master d03244e: * url/url-util.el (url-get-url-at-point): Add missing group in

[Andreas Schwab]

branch: master
commit d03244e34769342bb52e094f05c5e1a33fea689a
Author: Andreas Schwab <address@hidden>
Commit: Andreas Schwab <address@hidden>

    * 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 9897dea..a3c9655 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)))