Mercurial > emacs
comparison lisp/files.el @ 67136:af8e4600d870
(file-relative-name): Doc fix.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Sat, 26 Nov 2005 15:50:13 +0000 |
| parents | 5b3373426595 |
| children | 08edf71d5374 1955a4462bf9 |
comparison
equal
deleted
inserted
replaced
| 67135:21ae671f6702 | 67136:af8e4600d870 |
|---|---|
| 3152 (defun file-relative-name (filename &optional directory) | 3152 (defun file-relative-name (filename &optional directory) |
| 3153 "Convert FILENAME to be relative to DIRECTORY (default: `default-directory'). | 3153 "Convert FILENAME to be relative to DIRECTORY (default: `default-directory'). |
| 3154 This function returns a relative file name which is equivalent to FILENAME | 3154 This function returns a relative file name which is equivalent to FILENAME |
| 3155 when used with that default directory as the default. | 3155 when used with that default directory as the default. |
| 3156 If FILENAME and DIRECTORY lie on different machines or on different drives | 3156 If FILENAME and DIRECTORY lie on different machines or on different drives |
| 3157 on a DOS/Windows machine, it returns FILENAME on expanded form." | 3157 on a DOS/Windows machine, it returns FILENAME in expanded form." |
| 3158 (save-match-data | 3158 (save-match-data |
| 3159 (setq directory | 3159 (setq directory |
| 3160 (file-name-as-directory (expand-file-name (or directory | 3160 (file-name-as-directory (expand-file-name (or directory |
| 3161 default-directory)))) | 3161 default-directory)))) |
| 3162 (setq filename (expand-file-name filename)) | 3162 (setq filename (expand-file-name filename)) |