* lisp/shell.el (shell-completion-vars): Set pcomplete-arg-quote-list.

* lisp/pcomplete.el (pcomplete-quote-argument): Fix thinko.

Fixes: debbugs:9161

1 files changed, 2 insertions, 0 deletions

diff --git a/lisp/shell.el b/lisp/shell.el
index 53472d9ef0a..01d1a688f0e 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -412,6 +412,8 @@ to `dirtrack-mode'."
        shell-dynamic-complete-functions)
   (set (make-local-variable 'pcomplete-parse-arguments-function)
        #'shell-parse-pcomplete-arguments)
+  (set (make-local-variable 'pcomplete-arg-quote-list)
+       (append "\\ \t\n\r\"'`$|&;(){}[]<>#" nil))
   (set (make-local-variable 'pcomplete-termination-string)
        (cond ((not comint-completion-addsuffix) "")
              ((stringp comint-completion-addsuffix)