(shell-command-on-region): Don't go into the REPLACE = t

case just because the current buffer is the output buffer.

diff --git a/lisp/simple.el b/lisp/simple.el
index 10ece47318029d4b00009fe33e8911903a35a35d..116304482983ea96a41d9f59be9059f743f5017f 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1242,8 +1242,7 @@ of ERROR-BUFFER."
        exit-status)
     (if (or replace
            (and output-buffer
-                (not (or (bufferp output-buffer) (stringp output-buffer))))
-           (equal (buffer-name (current-buffer)) "*Shell Command Output*"))
+                (not (or (bufferp output-buffer) (stringp output-buffer)))))
        ;; Replace specified region with output from command.
        (let ((swap (and replace (< start end))))
          ;; Don't muck with mark unless REPLACE says we should.