diff options
| author | Andreas Schwab | 2017-06-18 09:09:34 +0200 |
|---|---|---|
| committer | Andreas Schwab | 2017-06-18 09:16:38 +0200 |
| commit | d03244e34769342bb52e094f05c5e1a33fea689a (patch) | |
| tree | acded88c0cb887127573d4cb7a006ecdc9370b09 | |
| parent | 5261a7d8bc026963032714faa191f292647e4fdd (diff) | |
| download | emacs-d03244e34769342bb52e094f05c5e1a33fea689a.tar.gz emacs-d03244e34769342bb52e094f05c5e1a33fea689a.zip | |
* url/url-util.el (url-get-url-at-point): Add missing group in
regex.
| -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." | |||
| 565 | (skip-chars-forward url-get-url-filename-chars)) | 565 | (skip-chars-forward url-get-url-filename-chars)) |
| 566 | (setq start (point))) | 566 | (setq start (point))) |
| 567 | (setq url (buffer-substring-no-properties start (point)))) | 567 | (setq url (buffer-substring-no-properties start (point)))) |
| 568 | (if (and url (string-match "^(.*)\\.?$" url)) | 568 | (if (and url (string-match "^(\\(.*\\))\\.?$" url)) |
| 569 | (setq url (match-string 1 url))) | 569 | (setq url (match-string 1 url))) |
| 570 | (if (and url (string-match "^URL:" url)) | 570 | (if (and url (string-match "^URL:" url)) |
| 571 | (setq url (substring url 4 nil))) | 571 | (setq url (substring url 4 nil))) |