1421 |
If it is nil, error output is mingled with regular output. |
If it is nil, error output is mingled with regular output. |
1422 |
In an interactive call, the variable `shell-command-default-error-buffer' |
In an interactive call, the variable `shell-command-default-error-buffer' |
1423 |
specifies the value of ERROR-BUFFER." |
specifies the value of ERROR-BUFFER." |
1424 |
(interactive (let ((string |
(interactive (let (string) |
1425 |
;; Do this before calling region-beginning |
(unless (mark) |
1426 |
;; and region-end, in case subprocess output |
(error "The mark is not set now, so there is no region")) |
1427 |
;; relocates them while we are in the minibuffer. |
;; Do this before calling region-beginning |
1428 |
(read-from-minibuffer "Shell command on region: " |
;; and region-end, in case subprocess output |
1429 |
nil nil nil |
;; relocates them while we are in the minibuffer. |
1430 |
'shell-command-history))) |
(setq string (read-from-minibuffer "Shell command on region: " |
1431 |
|
nil nil nil |
1432 |
|
'shell-command-history)) |
1433 |
;; call-interactively recognizes region-beginning and |
;; call-interactively recognizes region-beginning and |
1434 |
;; region-end specially, leaving them in the history. |
;; region-end specially, leaving them in the history. |
1435 |
(list (region-beginning) (region-end) |
(list (region-beginning) (region-end) |