From a7b88dc6d7f98eb036dd6ed7991e20bc0b163fc8 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 21 Sep 2011 12:42:55 +0200 Subject: [PATCH] * net/tramp.el (tramp-handle-shell-command): Set process sentinel and process filter, as done also in `shell-command'. --- lisp/ChangeLog | 5 +++++ lisp/net/tramp.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9b90ea1a98e..0db6356426e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-09-21 Michael Albinus + + * net/tramp.el (tramp-handle-shell-command): Set process sentinel + and process filter, as done also in `shell-command'. + 2011-09-21 Martin Rudalics * window.el (set-window-buffer-start-and-point): Call diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 3384a6d776b..1381d33efa2 100644 --- 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. -- 2.39.5