From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 14 Jan 2008 19:36:07 +0000 (+0000)
Subject: * net/tramp.el (tramp-local-host-p): Use `tramp-file-name-host'
X-Git-Tag: emacs-pretest-23.0.90~8571
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c992abdbc6e85052afa3ed7d4e6840eac1ca1ed2;p=emacs.git

* net/tramp.el (tramp-local-host-p): Use `tramp-file-name-host'
instead of `tramp-file-name-real-host'.
---

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 5a65b95b0f8..3969f992a8c 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -6731,7 +6731,9 @@ necessary only.  This function will be used in file name completion."
 
 (defun tramp-local-host-p (vec)
   "Return t if this points to the local host, nil otherwise."
-  (let ((host (tramp-file-name-real-host vec)))
+  ;; We cannot use `tramp-file-name-real-host'.  A port is an
+  ;; indication for an ssh tunnel or alike.
+  (let ((host (tramp-file-name-host vec)))
     (and
      (stringp host)
      (string-match