# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 850202394 0
# Node ID e45a0fc672a34cb08dbe96838cd19e544019397d
# Parent  eb3f3934a1858c99f1f007bdb8fec1f4c4512d02
(thing-at-point-url-chars): Allow comma, = and &.
(url): Move back over commas at the end.

diff -r eb3f3934a185 -r e45a0fc672a3 lisp/thingatpt.el
--- a/lisp/thingatpt.el	Mon Dec 09 23:38:03 1996 +0000
+++ b/lisp/thingatpt.el	Tue Dec 10 07:19:54 1996 +0000
@@ -156,12 +156,12 @@
 (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)