Commit 50c737e4 authored by Juri Linkov's avatar Juri Linkov
Browse files

(shell-command): Set asynchronous process filter to

`comint-output-filter'.  (Bug#4343)
parent cf5e4199
......@@ -2214,7 +2214,11 @@ specifies the value of ERROR-BUFFER."
(setq mode-line-process '(":%s"))
(require 'shell) (shell-mode)
(set-process-sentinel proc 'shell-command-sentinel)
;; Use the comint filter for proper handling of carriage motion
;; (see `comint-inhibit-carriage-motion'),.
(set-process-filter proc 'comint-output-filter)
;; Otherwise, command is executed synchronously.
(shell-command-on-region (point) (point) command
output-buffer nil error-buffer)))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment