From 79ccd1b8163a64b94afb922809f0bbfaa0d9446d Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Fri, 10 Oct 2008 17:30:58 +0000 Subject: [PATCH] (minibuffer-complete-shell-command): Bind comint-delimiter-argument-list, comint-file-name-chars and comint-file-name-quote-list like shell-mode. --- lisp/ChangeLog | 6 ++++++ lisp/simple.el | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) 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 + + * 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 * 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))) -- 2.39.2