Re: chmod, chgrp, etc... inside dired over tramp

[Michael Albinus]

Gilles Pion <address@hidden> 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:

address@hidden:~/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.