(minibuffer-complete-shell-command): Bind

comint-delimiter-argument-list, comint-file-name-chars and
comint-file-name-quote-list like shell-mode.

2 files changed, 10 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index edddb877e72..36c296d8daa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-10-10  Andreas Schwab  <schwab@suse.de>
+
+        * simple.el (minibuffer-complete-shell-command): Bind
+        comint-delimiter-argument-list, comint-file-name-chars and
+        comint-file-name-quote-list like shell-mode.
+
 2008-10-10  Martin Rudalics  <rudalics@gmx.at>
 
         * window.el (pop-to-buffer): Fix misplacement of arg norecord in
diff --git a/lisp/simple.el b/lisp/simple.el
index 3e38d59a692..19efa5a94c2 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1998,7 +1998,10 @@ to the end of the list of defaults just after the default value."
   "Dynamically complete shell command at point."
   (interactive)
   (require 'shell)
-  (run-hook-with-args-until-success 'shell-dynamic-complete-functions))
+  (let ((comint-delimiter-argument-list shell-delimiter-argument-list)
+        (comint-file-name-chars shell-file-name-chars)
+        (comint-file-name-quote-list shell-file-name-quote-list))
+    (run-hook-with-args-until-success 'shell-dynamic-complete-functions)))
 
 (defvar minibuffer-local-shell-command-map
   (let ((map (make-sparse-keymap)))