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