Commit 748d6ca4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

case just because the current buffer is the output buffer.
parent a127b764
......@@ -1242,8 +1242,7 @@ of ERROR-BUFFER."
(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.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment