From: Geoff Voelker <voelker@cs.washington.edu>
Date: Fri, 17 Apr 1998 05:23:53 +0000 (+0000)
Subject: (comint-filename-chars): Combine DOS and Windows strings.
X-Git-Tag: emacs-20.3~1458
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da418b28dccaaf30e938c5be3fb5e3bc8f592b5c;p=emacs.git

(comint-filename-chars): Combine DOS and Windows strings.
---

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.