# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1200339367 0
# Node ID e958bc9885cae671c01255b4ab9aded0b95e9c65
# Parent  35fdb36e9ff1c8b8500f366c14642dfb5185bde0
* net/tramp.el (tramp-local-host-p): Use `tramp-file-name-host'
instead of `tramp-file-name-real-host'.

diff -r 35fdb36e9ff1 -r e958bc9885ca lisp/net/tramp.el
--- a/lisp/net/tramp.el	Mon Jan 14 19:35:12 2008 +0000
+++ b/lisp/net/tramp.el	Mon Jan 14 19:36:07 2008 +0000
@@ -6731,7 +6731,9 @@
 
 (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