diff options
author | Juri Linkov <[email protected]> | 2009-09-10 00:54:36 +0000 |
---|---|---|
committer | Juri Linkov <[email protected]> | 2009-09-10 00:54:36 +0000 |
commit | 50c737e439caee63f0bdee279c05344aa98c2444 (patch) | |
tree | 43874dae43a62e76697727bb6ce42d9f443032b0 | |
parent | cf5e4199310dd3d70453b5115d793957a149c08b (diff) |
(shell-command): Set asynchronous process filter to
`comint-output-filter'. (Bug#4343)
-rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 6ec2e92dac..c3e7c49e19 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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))))))) |