diff options
author | Geoff Voelker <voelker@cs.washington.edu> | 1997-09-02 19:37:39 +0000 |
---|---|---|
committer | Geoff Voelker <voelker@cs.washington.edu> | 1997-09-02 19:37:39 +0000 |
commit | ebc3eb7f29df1835225398f108082ce81b28c856 (patch) | |
tree | b14cc1112d52d1b5f3d8f3041a7d0c924acac629 /lisp/comint.el | |
parent | 753cf36ffc79b7cdc61dd916a7819c6d5d28cac7 (diff) | |
download | emacs-ebc3eb7f29df1835225398f108082ce81b28c856.tar.gz |
(comint-file-name-chars): Use separate sets for ms-dos and windows-nt.
Diffstat (limited to 'lisp/comint.el')
-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 bcf45223022..0027db8b88e 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1918,9 +1918,13 @@ This is used by comint's and shell's completion functions, and by shell's directory tracking functions.") (defvar comint-file-name-chars - (if (memq system-type '(ms-dos windows-nt)) - "~/A-Za-z0-9_^$!#%&{}@`'.()-" - "~/A-Za-z0-9+@:_.$#%,={}-") + (cond + ((eq system-type 'ms-dos) + "~/A-Za-z0-9_^$!#%&{}@`'.()-") + ((eq system-type 'windows-nt) + "~/A-Za-z0-9_^$!#%&{}@`'.,:()-") + (t + "~/A-Za-z0-9+@:_.$#%,={}-")) "String of characters valid in a file name. This is a good thing to set in mode hooks.") |