diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-06-30 04:04:32 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-06-30 04:04:32 +0200 |
| commit | d61bdd5d048255710d909b9a6cc28baea5ee5692 (patch) | |
| tree | e1fae14ea9f6cabaca4b7540951e68abf1b9bb29 | |
| parent | faf3b348f4bce8635eca47f2327f2283820c0865 (diff) | |
| download | emacs-d61bdd5d048255710d909b9a6cc28baea5ee5692.tar.gz | |
(thing-at-point-short-url-regexp): Require that short URLs have at least one dot in them (bug #7614).
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/thingatpt.el | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7deafcaa647..f4b5019d8e6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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). diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 8f797d13103..a7ff23949fe 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -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''.") |