diff options
| -rw-r--r-- | lisp/thingatpt.el | 4 |
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) |