(shell-command-on-region): Don't delete current buffer.

diff --git a/lisp/simple.el b/lisp/simple.el
index fc0a7fc80690f89fa42c3c8f7b1031de836952d9..8dc5fa1af740c0f7634d4f18d458c72f4a751157 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -771,8 +771,9 @@ deleted."
        (and interactive (push-mark))
        (call-process-region start end shell-file-name t t nil
                             "-c" command)
-       (if (get-buffer "*Shell Command Output*")
-           (kill-buffer "*Shell Command Output*"))
+       (let ((shell-buffer (get-buffer "*Shell Command Output*")))
+         (and shell-buffer (not (eq shell-buffer (current-buffer)))
+              (kill-buffer shell-buffer)))
        (and interactive swap (exchange-point-and-mark)))
     ;; No prefix argument: put the output in a temp buffer,
     ;; replacing its entire contents.