summaryrefslogtreecommitdiff
path: root/lisp/w32-fns.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-06-05 18:25:05 +0000
committerRichard M. Stallman <rms@gnu.org>1996-06-05 18:25:05 +0000
commit3eab6a03af19a5070f1499e9dde38dde88c4322e (patch)
treedfd3a5fd69aa0715cf2812b0107e1df4567a6b53 /lisp/w32-fns.el
parentdbdfff7f1d1f15af351dee8671e94331411b6cb9 (diff)
downloademacs-3eab6a03af19a5070f1499e9dde38dde88c4322e.tar.gz
(shell-mode-hook): Set comint-completion-addsuffix
so that the directory suffix is backslash and the file suffix is space.
Diffstat (limited to 'lisp/w32-fns.el')
-rw-r--r--lisp/w32-fns.el4
1 files changed, 4 insertions, 0 deletions
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 ";")