Mercurial > emacs
changeset 24400:a4a1ad877482
(shell-command-on-region): Don't go into the REPLACE = t
case just because the current buffer is the output buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 26 Feb 1999 03:48:07 +0000 |
| parents | eb23f0e62cd5 |
| children | d2de3907a920 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Thu Feb 25 13:26:55 1999 +0000 +++ b/lisp/simple.el Fri Feb 26 03:48:07 1999 +0000 @@ -1242,8 +1242,7 @@ 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.