From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 1 Aug 1996 22:34:09 +0000 (+0000)
Subject: (comint-file-name-chars): Was comint-file-name-regexp.
X-Git-Tag: emacs-19.34~45
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d4382e563eb19992933aad70f51923a9291e253;p=emacs.git

(comint-file-name-chars): Was comint-file-name-regexp.
Give it a non-nil default value.
---

diff --git a/lisp/comint.el b/lisp/comint.el
index fd025e7b358..ae427e48dac 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -119,7 +119,7 @@
 ;;  comint-last-input-match		string	...
 ;;  comint-dynamic-complete-functions	hook   For the completion mechanism
 ;;  comint-completion-fignore		list	...
-;;  comint-file-name-regexp		regexp	...
+;;  comint-file-name-chars		string	...
 ;;  comint-file-name-quote-list		list	...
 ;;  comint-get-old-input		function Hooks for specific 
 ;;  comint-input-filter-functions	hook	process-in-a-buffer
@@ -397,7 +397,7 @@ Entry to this mode runs the hooks on `comint-mode-hook'."
   (make-local-variable 'comint-ptyp)
   (make-local-variable 'comint-exec-hook)
   (make-local-variable 'comint-process-echoes)
-  (make-local-variable 'comint-file-name-regexp)
+  (make-local-variable 'comint-file-name-chars)
   (make-local-variable 'comint-file-name-quote-list)
   (run-hooks 'comint-mode-hook))
 
@@ -1827,8 +1827,11 @@ Note that this applies to `comint-dynamic-complete-filename' only.")
 This is used by comint's and shell's completion functions, and by shell's
 directory tracking functions.")
 
-(defvar comint-file-name-regexp nil
-  "Regexp of characters valid in a file name.
+(defvar comint-file-name-chars
+  (if (memq system-type '(ms-dos windows-nt))
+      "~/A-Za-z0-9_^$!#%&{}@`'.()-"
+    "~/A-Za-z0-9+@:_.$#%,={}-")
+  "String of characters valid in a file name.
 
 This is a good thing to set in mode hooks.")
 
@@ -1884,7 +1887,7 @@ interpreter (e.g., the percent notation of cmd.exe on NT)."
 (defun comint-match-partial-filename ()
   "Return the filename at point, or nil if non is found.
 Environment variables are substituted.  See `comint-word'."
-  (let ((filename (comint-word comint-file-name-regexp)))
+  (let ((filename (comint-word comint-file-name-chars)))
     (and filename (comint-substitute-in-file-name 
 		   (comint-unquote-filename filename)))))