Gilles Pion <[EMAIL PROTECTED]> writes:
>> tramp-handle-call-process does exist in Tramp 2.1.10.
>
> This next piece of code is from tramp-util.el extracted my local
> tramp-2.1.10.tar.gz archive , there is a reference to
> tramp-handle-call-process, is this normal?
I stay corrected. The renaming happened in tramp.el before the release
of 2.1.10, and in tramp-util.el after the release. My memories are like
a sieve ...
The following patch might solve it for you until Tramp 2.1.11 is shipped:
[EMAIL PROTECTED]:~/src/tramp/lisp$ cvs diff -c -r V-2-1-10 tramp-util.el
Index: tramp-util.el
===================================================================
RCS file: /cvsroot/tramp/tramp/lisp/tramp-util.el,v
retrieving revision 2.46
retrieving revision 2.49
diff -c -r2.46 -r2.49
*** tramp-util.el 17 Jul 2007 20:49:43 -0000 2.46
--- tramp-util.el 28 Aug 2007 20:05:52 -0000 2.49
***************
*** 150,164 ****
'(lambda () (ad-unadvise 'start-process-shell-command)))
(defadvice call-process
! (around tramp-advice-call-process activate)
! "Invoke `tramp-handle-call-process' for Tramp files."
(let ((fnh (tramp-find-foreign-file-name-handler default-directory)))
(cond ((eq fnh 'tramp-sh-file-name-handler)
(setq ad-return-value
! (apply 'tramp-handle-call-process (ad-get-args 0))))
((eq fnh 'tramp-fish-file-name-handler)
(setq ad-return-value
! (apply 'tramp-fish-handle-call-process (ad-get-args 0))))
(t ad-do-it))))
(add-hook 'tramp-util-unload-hook
'(lambda () (ad-unadvise 'call-process)))
--- 150,164 ----
'(lambda () (ad-unadvise 'start-process-shell-command)))
(defadvice call-process
! (around tramp-advice-process-file activate)
! "Invoke `tramp-handle-process-file' for Tramp files."
(let ((fnh (tramp-find-foreign-file-name-handler default-directory)))
(cond ((eq fnh 'tramp-sh-file-name-handler)
(setq ad-return-value
! (apply 'tramp-handle-process-file (ad-get-args 0))))
((eq fnh 'tramp-fish-file-name-handler)
(setq ad-return-value
! (apply 'tramp-fish-handle-process-file (ad-get-args 0))))
(t ad-do-it))))
(add-hook 'tramp-util-unload-hook
'(lambda () (ad-unadvise 'call-process)))
> --
> Gilles
Sorry for the inconvenience, and best regards, Michael.
_______________________________________________
Tramp-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/tramp-devel
