Mercurial > emacs
changeset 15817:9e94b5fdaab1
(comint-file-name-chars): Was comint-file-name-regexp.
Give it a non-nil default value.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 01 Aug 1996 22:34:09 +0000 |
| parents | e1e9df8a862e |
| children | 574ec5119c7a |
| files | lisp/comint.el |
| diffstat | 1 files changed, 8 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Thu Aug 01 22:25:36 1996 +0000 +++ b/lisp/comint.el Thu Aug 01 22:34:09 1996 +0000 @@ -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 @@ (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 @@ 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 @@ (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)))))