[Emacs-diffs] /srv/bzr/emacs/trunk r105867: * net/tramp.el (tramp-handle-shell-command): Set process sentinel

[Michael Albinus]

------------------------------------------------------------
revno: 105867
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Wed 2011-09-21 12:42:55 +0200
message:
  * net/tramp.el (tramp-handle-shell-command): Set process sentinel
  and process filter, as done also in `shell-command'.
modified:
  lisp/ChangeLog
  lisp/net/tramp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-21 08:20:21 +0000
+++ b/lisp/ChangeLog    2011-09-21 10:42:55 +0000
@@ -1,3 +1,8 @@
+2011-09-21  Michael Albinus  <address@hidden>
+
+       * net/tramp.el (tramp-handle-shell-command): Set process sentinel
+       and process filter, as done also in `shell-command'.
+
 2011-09-21  Martin Rudalics  <address@hidden>
 
        * window.el (set-window-buffer-start-and-point): Call

=== modified file 'lisp/net/tramp.el'
--- a/lisp/net/tramp.el 2011-09-18 11:26:15 +0000
+++ b/lisp/net/tramp.el 2011-09-21 10:42:55 +0000
@@ -3024,11 +3024,13 @@
     (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.