mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases 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
Show Stats 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))