From c992abdbc6e85052afa3ed7d4e6840eac1ca1ed2 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 14 Jan 2008 19:36:07 +0000 Subject: [PATCH] * net/tramp.el (tramp-local-host-p): Use `tramp-file-name-host' instead of `tramp-file-name-real-host'. --- lisp/net/tramp.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 2.39.2