# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 992445989 0
# Node ID a18180dc7aa1facbb438a55f667a1a425058d4f6
# Parent  ad9617225b8dabacc97fcb3a27f1f63fe6638067
(shell-command-on-region): Never kill the *Shell Command Output* buffer.

diff -r ad9617225b8d -r a18180dc7aa1 lisp/simple.el
--- a/lisp/simple.el	Wed Jun 13 12:31:09 2001 +0000
+++ b/lisp/simple.el	Wed Jun 13 15:26:29 2001 +0000
@@ -1434,9 +1434,10 @@
 					 (list t error-file)
 				       t)
 				     nil shell-command-switch command))
-	  (let ((shell-buffer (get-buffer "*Shell Command Output*")))
-	    (and shell-buffer (not (eq shell-buffer (current-buffer)))
-		 (kill-buffer shell-buffer)))
+;;; It is rude to delete a buffer which the command is not using.
+;;;	  (let ((shell-buffer (get-buffer "*Shell Command Output*")))
+;;;	    (and shell-buffer (not (eq shell-buffer (current-buffer)))
+;;;		 (kill-buffer shell-buffer)))
 	  ;; Don't muck with mark unless REPLACE says we should.
 	  (and replace swap (exchange-point-and-mark)))
       ;; No prefix argument: put the output in a temp buffer,
@@ -1485,8 +1486,7 @@
 			      (< 0 (nth 7 (file-attributes error-file))))
 			 "(Shell command %sed with some error output)"
 		       "(Shell command %sed with no output)")
-		     (if (equal 0 exit-status) "succeed" "fail"))
-	    (kill-buffer buffer)))))
+		     (if (equal 0 exit-status) "succeed" "fail"))))))
 
     (when (and error-file (file-exists-p error-file))
       (if (< 0 (nth 7 (file-attributes error-file)))