Commit 839aacc9 authored by Dave Love's avatar Dave Love

(thing-at-point-file-name-chars): Include

non-ASCII again and re-write the filename ops.
parent 1e56daa5
2003-01-27 Dave Love <fx@gnu.org>
* 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 <david@dponce.com>
* makefile.w32-in (update-subdirs-SH): Create lisp/subdirs.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 \"'()<>[^`{}.,;]+"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment