diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-09-09 07:24:02 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-09-09 07:24:02 +0000 |
commit | 7d51ba9eafb4761f8580d332e31fb6145a04c975 (patch) | |
tree | 01cf4bc9e331394b5d11f7f6e6e5aabed983c1f1 | |
parent | 16b60d3482e5c270b19f82662bd37e4bae1315cc (diff) | |
download | emacs-7d51ba9eafb4761f8580d332e31fb6145a04c975.tar.gz |
(comint-file-name-chars): Doc fix.
(comint-word): Treat all non-ASCII chars as "[art of word".
-rw-r--r-- | lisp/comint.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 0027db8b88e..381938b568c 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -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)) |