From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 2 Jun 2014 15:17:39 +0000 (+0200)
Subject: * net/tramp.el (tramp-handle-unhandled-file-name-directory): Return "/".
X-Git-Tag: emacs-25.0.90~2639^2~147
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7973d8d5facf11b6408f8e17c9ad11efc7ff6eba;p=emacs.git

* net/tramp.el (tramp-handle-unhandled-file-name-directory): Return "/".
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 10de84b3c41..dff574972a4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
 	* net/tramp.el (with-tramp-progress-reporter, tramp-call-process):
 	Add traces.
+	(tramp-handle-unhandled-file-name-directory): Return "/".
 
 2014-06-02  Wilson Snyder  <wsnyder@wsnyder.org>
 
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index deb89ed5894..36ee449659c 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3340,8 +3340,9 @@ User is always nil."
 (defun tramp-handle-unhandled-file-name-directory (_filename)
   "Like `unhandled-file-name-directory' for Tramp files."
   ;; With Emacs 23, we could simply return `nil'.  But we must keep it
-  ;; for backward compatibility.
-  (expand-file-name "~/"))
+  ;; for backward compatibility.  "~/" cannot be returned, because
+  ;; there might be machines without a HOME directory (like hydra).
+  "/")
 
 (defun tramp-handle-set-visited-file-modtime (&optional time-list)
   "Like `set-visited-file-modtime' for Tramp files."