[Emacs-diffs] /srv/bzr/emacs/trunk r104791: (thing-at-point-short-url-regexp): Require that short URLs have at least one dot in them (bug #7614).

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 104791
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Thu 2011-06-30 04:04:32 +0200
message:
  (thing-at-point-short-url-regexp): Require that short URLs have at least one 
dot in them (bug #7614).
modified:
  lisp/ChangeLog
  lisp/thingatpt.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-30 01:39:52 +0000
+++ b/lisp/ChangeLog    2011-06-30 02:04:32 +0000
@@ -13,6 +13,9 @@
 
 2011-06-30  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * 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).
 

=== modified file 'lisp/thingatpt.el'
--- a/lisp/thingatpt.el 2011-06-01 14:28:54 +0000
+++ b/lisp/thingatpt.el 2011-06-30 02:04:32 +0000
@@ -235,7 +235,7 @@
   "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''.")