diff options
| author | Kai Großjohann <kgrossjo@eu.uu.net> | 2004-10-23 19:52:18 +0000 |
|---|---|---|
| committer | Kai Großjohann <kgrossjo@eu.uu.net> | 2004-10-23 19:52:18 +0000 |
| commit | 0457dd55384ea10734a4a888c28bf842bdf6938d (patch) | |
| tree | 8c680c668fac52010b0456608c354a81be7177e5 /lisp/vc.el | |
| parent | f2aa54499ec7a97d599dba2f5ce8383b2c4ef04a (diff) | |
| download | emacs-0457dd55384ea10734a4a888c28bf842bdf6938d.tar.gz | |
* simple.el (process-file): New function, similar to call-process
but supports file handlers.
* vc.el (vc-do-command): Use it, instead of call-process.
* net/tramp-vc.el (vc-do-command): Do not advise it if
process-file is fboundp.
* net/tramp.el (tramp-file-name-handler-alist): Add entry for
process-file.
(tramp-handle-process-file): New function.
(tramp-file-name-for-operation): Support process-file.
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index a0d3d1cd4be..15d0258e85d 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -953,7 +953,7 @@ that is inserted into the command line before the filename." (vc-exec-after `(unless (active-minibuffer-window) (message "Running %s in the background... done" ',command)))) - (setq status (apply 'call-process command nil t nil squeezed)) + (setq status (apply 'process-file command nil t nil squeezed)) (when (or (not (integerp status)) (and okstatus (< okstatus status))) (pop-to-buffer (current-buffer)) (goto-char (point-min)) |