mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source 
instead of `tramp-file-name-real-host'.
This commit is contained in:
Michael Albinus 2008-01-14 19:36:07 +00:00
parent b58c3770c7
commit c992abdbc6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/net/tramp.el
View File

@ -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