(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 5631d0071dd2c6fb2023a3c4f497c76d33bf14c5..61f1890e75b21261d1c304ecc00849f7fb0039b6 100644 (file)
--- 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)