[Emacs-diffs] Changes to emacs/lisp/net/tramp.el

[Kai Gro�johann]

Index: emacs/lisp/net/tramp.el
diff -c emacs/lisp/net/tramp.el:1.52 emacs/lisp/net/tramp.el:1.53
*** emacs/lisp/net/tramp.el:1.52        Sun Oct 17 14:05:51 2004
--- emacs/lisp/net/tramp.el     Sat Oct 23 19:52:18 2004
***************
*** 1770,1775 ****
--- 1770,1776 ----
      (delete-file . tramp-handle-delete-file)
      (directory-file-name . tramp-handle-directory-file-name)
      (shell-command . tramp-handle-shell-command)
+     (process-file . tramp-handle-process-file)
      (insert-directory . tramp-handle-insert-directory)
      (expand-file-name . tramp-handle-expand-file-name)
      (file-local-copy . tramp-handle-file-local-copy)
***************
*** 3469,3474 ****
--- 3470,3487 ----
      (tramp-run-real-handler 'shell-command
                            (list command output-buffer error-buffer))))
  
+ (defun tramp-handle-process-file (program &optional infile buffer display 
&rest args)
+   "Like `process-file' for Tramp files."
+   (when infile (error "Implementation does not handle input from file"))
+   (when (and (numberp buffer) (zerop buffer))
+     (error "Implementation does not handle immediate return"))
+   (when (consp buffer) (error "Implementation does not handle error files"))
+   (shell-command 
+    (mapconcat 'tramp-shell-quote-argument
+               (cons program args)
+               " ")
+    buffer))
+ 
  ;; File Editing.
  
  (defsubst tramp-make-temp-file ()
***************
*** 3960,3965 ****
--- 3973,3980 ----
     ; COMMAND
     ((member operation
            (list 'dired-call-process 'shell-command
+                   ; Post Emacs 21.3 only
+                   'process-file
                  ; XEmacs only
                  'dired-print-file 'dired-shell-call-process))
      default-directory)