mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 05:30:43 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1994-10-02 20:10:39 +00:00
parent 4dedbfe0bf
commit fb145562db
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/files.el
View file

@ -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))