From 748d6ca46b2f78fff81020c4598be2fc4aa346eb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 26 Feb 1999 03:48:07 +0000 Subject: [PATCH] (shell-command-on-region): Don't go into the REPLACE = t case just because the current buffer is the output buffer. --- lisp/simple.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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. -- 2.39.2