Kyle VanderBeek <[EMAIL PROTECTED]> writes:
>> (require 'tramp)
>> (require 'trace)
>> (require 'vc)
>> (dolist
>> (elt (append (all-completions "tramp-" obarray 'functionp)
>> (all-completions "vc-" obarray 'functionp)
>> (all-completions "find-file-" obarray 'functionp)))
>> (trace-function-background (intern elt)))
>> (untrace-function 'tramp-read-passwd)
>>
>> Send me the resulting *trace-output* buffer.
>
> Mine is attached.
Thanks a lot, that's very helpful. There is an error in
`tramp-set-file-uid-gid', which prevents Tramp from proper working.
Could you, please, apply the attached patch? If it doesn't help, I need
the traces as above.
Thanks for your support, and best regards, Michael.
*** /home/albinus/src/tramp/lisp/tramp.el.~2.599.~ 2007-10-22 20:41:48.000000000 +0200
--- /home/albinus/src/tramp/lisp/tramp.el 2007-10-23 22:57:22.000000000 +0200
***************
*** 2575,2585 ****
;; We handle also the local part, because there doesn't exist
;; `set-file-uid-gid'.
(let ((uid (or (and (integerp uid) uid) (tramp-get-local-uid 'integer)))
! (gid (or (and (integerp gid) gid) (tramp-get-local-uid 'integer)))
(default-directory (tramp-compat-temporary-file-directory)))
! (call-process
! "chown" nil nil nil
! (format "%d:%d" uid gid) (tramp-shell-quote-argument filename)))))
;; Simple functions using the `test' command.
--- 2575,2588 ----
;; We handle also the local part, because there doesn't exist
;; `set-file-uid-gid'.
(let ((uid (or (and (integerp uid) uid) (tramp-get-local-uid 'integer)))
! (gid (or (and (integerp gid) gid) (tramp-get-local-gid 'integer)))
(default-directory (tramp-compat-temporary-file-directory)))
! ;; "chown" might not exist, for example on Win32.
! (condition-case nil
! (call-process
! "chown" nil nil nil
! (format "%d:%d" uid gid) (tramp-shell-quote-argument filename))
! (error nil)))))
;; Simple functions using the `test' command.
_______________________________________________
Tramp-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/tramp-devel
