From 4d61e7d5136a1ee6d0c80d5f951f5c300d753ee2 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Wed, 15 Jan 2003 19:44:58 +0000
Subject: [PATCH] (thing-at-point-file-name-chars): Include non-ASCII and use
 documented treatment of -.

---
 lisp/thingatpt.el | 4 ++--
 1 file 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    
-- 
2.39.2