# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1252544076 0
# Node ID d7e64be6966a0ec8ce4d3f6c1a04db174758fc7b
# Parent  add40a32098b77f19825c438a8acdaefd131e837
(shell-command): Set asynchronous process filter to
`comint-output-filter'.  (Bug#4343)

diff -r add40a32098b -r d7e64be6966a lisp/simple.el
--- a/lisp/simple.el	Thu Sep 10 00:54:15 2009 +0000
+++ b/lisp/simple.el	Thu Sep 10 00:54:36 2009 +0000
@@ -2214,7 +2214,11 @@
 		  (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)))))))