From fb145562db02c6a9a20c3c25e34d61dcafe4f9e3 Mon Sep 17 00:00:00 2001
From: Richard M. Stallman
Date: Sun, 2 Oct 1994 20:10:39 +0000
Subject: (file-truename): If name has no dir, use default-directory.

---
 lisp/files.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/files.el b/lisp/files.el
index 515e605fb2f..63dd66be1a8 100644
--- 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))
-- 
cgit v1.2.1