Commit 7b4c6503 authored by Simon Marshall's avatar Simon Marshall
Browse files

Set comint-file-name-quote-list to new shell-file-name-quote-list.

parent 8e583b5d
...@@ -85,7 +85,8 @@ ...@@ -85,7 +85,8 @@
;;; Shell Mode Commands: ;;; Shell Mode Commands:
;;; shell Fires up the shell process ;;; shell Fires up the shell process
;;; tab comint-dynamic-complete Complete filename/command/history ;;; tab comint-dynamic-complete Complete filename/command/history
;;; m-? comint-dynamic-list-filename-completions List completions in help buffer ;;; m-? comint-dynamic-list-filename-completions
;;; List completions in help buffer
;;; m-c-f shell-forward-command Forward a shell command ;;; m-c-f shell-forward-command Forward a shell command
;;; m-c-b shell-backward-command Backward a shell command ;;; m-c-b shell-backward-command Backward a shell command
;;; dirs Resync the buffer's dir stack ;;; dirs Resync the buffer's dir stack
...@@ -134,6 +135,15 @@ shell buffer. The default is (?\\| ?& ?< ?> ?\\( ?\\) ?\\;). ...@@ -134,6 +135,15 @@ shell buffer. The default is (?\\| ?& ?< ?> ?\\( ?\\) ?\\;).
This is a fine thing to set in your `.emacs' file.") 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 (defvar shell-dynamic-complete-functions
'(comint-replace-by-expanded-history '(comint-replace-by-expanded-history
shell-dynamic-complete-environment-variable shell-dynamic-complete-environment-variable
...@@ -307,6 +317,7 @@ buffer." ...@@ -307,6 +317,7 @@ buffer."
(setq comint-prompt-regexp shell-prompt-pattern) (setq comint-prompt-regexp shell-prompt-pattern)
(setq comint-completion-fignore shell-completion-fignore) (setq comint-completion-fignore shell-completion-fignore)
(setq comint-delimiter-argument-list shell-delimiter-argument-list) (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) (setq comint-dynamic-complete-functions shell-dynamic-complete-functions)
(make-local-variable 'paragraph-start) (make-local-variable 'paragraph-start)
(setq paragraph-start comint-prompt-regexp) (setq paragraph-start comint-prompt-regexp)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment