diff options
| -rw-r--r-- | lisp/files.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index 62210737189..38fc1fc3cdf 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1321,9 +1321,8 @@ Value is a list whose car is the name for the backup file | |||
| 1321 | (defun file-relative-name (filename &optional directory) | 1321 | (defun file-relative-name (filename &optional directory) |
| 1322 | "Convert FILENAME to be relative to DIRECTORY (default: default-directory)." | 1322 | "Convert FILENAME to be relative to DIRECTORY (default: default-directory)." |
| 1323 | (setq filename (expand-file-name filename) | 1323 | (setq filename (expand-file-name filename) |
| 1324 | directory (file-name-as-directory (if directory | 1324 | directory (file-name-as-directory (expand-file-name |
| 1325 | (expand-file-name directory) | 1325 | (or directory default-directory)))) |
| 1326 | default-directory))) | ||
| 1327 | (file-relative-name-1 directory)) | 1326 | (file-relative-name-1 directory)) |
| 1328 | 1327 | ||
| 1329 | (defun save-buffer (&optional args) | 1328 | (defun save-buffer (&optional args) |