Mercurial > emacs

changeset 87748:e958bc9885ca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/tramp.el (tramp-local-host-p): Use `tramp-file-name-host' instead of `tramp-file-name-real-host'.
author Michael Albinus <michael.albinus@gmx.de>
date Mon, 14 Jan 2008 19:36:07 +0000
parents 35fdb36e9ff1
children 8a5cc747eb9f
files lisp/net/tramp.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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