Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 20:37:38 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix window position in Tramp's shell-command

Browse source 
* lisp/net/tramp.el (tramp-handle-shell-command): Fix `window-start'
in output buffer.  (Bug#39171)
This commit is contained in:
Michael Albinus 2020-02-10 19:59:49 +01:00
parent 79355517f1
commit 2e2f539071
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/net/tramp.el
View file

@ -3721,9 +3721,9 @@ support symbolic links."
(if (process-live-p p)
;; Display output.
(with-current-buffer output-buffer
(display-buffer output-buffer '(nil (allow-no-window . t)))
(setq mode-line-process '(":%s"))
(shell-mode)
(unless (eq major-mode 'shell-mode)
(shell-mode))
(set-process-filter p #'comint-output-filter)
(set-process-sentinel p #'shell-command-sentinel)
(when error-file
@ -3733,7 +3733,8 @@ support symbolic links."
(with-current-buffer error-buffer
(insert-file-contents-literally
error-file nil nil nil 'replace))
(delete-file error-file)))))
(delete-file error-file))))
(display-buffer output-buffer '(nil (allow-no-window . t))))
(when error-file
(delete-file error-file)))))