Mercurial > emacs
changeset 16653:e45a0fc672a3
(thing-at-point-url-chars): Allow comma, = and &.
(url): Move back over commas at the end.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 10 Dec 1996 07:19:54 +0000 |
| parents | eb3f3934a185 |
| children | 4f8b4e26cc92 |
| files | lisp/thingatpt.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/thingatpt.el Mon Dec 09 23:38:03 1996 +0000 +++ b/lisp/thingatpt.el Tue Dec 10 07:19:54 1996 +0000 @@ -156,12 +156,12 @@ (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)