230 |
|
|
231 |
(defun convert-standard-filename (filename) |
(defun convert-standard-filename (filename) |
232 |
"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. |
233 |
This function's standard definition is trivial; it just returns the argument. |
This means to guarantee valid names and perhaps to canonicalize |
234 |
However, on some systems, the function is redefined |
certain patterns. |
235 |
with a definition that really does change some file names." |
|
236 |
|
On Windows and DOS, replace invalid characters. On DOS, make |
237 |
|
sure to obey the 8.3 limitations. On Windows, turn Cygwin names |
238 |
|
into native names, and also turn slashes into backslashes if the |
239 |
|
shell requires it (see `w32-shell-dos-semantics')." |
240 |
(let ((name |
(let ((name |
241 |
(save-match-data |
(save-match-data |
242 |
(if (string-match "\\`/cygdrive/\\([a-zA-Z]\\)/" filename) |
(if (string-match "\\`/cygdrive/\\([a-zA-Z]\\)/" filename) |