Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
af898b0f
Commit
af898b0f
authored
Sep 09, 1997
by
Richard M. Stallman
Browse files
(comint-file-name-chars): Doc fix.
(comint-word): Treat all non-ASCII chars as "[art of word".
parent
19d73313
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
3 deletions
+7
-3
lisp/comint.el
lisp/comint.el
+7
-3
No files found.
lisp/comint.el
View file @
af898b0f
...
...
@@ -1926,6 +1926,8 @@ directory tracking functions.")
(
t
"~/A-Za-z0-9+@:_.$#%,={}-"
))
"String of characters valid in a file name.
Note that all non-ASCII characters are considered valid in a file name
regardless of what this variable says.
This is a good thing to set in mode hooks."
)
...
...
@@ -1945,12 +1947,14 @@ This is a good thing to set in mode hooks.")
(
defun
comint-word
(
word-chars
)
"Return the word of WORD-CHARS at point, or nil if non is found.
Word constituents are considered to be those in WORD-CHARS, which is like the
inside of a \"[...]\" (see `skip-chars-forward')."
inside of a \"[...]\" (see `skip-chars-forward'),
plus all non-ASCII characters."
(
save-excursion
(
let
((
non-word-chars
(
concat
"[^\\\\"
word-chars
"]"
))
(
here
(
point
)))
(
while
(
and
(
re-search-backward
non-word-chars
nil
'move
)
;(memq (char-after (point)) shell-file-name-quote-list)
(
eq
(
preceding-char
)
?\\
))
;;(memq (char-after (point)) shell-file-name-quote-list)
(
or
(
>=
(
following-char
)
128
)
(
eq
(
preceding-char
)
?\\
)))
(
backward-char
1
))
;; Don't go forward over a word-char (this can happen if we're at bob).
(
if
(
or
(
not
(
bobp
))
(
looking-at
non-word-chars
))
...
...
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