/[emacs]/emacs/lisp/net/tramp.el
ViewVC logotype

Diff of /emacs/lisp/net/tramp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.52 by albinus, Sun Oct 17 14:05:51 2004 UTC revision 1.53 by kai, Sat Oct 23 19:52:18 2004 UTC
# Line 1770  on the FILENAME argument, even if VISIT Line 1770  on the FILENAME argument, even if VISIT
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)
# Line 3469  This will break if COMMAND prints a newl Line 3470  This will break if COMMAND prints a newl
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 ()
# Line 3960  ARGS are the arguments OPERATION has bee Line 3973  ARGS are the arguments OPERATION has bee
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)

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26