[Emacs-diffs] Changes to emacs/lisp/w32-fns.el,v

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    06/12/22 23:32:24

Index: w32-fns.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/w32-fns.el,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -b -r1.62 -r1.63
--- w32-fns.el  9 Dec 2006 12:37:37 -0000       1.62
+++ w32-fns.el  22 Dec 2006 23:32:24 -0000      1.63
@@ -240,11 +240,11 @@
 sure to obey the 8.3 limitations.  On Windows, turn Cygwin names
 into native names, and also turn slashes into backslashes if the
 shell requires it (see `w32-shell-dos-semantics')."
-  (let ((name
          (save-match-data
+    (let ((name
            (if (string-match "\\`/cygdrive/\\([a-zA-Z]\\)/" filename)
                (replace-match "\\1:/" t nil filename)
-             (copy-sequence filename))))
+             (copy-sequence filename)))
        (start 0))
     ;; leave ':' if part of drive specifier
     (if (and (> (length name) 1)
@@ -261,7 +261,7 @@
       (while (string-match "/" name start)
        (aset name (match-beginning 0) ?\\)
        (setq start (match-end 0))))
-    name))
+      name)))
 
 ;;; Fix interface to (X-specific) mouse.el
 (defun x-set-selection (type data)