diff options
| author | Dave Love | 2003-01-15 19:44:58 +0000 |
|---|---|---|
| committer | Dave Love | 2003-01-15 19:44:58 +0000 |
| commit | 4d61e7d5136a1ee6d0c80d5f951f5c300d753ee2 (patch) | |
| tree | 308346b804bc84ab2cf0f34a7441c7e1b1ac217d | |
| parent | 59367f560857e95efebc6c4662701af711e29b23 (diff) | |
| download | emacs-4d61e7d5136a1ee6d0c80d5f951f5c300d753ee2.tar.gz emacs-4d61e7d5136a1ee6d0c80d5f951f5c300d753ee2.zip | |
(thing-at-point-file-name-chars): Include non-ASCII
and use documented treatment of -.
| -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." | |||
| 193 | (put 'list 'end-op (function (lambda () (up-list 1)))) | 193 | (put 'list 'end-op (function (lambda () (up-list 1)))) |
| 194 | (put 'list 'beginning-op 'backward-sexp) | 194 | (put 'list 'beginning-op 'backward-sexp) |
| 195 | 195 | ||
| 196 | ;; Filenames and URLs | 196 | ;; Filenames and URLs www.com/foo%32bar |
| 197 | 197 | ||
| 198 | (defvar thing-at-point-file-name-chars "~/A-Za-z0-9---_.${}#%,:" | 198 | (defvar thing-at-point-file-name-chars "-~/[:alnum:]_.${}#%,:" |
| 199 | "Characters allowable in filenames.") | 199 | "Characters allowable in filenames.") |
| 200 | 200 | ||
| 201 | (put 'filename 'end-op | 201 | (put 'filename 'end-op |