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