aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/thingatpt.el4
1 files changed, 2 insertions, 2 deletions
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."
156(put 'filename 'beginning-op 156(put 'filename 'beginning-op
157 '(lambda () (skip-chars-backward thing-at-point-file-name-chars))) 157 '(lambda () (skip-chars-backward thing-at-point-file-name-chars)))
158 158
159(defvar thing-at-point-url-chars "~/A-Za-z0-9---_$%." 159(defvar thing-at-point-url-chars "~/A-Za-z0-9---_$%&=.,"
160 "Characters allowable in a URL.") 160 "Characters allowable in a URL.")
161 161
162(put 'url 'end-op 162(put 'url 'end-op
163 '(lambda () (skip-chars-forward thing-at-point-url-chars) 163 '(lambda () (skip-chars-forward thing-at-point-url-chars)
164 (skip-chars-backward "."))) 164 (skip-chars-backward ".,")))
165(put 'url 'beginning-op 165(put 'url 'beginning-op
166 '(lambda () 166 '(lambda ()
167 (skip-chars-backward thing-at-point-url-chars) 167 (skip-chars-backward thing-at-point-url-chars)