1770 |
(delete-file . tramp-handle-delete-file) |
(delete-file . tramp-handle-delete-file) |
1771 |
(directory-file-name . tramp-handle-directory-file-name) |
(directory-file-name . tramp-handle-directory-file-name) |
1772 |
(shell-command . tramp-handle-shell-command) |
(shell-command . tramp-handle-shell-command) |
1773 |
|
(process-file . tramp-handle-process-file) |
1774 |
(insert-directory . tramp-handle-insert-directory) |
(insert-directory . tramp-handle-insert-directory) |
1775 |
(expand-file-name . tramp-handle-expand-file-name) |
(expand-file-name . tramp-handle-expand-file-name) |
1776 |
(file-local-copy . tramp-handle-file-local-copy) |
(file-local-copy . tramp-handle-file-local-copy) |
3470 |
(tramp-run-real-handler 'shell-command |
(tramp-run-real-handler 'shell-command |
3471 |
(list command output-buffer error-buffer)))) |
(list command output-buffer error-buffer)))) |
3472 |
|
|
3473 |
|
(defun tramp-handle-process-file (program &optional infile buffer display &rest args) |
3474 |
|
"Like `process-file' for Tramp files." |
3475 |
|
(when infile (error "Implementation does not handle input from file")) |
3476 |
|
(when (and (numberp buffer) (zerop buffer)) |
3477 |
|
(error "Implementation does not handle immediate return")) |
3478 |
|
(when (consp buffer) (error "Implementation does not handle error files")) |
3479 |
|
(shell-command |
3480 |
|
(mapconcat 'tramp-shell-quote-argument |
3481 |
|
(cons program args) |
3482 |
|
" ") |
3483 |
|
buffer)) |
3484 |
|
|
3485 |
;; File Editing. |
;; File Editing. |
3486 |
|
|
3487 |
(defsubst tramp-make-temp-file () |
(defsubst tramp-make-temp-file () |
3973 |
; COMMAND |
; COMMAND |
3974 |
((member operation |
((member operation |
3975 |
(list 'dired-call-process 'shell-command |
(list 'dired-call-process 'shell-command |
3976 |
|
; Post Emacs 21.3 only |
3977 |
|
'process-file |
3978 |
; XEmacs only |
; XEmacs only |
3979 |
'dired-print-file 'dired-shell-call-process)) |
'dired-print-file 'dired-shell-call-process)) |
3980 |
default-directory) |
default-directory) |