Mercurial > emacs
changeset 37621:fc0f7a044da4
(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>
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Tue, 08 May 2001 16:24:07 +0000 |
| parents | b090b7cc694b |
| children | 4962b23d39ce |
| files | lisp/w32-fns.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/w32-fns.el Tue May 08 12:56:46 2001 +0000 +++ b/lisp/w32-fns.el Tue May 08 16:24:07 2001 +0000 @@ -266,11 +266,12 @@ (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)