diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2017-06-18 09:09:34 +0200 |
|---|---|---|
| committer | Andreas Schwab <schwab@linux-m68k.org> | 2017-06-18 09:16:38 +0200 |
| commit | d03244e34769342bb52e094f05c5e1a33fea689a (patch) | |
| tree | acded88c0cb887127573d4cb7a006ecdc9370b09 /lisp/url/url-util.el | |
| parent | 5261a7d8bc026963032714faa191f292647e4fdd (diff) | |
| download | emacs-d03244e34769342bb52e094f05c5e1a33fea689a.tar.gz | |
* url/url-util.el (url-get-url-at-point): Add missing group in
regex.
Diffstat (limited to 'lisp/url/url-util.el')
| -rw-r--r-- | lisp/url/url-util.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |