Mercurial > emacs

changeset 105549:e7c777c6e230

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/tramp.el (tramp-local-host-p): Function shall return nil for connection methods like smb.
author Michael Albinus <michael.albinus@gmx.de>
date Sun, 11 Oct 2009 13:59:28 +0000
parents 7213f000a165
children 42674c5ffbe7
files lisp/net/tramp.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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