481 |
|
|
482 |
(defun convert-standard-filename (filename) |
(defun convert-standard-filename (filename) |
483 |
"Convert a standard file's name to something suitable for the current OS. |
"Convert a standard file's name to something suitable for the current OS. |
484 |
This function's standard definition is trivial; it just returns the argument. |
This means to guarantee valid names and perhaps to canonicalize |
485 |
However, on some systems, the function is redefined with a definition |
certain patterns. |
486 |
that really does change some file names to canonicalize certain |
|
487 |
patterns and to guarantee valid names." |
This function's standard definition is trivial; it just returns |
488 |
|
the argument. However, on Windows and DOS, replace invalid |
489 |
|
characters. On DOS, make sure to obey the 8.3 limitations. On |
490 |
|
Windows, turn Cygwin names into native names, and also turn |
491 |
|
slashes into backslashes if the shell requires it (see |
492 |
|
`w32-shell-dos-semantics')." |
493 |
filename) |
filename) |
494 |
|
|
495 |
(defun read-directory-name (prompt &optional dir default-dirname mustmatch initial) |
(defun read-directory-name (prompt &optional dir default-dirname mustmatch initial) |
911 |
type M-n to pull it into the minibuffer. |
type M-n to pull it into the minibuffer. |
912 |
|
|
913 |
Interactively, or if WILDCARDS is non-nil in a call from Lisp, |
Interactively, or if WILDCARDS is non-nil in a call from Lisp, |
914 |
expand wildcards (if any) and visit multiple files. Wildcard expansion |
expand wildcards (if any) and visit multiple files. You can |
915 |
can be suppressed by setting `find-file-wildcards'." |
suppress wildcard expansion by setting `find-file-wildcards'. |
916 |
|
|
917 |
|
To visit a file without any kind of conversion and without |
918 |
|
automatically choosing a major mode, use \\[find-file-literally]." |
919 |
(interactive |
(interactive |
920 |
(find-file-read-args "Find file: " nil)) |
(find-file-read-args "Find file: " nil)) |
921 |
(let ((value (find-file-noselect filename nil nil wildcards))) |
(let ((value (find-file-noselect filename nil nil wildcards))) |