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

instead of `tramp-file-name-real-host'.

* net/tramp.el (tramp-local-host-p): Use `tramp-file-name-host'
instead of `tramp-file-name-real-host'.
c992abdb · Michael Albinus · b58c3770 · c992abdb
Commit c992abdb authored Jan 14, 2008 by Michael Albinus
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/net/tramp.el lisp/net/tramp.el +3 -1

No files found.
--- 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