From 76f63ea09ca4be4e680cb7c4a846cd5c9fd8dbca Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 1 Aug 1996 22:35:03 +0000 Subject: [PATCH] (shell-file-name-chars): Was shell-file-name-regexp. (shell-mode): Set comint-file-name-chars to this variable. --- lisp/shell.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/shell.el b/lisp/shell.el index d0a55b393b1..9d732bd3fd9 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -134,12 +134,12 @@ shell buffer. The value may depend on the operating system or shell. This is a fine thing to set in your `.emacs' file.") -(defvar shell-file-name-regexp +(defvar shell-file-name-chars (if (memq system-type '(ms-dos windows-nt)) "~/A-Za-z0-9_^$!#%&{}@`'.()-" "~/A-Za-z0-9+@:_.$#%,={}-") - "Regexp of characters valid in a file name. -This variable is used to initialize `comint-file-name-regexp' in the + "String of characters valid in a file name. +This variable is used to initialize `comint-file-name-chars' in the shell buffer. The value may depend on the operating system or shell. This is a fine thing to set in your `.emacs' file.") @@ -332,7 +332,7 @@ buffer." (setq comint-prompt-regexp shell-prompt-pattern) (setq comint-completion-fignore shell-completion-fignore) (setq comint-delimiter-argument-list shell-delimiter-argument-list) - (setq comint-file-name-regexp shell-file-name-regexp) + (setq comint-file-name-chars shell-file-name-chars) (setq comint-file-name-quote-list shell-file-name-quote-list) (setq comint-dynamic-complete-functions shell-dynamic-complete-functions) (make-local-variable 'paragraph-start) -- 2.39.5