diff options
| author | Dave Love <[email protected]> | 2003-01-27 11:38:45 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 2003-01-27 11:38:45 +0000 |
| commit | 839aacc98f3ffa7b609fa75f7a9963dda55acbc6 (patch) | |
| tree | de71a5a3dbd9661b3ffbfbefe5eee80f77e44b85 /lisp | |
| parent | 1e56daa587d05f88a2be97160401be9b94c61f59 (diff) | |
(thing-at-point-file-name-chars): Include
non-ASCII again and re-write the filename ops.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/thingatpt.el | 12 |
2 files changed, 16 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 80767e5384..478b01997c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2003-01-27 Dave Love <[email protected]> + + * dired-x.el (dired-filename-at-point): Fix last change and tidy up. + + * thingatpt.el (thing-at-point-file-name-chars): Include + non-ASCII again and re-write the filename ops. + 2003-01-27 David Ponce <[email protected]> * makefile.w32-in (update-subdirs-SH): Create lisp/subdirs.el. diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 3e6b344a3f..70f25da673 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -195,13 +195,19 @@ a symbol as a valid THING." ;; 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 - (lambda () (skip-chars-forward thing-at-point-file-name-chars))) + (lambda () + (re-search-forward (concat "\\=[" thing-at-point-file-name-chars "]*") + nil t))) (put 'filename 'beginning-op - (lambda () (skip-chars-backward thing-at-point-file-name-chars))) + (lambda () + (if (re-search-backward (concat "[^" thing-at-point-file-name-chars "]") + nil t) + (forward-char) + (goto-char (point-min))))) (defvar thing-at-point-url-path-regexp "[^]\t\n \"'()<>[^`{}]*[^]\t\n \"'()<>[^`{}.,;]+" |