procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* url/url-util.el (url-get-url-at-point): Add missing group in

Browse source 
regex.
This commit is contained in:
Andreas Schwab 2017-06-18 09:09:34 +02:00
parent 5261a7d8bc
commit d03244e347
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/url/url-util.el
View file

@ -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)))