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." ...@@ -372,7 +372,7 @@ Do not specify them in other calls."
(if handler (if handler
(setq filename (funcall handler 'file-truename filename) (setq filename (funcall handler 'file-truename filename)
done t) done t)
(let ((dir (file-name-directory filename)) (let ((dir (or (file-name-directory filename) default-directory))
target dirfile) target dirfile)
;; Get the truename of the directory. ;; Get the truename of the directory.
(setq dirfile (directory-file-name dir)) (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