(thing-at-point-file-name-chars): Undo previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 920ca34f3cf955177c942344d5f8fe1afa92f345..d176c1dac6c27affaeee7880c9829947c8db5b9e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-26  Richard M. Stallman  <rms@gnu.org>
+
+       * thingatpt.el (thing-at-point-file-name-chars): Undo previous change.
+
 2003-01-25  Bill Wohler  <wohler@newt.com>
 
        * mh-e: Created directory. ChangeLog will appear in a week when we

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 3723caf76fdfc5fc6b34f83302c769e0f45dbe39..3e6b344a3f29e1afd4669a3b414c6c7fbe06177b 100644 (file)
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -195,7 +195,7 @@ a symbol as a valid THING."
 
 ;;  Filenames and URLs  www.com/foo%32bar
 
-(defvar thing-at-point-file-name-chars "-~/[:alnum:]_.${}#%,:"
+(defvar thing-at-point-file-name-chars "~/A-Za-z0-9---_.${}#%,:"
   "Characters allowable in filenames.")
 
 (put 'filename 'end-op