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

[Miles Bader]

Index: emacs/lisp/w32-fns.el
diff -c emacs/lisp/w32-fns.el:1.50.2.3 emacs/lisp/w32-fns.el:1.50.2.4
*** emacs/lisp/w32-fns.el:1.50.2.3      Tue Jul  6 09:31:50 2004
--- emacs/lisp/w32-fns.el       Tue Jul  6 09:38:17 2004
***************
*** 230,238 ****
  
  (defun convert-standard-filename (filename)
    "Convert a standard file's name to something suitable for the current OS.
! This function's standard definition is trivial; it just returns the argument.
! However, on some systems, the function is redefined
! with a definition that really does change some file names."
    (let ((name
           (save-match-data
             (if (string-match "\\`/cygdrive/\\([a-zA-Z]\\)/" filename)
--- 230,242 ----
  
  (defun convert-standard-filename (filename)
    "Convert a standard file's name to something suitable for the current OS.
! This means to guarantee valid names and perhaps to canonicalize
! certain patterns.
! 
! On Windows and DOS, replace invalid characters.  On DOS, make
! 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
             (if (string-match "\\`/cygdrive/\\([a-zA-Z]\\)/" filename)