[Emacs-diffs] emacs/lisp simple.el

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     09/09/10 00:54:37

Modified files:
        lisp           : simple.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/simple.el?cvsroot=emacs&r1=1.1008&r2=1.1009

Patches:
Index: simple.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/simple.el,v
retrieving revision 1.1008
retrieving revision 1.1009
diff -u -b -r1.1008 -r1.1009
--- simple.el   28 Aug 2009 04:21:17 -0000      1.1008
+++ simple.el   10 Sep 2009 00:54:36 -0000      1.1009
@@ -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)))))))