diff options
| author | Richard M. Stallman | 1994-10-02 20:10:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-10-02 20:10:39 +0000 |
| commit | fb145562db02c6a9a20c3c25e34d61dcafe4f9e3 (patch) | |
| tree | 198c1fd32f635383c82f937090a82ad6ca90c57b | |
| parent | 4dedbfe0bf00decbc4c6f42970cde37af21198ff (diff) | |
| download | emacs-fb145562db02c6a9a20c3c25e34d61dcafe4f9e3.tar.gz emacs-fb145562db02c6a9a20c3c25e34d61dcafe4f9e3.zip | |
(file-truename): If name has no dir, use default-directory.
| -rw-r--r-- | lisp/files.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 515e605fb2f..63dd66be1a8 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -372,7 +372,7 @@ Do not specify them in other calls." | |||
| 372 | (if handler | 372 | (if handler |
| 373 | (setq filename (funcall handler 'file-truename filename) | 373 | (setq filename (funcall handler 'file-truename filename) |
| 374 | done t) | 374 | done t) |
| 375 | (let ((dir (file-name-directory filename)) | 375 | (let ((dir (or (file-name-directory filename) default-directory)) |
| 376 | target dirfile) | 376 | target dirfile) |
| 377 | ;; Get the truename of the directory. | 377 | ;; Get the truename of the directory. |
| 378 | (setq dirfile (directory-file-name dir)) | 378 | (setq dirfile (directory-file-name dir)) |