diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-12-10 07:19:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-12-10 07:19:54 +0000 |
| commit | bf6c5df1a16c92e206785f6a20ff7ea12f4b8f7a (patch) | |
| tree | 622b993d02b77f7940030b0c1562f67906b00228 /lisp/thingatpt.el | |
| parent | 2da0d7db99125056997ecfc6ce0a821faf9ea8ea (diff) | |
| download | emacs-bf6c5df1a16c92e206785f6a20ff7ea12f4b8f7a.tar.gz | |
(thing-at-point-url-chars): Allow comma, = and &.
(url): Move back over commas at the end.
Diffstat (limited to 'lisp/thingatpt.el')
| -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." (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) |