Mercurial > emacs
changeset 9065:e321617e3fc6
(shell-command, shell-command-on-region):
Make "*Shell Command Output*" non-read-only.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 24 Sep 1994 04:52:10 +0000 |
| parents | d716ea8937e2 |
| children | f211cea65063 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Sat Sep 24 04:37:40 1994 +0000 +++ b/lisp/simple.el Sat Sep 24 04:52:10 1994 +0000 @@ -701,6 +701,7 @@ (error "Shell command in progress"))) (save-excursion (set-buffer buffer) + (setq buffer-read-only nil) (erase-buffer) (display-buffer buffer) (setq default-directory directory) @@ -788,7 +789,8 @@ ;; If the input is the same buffer as the output, ;; delete everything but the specified region, ;; then replace that region with the output. - (progn (delete-region end (point-max)) + (progn (setq buffer-read-only nil) + (delete-region end (point-max)) (delete-region (point-min) start) (call-process-region (point-min) (point-max) shell-file-name t t nil @@ -797,6 +799,7 @@ ;; Clear the output buffer, then run the command with output there. (save-excursion (set-buffer buffer) + (setq buffer-read-only nil) (erase-buffer)) (call-process-region start end shell-file-name nil buffer nil