From: Dave Love <fx@gnu.org>
Date: Wed, 15 Jan 2003 19:44:58 +0000 (+0000)
Subject: (thing-at-point-file-name-chars): Include non-ASCII
X-Git-Tag: ttn-vms-21-2-B4~11630
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d61e7d5136a1ee6d0c80d5f951f5c300d753ee2;p=emacs.git

(thing-at-point-file-name-chars): Include non-ASCII
and use documented treatment of -.
---

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