mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 19:00:55 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Simon Marshall 1995-04-03 13:01:15 +00:00
parent 8e583b5d13
commit 7b4c65034c
1 changed files with 19 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/shell.el
View file

@ -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 (?\\| ?& ?< ?> ?\\( ?\\) ?\\;).
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."
(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)