From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 7 Nov 2014 20:15:46 +0000 (+0100)
Subject: * net/tramp.el (tramp-check-cached-permissions): Include hop in
X-Git-Tag: emacs-24.4.90~253
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=121ccd275a4805dbee9b1a3c43a83cea5491fbb4;p=emacs.git

* net/tramp.el (tramp-check-cached-permissions): Include hop in
the constructed Tramp file name.

Fixes: debbugs:18943
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a41e298ecbc..e03e05c46f8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-07  Michael Albinus  <michael.albinus@gmx.de>
+
+	* net/tramp.el (tramp-check-cached-permissions): Include hop in
+	the constructed Tramp file name.  (Bug#18943)
+
 2014-11-07  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* emulation/cua-base.el (cua--select-keymaps): Use region-active-p
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 969172be70a..5889743e28b 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3919,7 +3919,8 @@ be granted."
 		  (tramp-file-name-method vec)
 		  (tramp-file-name-user vec)
 		  (tramp-file-name-host vec)
-		  (tramp-file-name-localname vec))
+		  (tramp-file-name-localname vec)
+		  (tramp-file-name-hop vec))
 		 (intern suffix))))
               (remote-uid
                (tramp-get-connection-property