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

fb145562 · Richard M. Stallman · 4dedbfe0 · fb145562
Commit fb145562 authored Oct 02, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/files.el lisp/files.el +1 -1

No files found.
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -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))