diff options
| -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. |