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

[Miles Bader]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.583.2.12 emacs/lisp/files.el:1.583.2.13
*** emacs/lisp/files.el:1.583.2.12      Tue Jul  6 09:31:48 2004
--- emacs/lisp/files.el Tue Jul  6 09:38:06 2004
***************
*** 481,490 ****
  
  (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 to canonicalize certain
! patterns and to guarantee valid names."
    filename)
  
  (defun read-directory-name (prompt &optional dir default-dirname mustmatch 
initial)
--- 481,495 ----
  
  (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.
! 
! This function's standard definition is trivial; it just returns
! the argument.  However, 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')."
    filename)
  
  (defun read-directory-name (prompt &optional dir default-dirname mustmatch 
initial)
***************
*** 906,913 ****
  type M-n to pull it into the minibuffer.
  
  Interactively, or if WILDCARDS is non-nil in a call from Lisp,
! expand wildcards (if any) and visit multiple files.  Wildcard expansion
! can be suppressed by setting `find-file-wildcards'."
    (interactive
     (find-file-read-args "Find file: " nil))
    (let ((value (find-file-noselect filename nil nil wildcards)))
--- 911,921 ----
  type M-n to pull it into the minibuffer.
  
  Interactively, or if WILDCARDS is non-nil in a call from Lisp,
! expand wildcards (if any) and visit multiple files.  You can
! suppress wildcard expansion by setting `find-file-wildcards'.
! 
! To visit a file without any kind of conversion and without
! automatically choosing a major mode, use \\[find-file-literally]."
    (interactive
     (find-file-read-args "Find file: " nil))
    (let ((value (find-file-noselect filename nil nil wildcards)))