* tramp.el (tramp-file-name-for-operation): Remove

`executable-find', `start-process', `call-process' and
`call-process-region'.

* tramp-sh.el (top): Remove `tramp-sh-handle-call-process-region'.

lisp/ChangeLog

@@ -1,3 +1,11 @@
+2012-12-06  Michael Albinus  <michael.albinus@gmx.de>
+
+	* tramp.el (tramp-file-name-for-operation): Remove
+	`executable-find', `start-process', `call-process' and
+	`call-process-region'.
+
+	* tramp-sh.el (top): Remove `tramp-sh-handle-call-process-region'.
+
 2012-12-05  Michael Albinus  <michael.albinus@gmx.de>
 
 	* tramp-sh.el (tramp-do-copy-or-rename-file-out-of-band): Check

lisp/tramp-sh.el

@@ -2932,16 +2932,6 @@ the result will be a local, non-Tramp, filename."
 	  (keyboard-quit)
 	ret))))
 
-(defun tramp-sh-handle-call-process-region
-  (start end program &optional delete buffer display &rest args)
-  "Like `call-process-region' for Tramp files."
-  (let ((tmpfile (tramp-compat-make-temp-file "")))
-    (write-region start end tmpfile)
-    (when delete (delete-region start end))
-    (unwind-protect
-	(apply 'call-process program tmpfile buffer display args)
-      (delete-file tmpfile))))
-
 (defun tramp-sh-handle-file-local-copy (filename)
   "Like `file-local-copy' for Tramp files."
   (with-parsed-tramp-file-name filename nil

lisp/tramp.el

@@ -1928,10 +1928,7 @@ ARGS are the arguments OPERATION has been called with."
                   ;; Emacs 23+ only.
                   'start-file-process
 	          ;; XEmacs only.
-		  'dired-print-file 'dired-shell-call-process
-		  ;; nowhere yet.
-		  'executable-find 'start-process
-		  'call-process 'call-process-region))
+		  'dired-print-file 'dired-shell-call-process))
     default-directory)
    ;; Unknown file primitive.
    (t (error "unknown file I/O primitive: %s" operation))))