[Emacs-diffs] trunk r117760: * net/tramp.el (tramp-handle-shell-command): Use `display-buffer'.

[Michael Albinus]

------------------------------------------------------------
revno: 117760
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/18326
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Thu 2014-08-28 21:31:11 +0200
message:
  * net/tramp.el (tramp-handle-shell-command): Use `display-buffer'.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/tramp.el              tramp.el-20091113204419-o5vbwnq5f7feedwu-2427

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-08-28 06:46:58 +0000
+++ b/lisp/ChangeLog    2014-08-28 19:31:11 +0000
@@ -1,3 +1,8 @@
+2014-08-28  Michael Albinus  <address@hidden>
+
+       * net/tramp.el (tramp-handle-shell-command): Use `display-buffer'.
+       (Bug#18326)
+
 2014-08-28  Martin Rudalics  <address@hidden>
 
        * scroll-bar.el (scroll-bar-horizontal-drag-1): Handle new

=== modified file 'lisp/net/tramp.el'
--- a/lisp/net/tramp.el 2014-08-07 11:49:36 +0000
+++ b/lisp/net/tramp.el 2014-08-28 19:31:11 +0000
@@ -3289,11 +3289,12 @@
            ;; Run the process.
            (setq p (apply 'start-file-process "*Async Shell*" buffer args))
          ;; Display output.
-         (pop-to-buffer output-buffer)
-         (setq mode-line-process '(":%s"))
-         (shell-mode)
-         (set-process-sentinel p 'shell-command-sentinel)
-         (set-process-filter p 'comint-output-filter))
+         (with-current-buffer output-buffer
+           (display-buffer output-buffer '(nil (allow-no-window . t)))
+           (setq mode-line-process '(":%s"))
+           (shell-mode)
+           (set-process-sentinel p 'shell-command-sentinel)
+           (set-process-filter p 'comint-output-filter)))
 
       (prog1
          ;; Run the process.