From: Juri Linkov <juri@jurta.org>
Date: Thu, 10 Sep 2009 00:54:36 +0000 (+0000)
Subject: (shell-command): Set asynchronous process filter to
X-Git-Tag: emacs-pretest-23.1.90~1434
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=50c737e439caee63f0bdee279c05344aa98c2444;p=emacs.git

(shell-command): Set asynchronous process filter to
`comint-output-filter'.  (Bug#4343)
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 6ec2e92dac2..c3e7c49e194 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)))))))