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 | 838ab248a48177023260155c9acec35ce8e01453 (patch) | |
tree | 2f3a63d0d74a3dc0ccb3d211b9f7d0751b8c999b | |
parent | c88dec46e99988407be4d5f6ab22dc91ad60ca02 (diff) | |
download | emacs-838ab248a48177023260155c9acec35ce8e01453.tar.gz |
(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." (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) |