changeset 21617:c944e3c8ebe2

(comint-filename-chars): Combine DOS and Windows strings.
author Geoff Voelker <voelker@cs.washington.edu>
date Fri, 17 Apr 1998 05:23:53 +0000
parents b0387f13fc0a
children 65db9a169ab5
files lisp/comint.el
diffstat 1 files changed, 3 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/comint.el	Fri Apr 17 05:22:37 1998 +0000
+++ b/lisp/comint.el	Fri Apr 17 05:23:53 1998 +0000
@@ -1940,13 +1940,9 @@
 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.