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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 10de84b3c4131250331f892f9b31ad816103c475..dff574972a48cc717b836927d2bfcf6680a5e1a2 100644 (file)
--- 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 deb89ed5894385bb0bc6722a1efd1f89263f8adc..36ee449659c679e0a2871b3599652cd0a9696f56 100644 (file)
--- 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."