* net/tramp.el (tramp-handle-shell-command): Set process sentinel

and process filter, as done also in `shell-command'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9b90ea1a98e7f56de378584968f55a3f287ce825..0db6356426e178b6e835edb957fd4918ce8ee153 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-21  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp.el (tramp-handle-shell-command): Set process sentinel
+       and process filter, as done also in `shell-command'.
+
 2011-09-21  Martin Rudalics  <rudalics@gmx.at>
 
        * window.el (set-window-buffer-start-and-point): Call

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 3384a6d776b5e72fcdcbc61361fa6ad151b51246..1381d33efa26e7578fb55e97d337ca01c69fbe70 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3024,11 +3024,13 @@ User is always nil."
     (if (and (not current-buffer-p) (integerp asynchronous))
        (prog1
            ;; Run the process.
-           (apply 'start-file-process "*Async Shell*" buffer args)
+           (setq p (apply 'start-file-process "*Async Shell*" buffer args))
          ;; Display output.
          (pop-to-buffer output-buffer)
          (setq mode-line-process '(":%s"))
-         (shell-mode))
+         (shell-mode)
+         (set-process-sentinel p 'shell-command-sentinel)
+         (set-process-filter p 'comint-output-filter))
 
       (prog1
          ;; Run the process.