From: Dave Love <fx@gnu.org>
Date: Tue, 15 Aug 2000 14:22:21 +0000 (+0000)
Subject: (thing-at-point-url-regexp): Prepend `\<'.
X-Git-Tag: emacs-pretest-21.0.90~2295
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d18243f56589921c18ab6fbe4971a9b94588666a;p=emacs.git

(thing-at-point-url-regexp): Prepend `\<'.
---

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index da51774958c..9f8c3bdb8a8 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -215,7 +215,7 @@ Hostname matching is stricter in this case than for
 
 (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.")