Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
839aacc9
Commit
839aacc9
authored
Jan 27, 2003
by
Dave Love
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(thing-at-point-file-name-chars): Include
non-ASCII again and re-write the filename ops.
parent
1e56daa5
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
16 additions
and
3 deletions
+16
-3
lisp/ChangeLog
lisp/ChangeLog
+7
-0
lisp/thingatpt.el
lisp/thingatpt.el
+9
-3
No files found.
lisp/ChangeLog
View file @
839aacc9
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.
...
...
lisp/thingatpt.el
View file @
839aacc9
...
...
@@ -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 \"'()<>[^`{}.,;]+"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment