diff options
| -rw-r--r-- | lisp/net/tramp.el | 4 |
1 files changed, 3 insertions, 1 deletions
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." | |||
| 6731 | 6731 | ||
| 6732 | (defun tramp-local-host-p (vec) | 6732 | (defun tramp-local-host-p (vec) |
| 6733 | "Return t if this points to the local host, nil otherwise." | 6733 | "Return t if this points to the local host, nil otherwise." |
| 6734 | (let ((host (tramp-file-name-real-host vec))) | 6734 | ;; We cannot use `tramp-file-name-real-host'. A port is an |
| 6735 | ;; indication for an ssh tunnel or alike. | ||
| 6736 | (let ((host (tramp-file-name-host vec))) | ||
| 6735 | (and | 6737 | (and |
| 6736 | (stringp host) | 6738 | (stringp host) |
| 6737 | (string-match | 6739 | (string-match |