diff options
| author | Richard M. Stallman | 1999-02-26 03:48:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-02-26 03:48:07 +0000 |
| commit | 748d6ca46b2f78fff81020c4598be2fc4aa346eb (patch) | |
| tree | 8c7f6403f388446a63dc64aefaf02db95bc39cf6 | |
| parent | a127b764e23205b18de292783bbe68ad58bab1d7 (diff) | |
| download | emacs-748d6ca46b2f78fff81020c4598be2fc4aa346eb.tar.gz emacs-748d6ca46b2f78fff81020c4598be2fc4aa346eb.zip | |
(shell-command-on-region): Don't go into the REPLACE = t
case just because the current buffer is the output buffer.
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 1 insertions, 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." | |||
| 1242 | exit-status) | 1242 | exit-status) |
| 1243 | (if (or replace | 1243 | (if (or replace |
| 1244 | (and output-buffer | 1244 | (and output-buffer |
| 1245 | (not (or (bufferp output-buffer) (stringp output-buffer)))) | 1245 | (not (or (bufferp output-buffer) (stringp output-buffer))))) |
| 1246 | (equal (buffer-name (current-buffer)) "*Shell Command Output*")) | ||
| 1247 | ;; Replace specified region with output from command. | 1246 | ;; Replace specified region with output from command. |
| 1248 | (let ((swap (and replace (< start end)))) | 1247 | (let ((swap (and replace (< start end)))) |
| 1249 | ;; Don't muck with mark unless REPLACE says we should. | 1248 | ;; Don't muck with mark unless REPLACE says we should. |