mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(comint-file-name-chars): Was comint-file-name-regexp.

Browse Source 
Give it a non-nil default value.
This commit is contained in:
Richard M. Stallman 1996-08-01 22:34:09 +00:00
parent 42de618f8f
commit 2d4382e563
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/comint.el
View File

@ -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)))))