diff options
| author | Andrew Innes <andrewi@gnu.org> | 1999-05-02 09:45:17 +0000 |
|---|---|---|
| committer | Andrew Innes <andrewi@gnu.org> | 1999-05-02 09:45:17 +0000 |
| commit | 7fc6f3c3dd209fe6d6b823c8dee493ce1b9e59b7 (patch) | |
| tree | 93029a5dba7cece20d14f7d870e7dafd7af3d2c1 /lisp/w32-fns.el | |
| parent | 5f3fc51c58038f01efb1dbd56651d92327fdf700 (diff) | |
| download | emacs-7fc6f3c3dd209fe6d6b823c8dee493ce1b9e59b7.tar.gz | |
(convert-standard-filename): Only convert directory
separators to backslash if the interactive shell is one of the
standard Windows shells that has DOS semantics.
Diffstat (limited to 'lisp/w32-fns.el')
| -rw-r--r-- | lisp/w32-fns.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 1e12f177f87..580bea0631a 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -254,10 +254,12 @@ with a definition that really does change some file names." (aset name (match-beginning 0) ?!) (setq start (match-end 0))) ;; convert directory separators to Windows format - (while (string-match "/" name start) - (aset name (match-beginning 0) ?\\) - (setq start (match-end 0))) - name)) + ;; (but only if the shell in use requires it) + (if (w32-shell-dos-semantics) + (while (string-match "/" name start) + (aset name (match-beginning 0) ?\\) + (setq start (match-end 0)))) + name)) ;;; Fix interface to (X-specific) mouse.el (defun x-set-selection (type data) |