changeset 49270:c84445fe778c

(thing-at-point-file-name-chars): Include non-ASCII and use documented treatment of -.
author Dave Love <fx@gnu.org>
date Wed, 15 Jan 2003 19:44:58 +0000
parents af7779883f3b
children 720dd3042058
files lisp/thingatpt.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/thingatpt.el	Wed Jan 15 17:53:16 2003 +0000
+++ b/lisp/thingatpt.el	Wed Jan 15 19:44:58 2003 +0000
@@ -193,9 +193,9 @@
 (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