Commit fb145562 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(file-truename): If name has no dir, use default-directory.

parent 4dedbfe0
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment