diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-02 20:10:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-02 20:10:39 +0000 |
| commit | 773d6f5b2ab8b472f8b2190621251302ecaddf66 (patch) | |
| tree | 8cc384242f9da52d2f5901e3ddf2fdbd2ddc5462 /lisp/files.el | |
| parent | 6db802546147ee6fbbca98317318848832cda702 (diff) | |
| download | emacs-773d6f5b2ab8b472f8b2190621251302ecaddf66.tar.gz | |
(file-truename): If name has no dir, use default-directory.
Diffstat (limited to 'lisp/files.el')
| -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." (if handler (setq filename (funcall handler 'file-truename filename) done t) - (let ((dir (file-name-directory filename)) + (let ((dir (or (file-name-directory filename) default-directory)) target dirfile) ;; Get the truename of the directory. (setq dirfile (directory-file-name dir)) |