mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(thing-at-point-short-url-regexp): Require that short URLs have at least one dot in them (bug #7614).

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2011-06-30 04:04:32 +02:00
parent faf3b348f4
commit d61bdd5d04
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -13,6 +13,9 @@
2011-06-30 Lars Magne Ingebrigtsen <larsi@gnus.org>
* thingatpt.el (thing-at-point-short-url-regexp): Require that
short URLs have at least one dot in them (bug #7614).
* progmodes/grep.el (rgrep): Bind `process-connection-type' to
nil, because using a pty is apparently too slow (bug #895).

2
lisp/thingatpt.el
View File

@ -235,7 +235,7 @@ a symbol as a valid THING."
"A regular expression probably matching the host and filename or e-mail part of a URL.")
(defvar thing-at-point-short-url-regexp
(concat "[-A-Za-z0-9.]+" thing-at-point-url-path-regexp)
(concat "[-A-Za-z0-9]+\\.[-A-Za-z0-9.]+" thing-at-point-url-path-regexp)
"A regular expression probably matching a URL without an access scheme.
Hostname matching is stricter in this case than for
``thing-at-point-url-regexp''.")