# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1255269568 0
# Node ID e7c777c6e230f1ee318897ec1e4ed6d49865ed16
# Parent  7213f000a165a9f9c3843262318bf23d3ae4f11f
* net/tramp.el (tramp-local-host-p): Function shall return nil for
connection methods like smb.

diff -r 7213f000a165 -r e7c777c6e230 lisp/net/tramp.el
--- a/lisp/net/tramp.el	Sun Oct 11 03:48:10 2009 +0000
+++ b/lisp/net/tramp.el	Sun Oct 11 13:59:28 2009 +0000
@@ -7480,6 +7480,11 @@
     (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