From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 10 Dec 1996 07:19:54 +0000 (+0000)
Subject: (thing-at-point-url-chars): Allow comma, = and &.
X-Git-Tag: emacs-20.1~3291
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bf6c5df1a16c92e206785f6a20ff7ea12f4b8f7a;p=emacs.git

(thing-at-point-url-chars): Allow comma, = and &.
(url): Move back over commas at the end.
---

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 5631d0071dd..61f1890e75b 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -156,12 +156,12 @@ a symbol as a valid THING."
 (put 'filename 'beginning-op
      '(lambda () (skip-chars-backward thing-at-point-file-name-chars)))
 
-(defvar thing-at-point-url-chars "~/A-Za-z0-9---_$%."
+(defvar thing-at-point-url-chars "~/A-Za-z0-9---_$%&=.,"
   "Characters allowable in a URL.")
 
 (put 'url 'end-op    
      '(lambda () (skip-chars-forward thing-at-point-url-chars)
-	(skip-chars-backward ".")))
+	(skip-chars-backward ".,")))
 (put 'url 'beginning-op
      '(lambda ()
 	(skip-chars-backward thing-at-point-url-chars)