Mercurial > emacs

diff lisp/files.el @ 9234:da491f38518c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(file-truename): If name has no dir, use default-directory.
author Richard M. Stallman <rms@gnu.org>
date Sun, 02 Oct 1994 20:10:39 +0000
parents 61ae93bdc652
children 2ecfcd3f778c
line wrap: on
line diff
--- a/lisp/files.el	Sun Oct 02 15:51:13 1994 +0000
+++ b/lisp/files.el	Sun Oct 02 20:10:39 1994 +0000
@@ -372,7 +372,7 @@
 	(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))