comparison lisp/dos-fns.el @ 55865:ccd8cdf69359

Rework docstring (wording by Eli Zaretskii and Kai Grossjohann).
author Juanma Barranquero <lekktu@gmail.com>
date Sun, 30 May 2004 21:21:42 +0000
parents 695cf19ef79e
children 6fb026ad601f 4c90ffeb71c5
comparison
equal deleted inserted replaced
55864:dc60eb9fbbdc 55865:ccd8cdf69359
29 ;;; Code: 29 ;;; Code:
30 30
31 ;; This overrides a trivial definition in files.el. 31 ;; This overrides a trivial definition in files.el.
32 (defun convert-standard-filename (filename) 32 (defun convert-standard-filename (filename)
33 "Convert a standard file's name to something suitable for the current OS. 33 "Convert a standard file's name to something suitable for the current OS.
34 This function's standard definition is trivial; it just returns the argument. 34 This means to guarantee valid names and perhaps to canonicalize
35 However, on some systems, the function is redefined 35 certain patterns.
36 with a definition that really does change some file names." 36
37 On Windows and DOS, replace invalid characters. On DOS, make
38 sure to obey the 8.3 limitations. On Windows, turn Cygwin names
39 into native names, and also turn slashes into backslashes if the
40 shell requires it (see `w32-shell-dos-semantics')."
37 (if (or (not (stringp filename)) 41 (if (or (not (stringp filename))
38 ;; This catches the case where FILENAME is "x:" or "x:/" or 42 ;; This catches the case where FILENAME is "x:" or "x:/" or
39 ;; "/", thus preventing infinite recursion. 43 ;; "/", thus preventing infinite recursion.
40 (string-match "\\`\\([a-zA-Z]:\\)?[/\\]?\\'" filename)) 44 (string-match "\\`\\([a-zA-Z]:\\)?[/\\]?\\'" filename))
41 filename 45 filename