Gilles Pion <[EMAIL PROTECTED]> writes:
>> (defalias 'tramp-local-host-p 'ignore)
>
> fixed, thanks
OK, here is a real fix: could you, please, test?
(defun tramp-local-host-p (vec)
"Return t if this points to the local host, nil otherwise."
;; 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
(concat "^" (regexp-opt (list "localhost" (system-name)) t) "$") host)
;; The local temp directory must be writable for the other user.
(file-writable-p
(tramp-make-tramp-file-name
(tramp-file-name-method vec)
(tramp-file-name-user vec)
host
(tramp-compat-temporary-file-directory))))))
> Gilles
Best regards, Michael.
_______________________________________________
Tramp-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/tramp-devel
