diff options
| author | Dave Love <fx@gnu.org> | 2003-01-15 19:44:58 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2003-01-15 19:44:58 +0000 |
| commit | 4d61e7d5136a1ee6d0c80d5f951f5c300d753ee2 (patch) | |
| tree | 308346b804bc84ab2cf0f34a7441c7e1b1ac217d /lisp/thingatpt.el | |
| parent | 59367f560857e95efebc6c4662701af711e29b23 (diff) | |
| download | emacs-4d61e7d5136a1ee6d0c80d5f951f5c300d753ee2.tar.gz | |
(thing-at-point-file-name-chars): Include non-ASCII
and use documented treatment of -.
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 47caf02b03a..3723caf76fd 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -193,9 +193,9 @@ a symbol as a valid THING." (put 'list 'end-op (function (lambda () (up-list 1)))) (put 'list 'beginning-op 'backward-sexp) -;; Filenames and URLs +;; Filenames and URLs www.com/foo%32bar -(defvar thing-at-point-file-name-chars "~/A-Za-z0-9---_.${}#%,:" +(defvar thing-at-point-file-name-chars "-~/[:alnum:]_.${}#%,:" "Characters allowable in filenames.") (put 'filename 'end-op |