# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 966349341 0
# Node ID f5788dd66ab6e6eb9fa6367968f8f254fc5ab163
# Parent  fd8b296712e79375108557a665ee721e8ba09eaa
(thing-at-point-url-regexp): Prepend `\<'.

diff -r fd8b296712e7 -r f5788dd66ab6 lisp/thingatpt.el
--- a/lisp/thingatpt.el	Tue Aug 15 14:20:14 2000 +0000
+++ b/lisp/thingatpt.el	Tue Aug 15 14:22:21 2000 +0000
@@ -215,7 +215,7 @@
 
 (defvar thing-at-point-url-regexp
   (concat
-   "\\(https?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mailto:\\)"
+   "\\<\\(https?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mailto:\\)"
    thing-at-point-url-path-regexp)
   "A regular expression probably matching a complete URL.")