diff options
| author | Simon Marshall <simon@gnu.org> | 1995-04-03 13:01:15 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1995-04-03 13:01:15 +0000 |
| commit | 7b4c65034c0081cd144a77b22f8a0214b51e4f86 (patch) | |
| tree | 7b274ad932bfb7ecdc55fcd30bb892cd50a5db63 /lisp | |
| parent | 8e583b5d13cca1e6f0a1fe137dc20fa21d83b0f4 (diff) | |
| download | emacs-7b4c65034c0081cd144a77b22f8a0214b51e4f86.tar.gz emacs-7b4c65034c0081cd144a77b22f8a0214b51e4f86.tar.bz2 emacs-7b4c65034c0081cd144a77b22f8a0214b51e4f86.zip | |
Set comint-file-name-quote-list to new shell-file-name-quote-list.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/shell.el | 27 |
1 files changed, 19 insertions, 8 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index 68ddbed3649..e75878deb26 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -83,14 +83,15 @@ ;;; comint-mode-hook is the comint mode hook. ;;; Shell Mode Commands: -;;; shell Fires up the shell process -;;; tab comint-dynamic-complete Complete filename/command/history -;;; m-? comint-dynamic-list-filename-completions List completions in help buffer -;;; m-c-f shell-forward-command Forward a shell command -;;; m-c-b shell-backward-command Backward a shell command -;;; dirs Resync the buffer's dir stack -;;; dirtrack-toggle Turn dir tracking on/off -;;; comint-strip-ctrl-m Remove trailing ^Ms from output +;;; shell Fires up the shell process +;;; tab comint-dynamic-complete Complete filename/command/history +;;; m-? comint-dynamic-list-filename-completions +;;; List completions in help buffer +;;; m-c-f shell-forward-command Forward a shell command +;;; m-c-b shell-backward-command Backward a shell command +;;; dirs Resync the buffer's dir stack +;;; dirtrack-toggle Turn dir tracking on/off +;;; comint-strip-ctrl-m Remove trailing ^Ms from output ;;; ;;; The shell mode hook is shell-mode-hook ;;; comint-prompt-regexp is initialised to shell-prompt-pattern, for backwards @@ -134,6 +135,15 @@ shell buffer. The default is (?\\| ?& ?< ?> ?\\( ?\\) ?\\;). This is a fine thing to set in your `.emacs' file.") +(defvar shell-file-name-quote-list + (append shell-delimiter-argument-list '(?\ ?\* ?\! ?\" ?\' ?\`)) + "List of characters to quote when in a file name. +This variable is used to initialize `comint-file-name-quote-list' in the +shell buffer. The default is (?\ ?\* ?\! ?\" ?\' ?\`) plus characters +in `shell-delimiter-argument-list'. + +This is a fine thing to set in your `.emacs' file.") + (defvar shell-dynamic-complete-functions '(comint-replace-by-expanded-history shell-dynamic-complete-environment-variable @@ -307,6 +317,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-quote-list shell-file-name-quote-list) (setq comint-dynamic-complete-functions shell-dynamic-complete-functions) (make-local-variable 'paragraph-start) (setq paragraph-start comint-prompt-regexp) |