mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(thing-at-point-url-chars): Allow comma, = and &.

Browse source 
(url): Move back over commas at the end.
This commit is contained in:
Richard M. Stallman 1996-12-10 07:19:54 +00:00
parent 2da0d7db99
commit bf6c5df1a1
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/thingatpt.el
View file

@ -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)