Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(convert-standard-filename): Only convert directory

Browse source 
separators to backslash if the interactive shell is one of the
standard Windows shells that has DOS semantics.
This commit is contained in:
Andrew Innes 1999-05-02 09:45:17 +00:00
parent f8a1023408
commit 105adfb54f
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/w32-fns.el
View file

@ -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)