From dbdfff7f1d1f15af351dee8671e94331411b6cb9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 5 Jun 1996 18:24:14 +0000 Subject: [PATCH] (comint-dynamic-complete-filename) [ms-dos, windows-nt]: Always use backslash as a directory separator when completing in shell mode on these systems. (comint-unquote-filename): Handle quoted backslashes. --- lisp/comint.el | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index fca83137fdd..c7522fefff7 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1880,8 +1880,10 @@ Magic characters are those in `comint-file-name-quote-list'." (if (null comint-file-name-quote-list) filename (save-match-data - (while (string-match "\\\\\\(.\\)" filename) - (setq filename (replace-match "\\1" nil nil filename))) + (let ((i 0)) + (while (string-match "\\\\\\(.\\)" filename i) + (setq filename (replace-match "\\1" nil nil filename)) + (setq i (+ 1 (match-beginning 0))))) filename))) @@ -1910,10 +1912,13 @@ completions listing is dependent on the value of `comint-completion-autolist'. Returns t if successful." (interactive) (if (comint-match-partial-filename) - (prog2 (or (window-minibuffer-p (selected-window)) - (message "Completing file name...")) - (comint-dynamic-complete-as-filename)))) - + (let ((directory-sep-char ?/)) + (if (memq system-type '(ms-dos windows-nt)) + ; The default shells on these systems require backslashed names + (setq directory-sep-char ?\\)) + (prog2 (or (window-minibuffer-p (selected-window)) + (message "Completing file name...")) + (comint-dynamic-complete-as-filename))))) (defun comint-dynamic-complete-as-filename () "Dynamically complete at point as a filename. -- 2.39.2