diff options
author | Andreas Schwab <[email protected]> | 2008-10-10 17:30:58 +0000 |
---|---|---|
committer | Andreas Schwab <[email protected]> | 2008-10-10 17:30:58 +0000 |
commit | 79ccd1b8163a64b94afb922809f0bbfaa0d9446d (patch) | |
tree | eb858d2452206dbf43845066f1c53a290df7ac8c | |
parent | e6001b58231de00b00e19f9e11d3cf2290ab0138 (diff) |
(minibuffer-complete-shell-command): Bind
comint-delimiter-argument-list, comint-file-name-chars and
comint-file-name-quote-list like shell-mode.
-rw-r--r-- | lisp/ChangeLog | 6 | ||||
-rw-r--r-- | lisp/simple.el | 5 |
2 files changed, 10 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index edddb877e7..36c296d8da 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-10-10 Andreas Schwab <[email protected]> + + * 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 <[email protected]> * window.el (pop-to-buffer): Fix misplacement of arg norecord in diff --git a/lisp/simple.el b/lisp/simple.el index 3e38d59a69..19efa5a94c 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))) |