From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 5 Jun 1996 18:25:05 +0000 (+0000)
Subject: (shell-mode-hook): Set comint-completion-addsuffix
X-Git-Tag: emacs-19.34~524
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3eab6a03af19a5070f1499e9dde38dde88c4322e;p=emacs.git

(shell-mode-hook): Set comint-completion-addsuffix
so that the directory suffix is backslash and the file suffix is space.
---

diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index 9b6046b4f13..e649101c5a9 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -63,6 +63,10 @@
 ;; for executing its command line argument (from simple.el).
 (setq shell-command-switch "/c")
 
+;; For appending suffixes to directories and files in shell completions.
+(add-hook 'shell-mode-hook 
+	  '(lambda () (setq comint-completion-addsuffix '("\\" . " "))))
+
 ;; Use ";" instead of ":" as a path separator (from files.el).
 (setq path-separator ";")