Mercurial > emacs
comparison lisp/shell.el @ 15818:574ec5119c7a
(shell-file-name-chars): Was shell-file-name-regexp.
(shell-mode): Set comint-file-name-chars to this variable.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 01 Aug 1996 22:35:03 +0000 |
| parents | f2f66323f14a |
| children | 9df952241adc |
comparison
equal
deleted
inserted
replaced
| 15817:9e94b5fdaab1 | 15818:574ec5119c7a |
|---|---|
| 132 This variable is used to initialize `comint-delimiter-argument-list' in the | 132 This variable is used to initialize `comint-delimiter-argument-list' in the |
| 133 shell buffer. The value may depend on the operating system or shell. | 133 shell buffer. The value may depend on the operating system or shell. |
| 134 | 134 |
| 135 This is a fine thing to set in your `.emacs' file.") | 135 This is a fine thing to set in your `.emacs' file.") |
| 136 | 136 |
| 137 (defvar shell-file-name-regexp | 137 (defvar shell-file-name-chars |
| 138 (if (memq system-type '(ms-dos windows-nt)) | 138 (if (memq system-type '(ms-dos windows-nt)) |
| 139 "~/A-Za-z0-9_^$!#%&{}@`'.()-" | 139 "~/A-Za-z0-9_^$!#%&{}@`'.()-" |
| 140 "~/A-Za-z0-9+@:_.$#%,={}-") | 140 "~/A-Za-z0-9+@:_.$#%,={}-") |
| 141 "Regexp of characters valid in a file name. | 141 "String of characters valid in a file name. |
| 142 This variable is used to initialize `comint-file-name-regexp' in the | 142 This variable is used to initialize `comint-file-name-chars' in the |
| 143 shell buffer. The value may depend on the operating system or shell. | 143 shell buffer. The value may depend on the operating system or shell. |
| 144 | 144 |
| 145 This is a fine thing to set in your `.emacs' file.") | 145 This is a fine thing to set in your `.emacs' file.") |
| 146 | 146 |
| 147 (defvar shell-file-name-quote-list | 147 (defvar shell-file-name-quote-list |
| 330 (setq mode-name "Shell") | 330 (setq mode-name "Shell") |
| 331 (use-local-map shell-mode-map) | 331 (use-local-map shell-mode-map) |
| 332 (setq comint-prompt-regexp shell-prompt-pattern) | 332 (setq comint-prompt-regexp shell-prompt-pattern) |
| 333 (setq comint-completion-fignore shell-completion-fignore) | 333 (setq comint-completion-fignore shell-completion-fignore) |
| 334 (setq comint-delimiter-argument-list shell-delimiter-argument-list) | 334 (setq comint-delimiter-argument-list shell-delimiter-argument-list) |
| 335 (setq comint-file-name-regexp shell-file-name-regexp) | 335 (setq comint-file-name-chars shell-file-name-chars) |
| 336 (setq comint-file-name-quote-list shell-file-name-quote-list) | 336 (setq comint-file-name-quote-list shell-file-name-quote-list) |
| 337 (setq comint-dynamic-complete-functions shell-dynamic-complete-functions) | 337 (setq comint-dynamic-complete-functions shell-dynamic-complete-functions) |
| 338 (make-local-variable 'paragraph-start) | 338 (make-local-variable 'paragraph-start) |
| 339 (setq paragraph-start comint-prompt-regexp) | 339 (setq paragraph-start comint-prompt-regexp) |
| 340 (make-local-variable 'font-lock-defaults) | 340 (make-local-variable 'font-lock-defaults) |