diff options
| author | Geoff Voelker <voelker@cs.washington.edu> | 1998-04-17 05:23:53 +0000 |
|---|---|---|
| committer | Geoff Voelker <voelker@cs.washington.edu> | 1998-04-17 05:23:53 +0000 |
| commit | da418b28dccaaf30e938c5be3fb5e3bc8f592b5c (patch) | |
| tree | 0503e816bc836bc871a4ff4cb4d447abe680ef72 /lisp | |
| parent | c4185b2b8db3b3a33c65855df1c510aec7c6b247 (diff) | |
| download | emacs-da418b28dccaaf30e938c5be3fb5e3bc8f592b5c.tar.gz emacs-da418b28dccaaf30e938c5be3fb5e3bc8f592b5c.tar.bz2 emacs-da418b28dccaaf30e938c5be3fb5e3bc8f592b5c.zip | |
(comint-filename-chars): Combine DOS and Windows strings.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/comint.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 8e3a1bb2309..c6ba27ac6af 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1940,13 +1940,9 @@ This is used by comint's and shell's completion functions, and by shell's directory tracking functions.") (defvar comint-file-name-chars - (cond - ((eq system-type 'ms-dos) - "~/A-Za-z0-9_^$!#%&{}@`'.()-") - ((eq system-type 'windows-nt) - "~/A-Za-z0-9_^$!#%&{}@`'.,:()-") - (t - "~/A-Za-z0-9+@:_.$#%,={}-")) + (if (memq system-type '(ms-dos windows-nt)) + "~/A-Za-z0-9_^$!#%&{}@`'.,:()-" + "~/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. |