From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 11 Oct 2009 13:59:28 +0000 (+0000)
Subject: * net/tramp.el (tramp-local-host-p): Function shall return nil for
X-Git-Tag: emacs-pretest-23.1.90~849
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=46bcd78cc0470c3ff5447573a87b804ec46078a2;p=emacs.git

* net/tramp.el (tramp-local-host-p): Function shall return nil for
connection methods like smb.
---

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index f266d314b67..e227de57df4 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -7480,6 +7480,11 @@ necessary only.  This function will be used in file name completion."
     (and
      (stringp host)
      (string-match tramp-local-host-regexp host)
+     ;; The method shall be applied to one of the shell file name
+     ;; handler.  `tramp-local-host-p' is also called for "smb" and
+     ;; alike, where it must fail.
+     (tramp-get-method-parameter
+      (tramp-file-name-method vec) 'tramp-login-program)
      ;; The local temp directory must be writable for the other user.
      (file-writable-p
       (tramp-make-tramp-file-name