Mercurial > emacs
changeset 9234:da491f38518c
(file-truename): If name has no dir, use default-directory.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 02 Oct 1994 20:10:39 +0000 |
| parents | 746cc6b0d28f |
| children | a55d058e5e1a |
| files | lisp/files.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Sun Oct 02 15:51:13 1994 +0000 +++ b/lisp/files.el Sun Oct 02 20:10:39 1994 +0000 @@ -372,7 +372,7 @@ (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))