diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2001-05-08 16:26:11 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2001-05-08 16:26:11 +0000 |
| commit | 5f47fb28f83cfa470c0a35df494c611ca2c461a1 (patch) | |
| tree | 64dc3a21f1467756c7d7a72c6c0589c6c5c23718 /lisp/w32-fns.el | |
| parent | b60729681f0ba42945a2c98c549ea79ea0049a9a (diff) | |
| download | emacs-5f47fb28f83cfa470c0a35df494c611ca2c461a1.tar.gz | |
(convert-standard-filename): Start replacing slashes
from the beginning of the file name, not from where the last
invalid character was. From "Andrew Maguire (SWW)"
<Andrew.Maguire@Smallworld.co.uk>
Diffstat (limited to 'lisp/w32-fns.el')
| -rw-r--r-- | lisp/w32-fns.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 8e0e85dc5f1..018390d4b4a 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -266,11 +266,12 @@ with a definition that really does change some file names." (setq start (match-end 0))) ;; convert directory separators to Windows format ;; (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)) + (when (w32-shell-dos-semantics) + (setq start 0) + (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) |