From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 26 Feb 1999 03:48:07 +0000 (+0000)
Subject: (shell-command-on-region): Don't go into the REPLACE = t
X-Git-Tag: emacs-20.4~549
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=748d6ca46b2f78fff81020c4598be2fc4aa346eb;p=emacs.git

(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 10ece473180..11630448298 100644
--- 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.