aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/url/url-util.el2
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)))