(minibuffer-complete-shell-command): Bind

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index edddb877e727d1b21a4952ed85c78de9a2893264..36c296d8daa9d2f7e30e35df02585586714468b6 100644 (file)
--- 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 3e38d59a6924ee6592d119b12d58acf89f642f94..19efa5a94c2b5e45e1d622f1bde3b4a492bd411d 100644 (file)
--- 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)))