X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fprocess.el;h=690ef8017e0dafc2e1055b916ebac7c3c4684087;hb=c5202dd83f0118ffb33a0ed364bef7833b0717e7;hp=79a81e66b31ae74e344cfd5b18c07b661e7cc4df;hpb=21db8709c0c2dcedbd278c7fe571290d5ce80a71;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/process.el b/lisp/process.el
index 79a81e6..690ef80 100644
--- a/lisp/process.el
+++ b/lisp/process.el
@@ -277,7 +277,7 @@ In either case, the output is inserted after point (leaving mark after it)."
       (if (string-match "[ \t]*&[ \t]*$" command)
 	  ;; Command ending with ampersand means asynchronous.
 	  (progn
-	    (background (substring command 0 (match-beginning 0))))
+	    (background (substring command 0 (match-beginning 0)) output-buffer))
 	(shell-command-on-region (point) (point) command output-buffer)))))
 
 ;; We have a sentinel to prevent insertion of a termination message
@@ -350,7 +350,7 @@ In either case, the output is inserted after point (leaving mark after it)."
 	      ;; then replace that region with the output.
 	      (progn (setq buffer-read-only nil)
 		     (delete-region (max start end) (point-max))
-		     (delete-region (point-min) (max start end))
+		     (delete-region (point-min) (min start end))
 		     (setq exit-status
 			   (call-process-region (point-min) (point-max)
 						shell-file-name t t nil